Dylan67 wrote:
想請教271F的這張圖是什麼用[下載軟體]截屏的,我找不到相符的畫面,
用GoogleF12及Fiddler也找不到這個網址Key,
網頁某天改版了,不會顯示key
因271樓範例可正常執行,懶的改了
Dylan67 wrote:
再請教,272F批量下載的CSV若想改存在Access,是不是只能一個一個在Excel[不存檔直接開啟後]→再用ADO存入Access,您方便給點提示嗎?感謝
如果要用ado,是的(一格、一列、一欄、一個範圍,都可以)
整個檔案匯入,可用CreateObject("Access.Application")
“單檔案”匯入範例,請參考
'測試前excel需先存檔一次,ThisWorkbook.Path,才會有資料
Sub Csv_to_Access_Test()
Dim cta As Object, TestFile_Name As String
Set cta = CreateObject("Access.Application")
TestFile_Name = "2412.csv" '檔名只能有一個點. , .tw.csv 不行
cta.Visible = True
'需先用access建立一個名稱為test的空白資料庫
cta.OpenCurrentDatabase ThisWorkbook.Path & "\test.accdb", True
'多檔案匯入迴圈開始位置
cta.docmd.TransferText acImportDelim, , Replace(TestFile_Name, ".csv", ""), ThisWorkbook.Path & "\" & TestFile_Name, True
'只要csv檔案內有空白資料,使用整個檔案匯入的方式,access一定會產生,"檔名_匯入錯誤"的表格
'通常是刪掉,但不理它也行
'(舊版access不確定是不是這種命名方式,請自行修改)
cta.docmd.deleteobject actable, Replace(TestFile_Name, ".csv", "") & "_匯入錯誤"
'多檔案匯入迴圈結束位置
cta.Quit
Set cta = Nothing
End Sub
取得目錄下多個檔案名稱,最近有回答類似的問題,可參考
2020-10-11
https://www.mobile01.com/topicdetail.php?f=511&t=6209216&p=3#79367953
2020-09-21
https://www.mobile01.com/topicdetail.php?f=511&t=6187820&p=4#79148485
2020-09-17
https://www.mobile01.com/topicdetail.php?f=511&t=6191653
或
google dir() vba