作者sf4566373 (阿歐收啦)
看板Office
標題[算表] VBA 複製資料疑問?
時間Mon Apr 9 18:46:40 2018
軟體:EXCEL
版本:2007
想寫抓取指定目錄下檔案巨集,程式概要如下:
Sub test()
Dim filename2 As String
filename2 = Range("B1").Value
FileCopy "G:\Defect\" & filename2 & "\all.csv", "C:\txt\HAOI-02-" &
filename2 & ".csv"
MsgBox "抓取完成"
Range("A1:B1").Clear
Shell "explorer C:\TXT"
Unload UserForm1
End Sub
以上程式執行沒太大問題,現在唯一疑問是網路磁碟編號不夠用!?
目前磁碟編號還差數10個 = =
PS:上述複製的G磁碟為自行設定的網路磁碟
請問有直接連線IP路徑並複製裡面指定檔案的寫法嗎?
例如IP路徑:file://192.168.168.168/defect/test/all.csv
已經有試過將來源位置改成IP路徑,但會出現錯誤 orz
或是有其他方式增加網路磁碟編號?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.63.112.44
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1523270802.A.230.html
1F:→ soyoso: 如copy網路磁碟機內檔案,可以scripting.filesystemobject 04/09 20:10
2F:→ soyoso: copyfile的方式 04/09 20:11
3F:→ sf4566373: 感謝!我去查這個指令如何用。 04/10 07:50
4F:→ sf4566373: 此法與FileCopy語法類似,都須指定磁碟編號。 04/10 08:02
5F:→ sf4566373: 目前編號是不夠多狀態,無法一一指定我想要的路徑。 04/10 08:04
6F:→ sf4566373: 有辦法指定上文舉例的IP路徑做檔案複製至指定資料夾嗎? 04/10 08:06
7F:→ sf4566373: 或是有其他解法,還是我想法錯誤,歡迎提出! 04/10 08:10
8F:→ soyoso: 回文測試\\xxx.xxx.xxx.xxx\folder\ 是可行的 04/10 08:13
9F:→ sf4566373: 所以我是斜線打錯囉 = = \ / ,我晚上回公司試試看! 04/10 13:11