VBA⾃动导⼊⽂件夹中的EXCEL表
1Public Sub LOAD()
体操英文2 Dim filepath As String, files As String, filename As String
3
4 filepath = CurrentProject.Path & "\⽂件夹\*.xls"
5 files = Dir(filepath)
哭的图片
爷爷是祖父吗6 'Debug.Print filepath
夜抑郁
7 Do Until files = ""笔记本电脑亮度怎么调
狐狸吃葡萄8 filename = CurrentProject.Path & "\⽂件夹\" & files
罗曼式9 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "表名", filename, True
10 Debug.Print filename
合欢树11 files = Dir '下⼀个⽂件
12 Loop
13
14End Sub
这个是⾃动导⼊ACCEss⽂件 所在⽬录中 的“⽂件夹” 内的execl表。
各位看官，可以的话留个⾔，让我知道我帮助了⼈，我⼼情会很愉快的哦
