[算表] VBA 复制资料疑问?

楼主: sf4566373 (阿欧收啦)   2018-04-09 18:46:40
软件: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
或是有其他方式增加网络磁盘编号?
作者: soyoso (我是耀宗)   2018-04-09 20:10:00
如copy网络磁盘机内档案,可以scripting.filesystemobjectcopyfile的方式
楼主: sf4566373 (阿欧收啦)   2018-04-10 07:50:00
感谢!我去查这个指令如何用。此法与FileCopy语法类似,都须指定磁盘编号。目前编号是不够多状态,无法一一指定我想要的路径。有办法指定上文举例的IP路径做档案复制至指定资料夹吗?或是有其他解法,还是我想法错误,欢迎提出!
作者: soyoso (我是耀宗)   2018-04-10 08:13:00
回文测试\\xxx.xxx.xxx.xxx\folder\ 是可行的
楼主: sf4566373 (阿欧收啦)   2018-04-10 13:11:00
所以我是斜线打错囉 = = \ / ,我晚上回公司试试看!

Links booklink

Contact Us: admin [ a t ] ucptt.com