导入所有sheet的问题！

xuchunyang

大家好，

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

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

谢谢大家。

iameee

谢谢分享

mackle

学习一下

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

todaynew

遍历sheet不就完事了

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