0

我想从多个工作簿中导入数据，全部来自同一个工作表索引 (3)。我是 vba 的新手，我想出了如何打开多个文件，以及如何将数据从一个工作表复制到另一个工作簿中的另一个工作表以获取单个文件，但我似乎不知道该怎么做对于多个文件。我强调了错误在哪里，它告诉我“对象不支持这个属性或方法”

能否请你帮忙？谢谢

Sub dataimport()

' Set Vars
Dim ArbinBook As Workbook, DataBook As Workbook
Dim i As Integer, j As Integer
Dim Caption As String
Dim ArbinFile As Variant, DataFile As Variant


' make weak assumption that active workbook is the target
Set DataBook = Application.ActiveWorkbook

' get Arbin workbook
Caption = "Please select an input file"
    ' To set open destination:
    ' ChDrive ("E")
    ' ChDir ("E:\Chapters\chap14")
    ' With Application

'Set "arbinfile" as variant, the "true" at end makes it into an array
ArbinFile = Application.GetOpenFilename(, , Caption, , True)

'Exit when canceled
If Not IsArray(ArbinFile) Then
    MsgBox "No file was selected."
    Exit Sub
End If

Dim targetSheet As Worksheet
Set targetSheet = DataBook.Sheets(1)


'Open for every integer i selected in the array "arbinfile"
For i = LBound(ArbinFile) To UBound(ArbinFile)
        Set ArbinBook = Workbooks.Open(ArbinFile(i))


targetSheet.Range("A2", "G150").Value = ArbinBook.Sheets(3).Range("A2", "G150").Value

   **ERROR at the line above**   

        Workbooks(DataSheet).Activate                        'Reactivate the data book
        Worksheets(1).Activate                               'Reactivate the data sheet
        ActiveWorkbook.Sheets(1).Copy _
           after:=ActiveWorkbook.Sheets(1)
        Workbooks(ArbinFile(1)).Activate                 'Reactivate the arbin book(i)


        ArbinBook.Close

Next i
Beep

End Sub
4

3 回答 3

1

我的直觉告诉我这ArbinBook.Sheets(3)是一个图表，而不是工作表（或者，至少，它不是工作表）。它也可能被隐藏，但仍将被索引为 (3)。

如果是这样，请更改Sheets(3)为Worksheets(3).

补充：顺便说一句，如果为真，这也说明了为什么使用索引号是不可靠的。如果可能，请按名称引用工作表。（我明白这可能并不总是可能的。）

添加（来自评论）您的代码中没有任何名称DataSheet。添加Option Explicit到模块顶部以指示所有此类错误。

于 2013-06-20T20:25:24.007 回答
0

换行试试Set ArbinBook = Workbooks.Open(ArbinFile(i))

至Set ArbinBook = Workbooks(arbinfile(i))

我可能是错的，但我认为它试图将您的工作簿对象设置为打开另一个工作簿的操作，而不是将其标记为工作簿。

于 2013-06-20T21:02:14.990 回答
-1 
Sub Multiple()
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim exlApp As Excel.Application
Dim exlWb1 As Excel.Workbook
Dim exlWb2 As Excel.Workbook
Dim exlWb3 As Excel.Workbook
Dim exlWs1 As Excel.Worksheet
Dim exlWs2 As Excel.Worksheet
Dim exlWs3 As Excel.Worksheet
Set exlApp = CreateObject("Excel.Application")
Set exlWb1 = exlApp.Workbooks.Open("C:\yourpath1\file1.xls")
Set exlWb2 = exlApp.Workbooks.Open("C:\yourpath2\file2.xls")
Set exlWb3 = exlApp.Workbooks.Open("C:\yourpath3\file3.xls")
Set exlWs1 = exlWb.Sheets("Sheet1")
Set exlWs2 = exlWb.Sheets("Sheet1")
Set exlWs3 = exlWb.Sheets("Sheet1")
exlWb1.Activate
exlWb2.Activate
exlWb3.Activate
'code
exlWb.Close savechanges:=True
exlWb.Close savechanges:=True
exlWb.Close savechanges:=True
Set exlWs1 = Nothing
Set exlWs2 = Nothing
Set exlWs3 = Nothing
Set exlWb1 = Nothing
Set exlWb2 = Nothing
Set exlWb3 = Nothing
exlApp.Quit
Set exlApp = Nothing
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
于 2013-06-20T23:57:36.757 回答