如何导入几份不同表的excel到同一个表中

wish2004

如题，比如我有sheet1 sheet2 sheet3，想导入到access中同一个表中

应该怎么操作呢？

LangQueS

 搜索本论坛相关主题

[此贴子已经被作者于2006-10-25 14:04:00编辑过]

wsc7989

我看“导入”不如“复制”来的快！！！

yehf

添加一个命令按钮(命名为命令0),然后添加以下代码

Private Sub 命令0_Click()
    Dim PathStr  '路径
    Dim ExlName  '文件名

    PathStr = dhFileDialog(, "Excelfile(*.xls)" & vbNullChar & "*.xls" & vbNullChar & vbNullChar, 1, ".xls", , "You need putin file", , True)

    If PathStr = "" Then MsgBox "你没有选中要导入的文件"
       
    For i = 1 To 3 '请根据实际工作表数来调整
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "book1", PathStr, True, "sheet" & i 

    Next
   

End Sub