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

wish2004 · 发表于 2006-10-25 13:49

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

应该怎么操作呢？

LangQueS · 发表于 2006-10-25 14:03

搜索本论坛相关主题

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

wsc7989 · 发表于 2006-10-25 14:14

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

yehf · 发表于 2006-10-25 15:30

添加一个命令按钮(命名为命令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

		自动登录	找回密码
密码			免费注册