作者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/cn.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