7,712
社区成员
发帖
与我相关
我的任务
分享
Public Sub xUpload()
Const SEARCH_PATH As String = "h:\"
Dim sFileName As String
sFileName = Dir(SEARCH_PATH)
Do While sFileName <> ""
DoCmd.TransferSpreadsheet acImport, 8, "Êý¾Ý", SEARCH_PATH & sFileName, True
Loop
End Sub