版本:2007
程式概要如下:
Sub test()
Dim filename2 As String
filename2 = Range("B1").Value
FileCopy "G:\Defect\" & filename2 & "\total.csv", "C:\巨观暂存\HAOI-02-" &
filename2 & ".csv"
MsgBox "抓取完成"
Range("A1:B1").Clear
Shell "explorer C:\巨观暂存"
Unload UserForm1
End Sub
以上程式执行没太大问题,现在唯一疑问是网络磁盘编号不够用!?
目前磁盘编号还差数10个 = =
PS:上述复制的G磁盘为自行设定的网络磁盘
请问有直接连线IP路径并复制里面指定档案的写法吗?
例如IP路径:file://192.168.168.168/defect/test/all.csv
已经有试过将来源位置改成IP路径,但会出现错误 orz
或是有其他方式增加网络磁盘编号?
PS:我非本科系,若有叙述不明确,请麻烦指出,感谢!