求助！怎样自动导入Excel文件名称？

ynfsr　发表于：2012-05-31 17:13:34 　

有多个Excel报表文件，Excel文件名称不同，在Access表中添加一列文件名称，将Excel导入到Access表中时，怎样将Excel文件名称自动导入到Access表中？

叶海峰发表于：2012-05-31 17:27:38

解决的方法有好几种,但不知道你用什么方法进行导入,没实例,回答不了.

ynfsr 发表于：2012-05-31 18:03:08

上传实例，请教了！

ynfsr 发表于：2012-05-31 18:05:02

将Excel文件“背景”与“音乐”导入到“表1”的“表名”中。谢谢了！！！

叶海峰发表于：2012-05-31 19:57:56

Function DAORU()
    Dim strFilename As String
    Dim i As Byte
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "删除表1数据查询", acViewNormal, acEdit

For i = 1 To 2
strFilename = Choose(i, "E:\数据\背景.xls", "E:\数据\音乐.xls")

DoCmd.TransferSpreadsheet acImport, 8, "表1", strFilename, True, "Sheet1!A1:C100"

CurrentDb.Execute "update 表1 set 表名='" & strFilename & "' where isnull(表名)"
Next

End Function

叶海峰发表于：2012-05-31 20:02:01

Function DAORU()
    Dim strFilename As String
    Dim i As Byte
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "删除表1数据查询", acViewNormal, acEdit

For i = 1 To 2
strFilename = Choose(i, "背景", "音乐")

DoCmd.TransferSpreadsheet acImport, 8, "表1", "E:\数据\" & strFilename & ".xls", True, "Sheet1!A1:C100"

CurrentDb.Execute "update 表1 set 表名='" & strFilename & "' where isnull(表名)"
Next

End Function

ynfsr 发表于：2012-06-01 09:08:45

问题解决，感谢叶海峰老师的多次帮助！谢谢！

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

Access交流中心