Question

您是否可以使用VBA仅将第二张Excel从Excel导入Access？我做了一些谷歌搜索，无法找到明确的答案。

以下是我试图开始工作的代码。

strPathFile = Fil

objXL.Visible = True
Set wkb = objXL.Workbooks.Open(strPathFile)
For Each wks In wkb.Worksheets
    If wkb.wks = wkb.Sheet(2) Then
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames
    End If
Next

我试图从一堆Excel文件中导入数据，总是来自文件中的第二张，但每张工作表都有不同的名称。

Answer 1

事实证明，我错过了两件事。

1)  wks.Index = 2

2)  NeedThisSheet = wks.Name & "!"

这是代码snippit。

strPathFile = Fil

objXL.Visible = True
Set wkb = objXL.Workbooks.Open(strPathFile)
For Each wks In wkb.Worksheets
    If wks.Index = 2 Then
        NeedThisSheet = wks.Name & "!"
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, NeedThisSheet
    End If
Next
wkb.Close

谢谢大家!!

您是否可以使用VBA仅将第二张表从Excel导入Access

1 个答案: