VBA写入数据到局域网共享文件

Question

Dim xlapp As Excel.Application
Dim shujuku As Excel.Workbook
Set xlapp = CreateObject("Excel.Application")
Set shujuku = xlapp.Workbooks.Open("\192.168.1.10\gx\shujuku.xls")
shuju.sheets(data).Cells(1, 1) = thisworkbook.sheet(chukudan).Cells(3, 1) '把自己的数据写入局域网共享的文件
shujuku.save
xlapp.Quit
Set xlapp = Nothing

请教一下，用这种方式存储数据到局域网共享文件，速度慢，有没有什么更好的办法

Answer 1

要找到慢的原因，
如果是是excel处理起来慢，就先把excel保存到本地，然后复制到共享文件
如果共享文件这种传输方式慢，可以改用FTP传输问文件