导入所有sheet的问题！

xuchunyang

大家好，

在导入EXCEL时，我使用DoCmd.TransferSpreadsheet方法。这种方法可以默认导入第一个SHEET，或者导入指定SHEET。

现在想再发散一下思路，即：
1.导入所有SHEET，到ACCESS中的一个表中。
2.导入所有SHEET，并且以每个SHEET名作为ACCESS中对应的表。

谢谢大家。

todaynew

遍历sheet不就完事了

http://www.office-cn.net/forum.php?mod=viewthread&tid=78377&highlight=%A1%BEAccess%D0%A1%C6%B7%A1%BF%2B%2BEx

xuchunyang

感谢楼上提供的思路。下面是我写的代码，两个问题都搞定了，谢谢您。
Sub a()
Dim getfile As String
Dim vfile As Variant
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim str As String

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True

If .Show = True Then

For Each vfile In .SelectedItems
   Set xlBook = xlApp.Workbooks.Open(vfile)
   xlApp.Application.Visible = False
   
   For i = 1 To xlBook.Sheets.Count
    str = xlBook.Sheets(i).Name
    DoCmd.TransferSpreadsheet acImport, 9, “a", vfile, True, str & "!"   '全部导入表a
    DoCmd.TransferSpreadsheet acImport, 9, str, vfile, True, str & "!"    '按照sheet名称生成相应表
   Next i
   
   xlBook.Close
   xlApp.Quit
   
Next vfile

End If

End With

End Sub

mackle

学习一下

iameee

谢谢分享