VBA 自動匯入資料夾中的EXCEL表

public sub load()

dim filepath as string, files as string, filename as string
filepath = currentproject.path & "\資料夾\*.xls"
files = dir(filepath)
'debug.print filepath
do until files = ""
filename = currentproject.path & "\資料夾\" & files
docmd.transferspreadsheet acimport, acspreadsheettypeexcel9, "表名", filename, true
debug.print filename
files = dir  '下乙個檔案
loop
end sub

這個是自動匯入access檔案       所在目錄中 的「資料夾」   內的execl表。

各位看官，可以的話留個言，讓我知道我幫助了人，我心情會很愉快的哦

VBA中遍歷資料夾

如下 sub test enumfiles c documents and settings ibmsz my documents 2010 08 10 遍歷 e 下的所有檔案 end sub sub enumfiles byval spath as string dim fs as new fil...

他山之石 VBA資料夾操作

1 判斷資料夾是否存在 dir函式的第二個引數是vbdirectory時可以返回路徑下的指定檔案和資料夾，如果結果為 則表示不存在。sub w1 if dir thisworkbook.path 2011年報表2 vbdirectory then msgbox 不存在 else msgbox 存在 ...

資料夾 Python自動整理資料夾

以下是具體的 name 自動把指定目錄下的檔案進行整理 author 唐朝品鑑 date 2020年8月25日 description 自動把指定目錄下的檔案進行整理，根據字尾名自動建立資料夾，並把對應的檔案移動到對應資料夾中 import os from os import path 以下是具體的...