导入所有sheet的问题！

xuchunyang　发表于：2013-05-09 14:54:13 　

大家好，

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

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

谢谢大家。

��ش˸��

Top

煮江品茶发表于：2013-05-09 20:39:01

遍历sheet即可

http://www.accessoft.com/article-show.asp?id=4072

Top

xuchunyang 发表于：2013-05-10 10:29:58

感谢楼上提供的思路。下面是我写的代码，两个问题都搞定了，谢谢您。
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

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

导入所有sheet的问题！