vba发送信息到局域网服务器,[求助]请问”龙三“兄，如何在局域网内传递数据...

我自己有一些代码你看能用不

Sub chuanshu()

Dim fs As Object

aa = Timer

Application.DisplayAlerts = False

Set fs = CreateObject("Scripting.FileSystemObject")

ff = "C:\Documents and Settings\mathes\桌面\物流系统\备份文件夹\备份文件.xls"

gg = "\\Jian\共享文档\中山奥林库存操作软件\111.xls"

MsgBox "系统开始传送文件，请稍等", vbCritical, "温馨提示"

fs.CopyFile ff, gg

MsgBox "传输完毕：＝" & Format(Timer - aa, "0.000") & "秒", vbCritical, "温馨提示"

Application.OnTime Now + TimeValue("00:30:00"), "chuanshu"

Application.ScreenUpdating = True

End Sub