copy file excel qua mạng lan

[viettuan49a]

Tôi tiến hành copy file excel qua mạng lan

Private Sub Command11_Click()
Dim ngay, thang, nam, ip, ex, cop
Set objWorkbook = objExcel.Workbooks.Open(App.Path & "\Thong Tin.xls")
Set objWorksheet = objWorkbook.Worksheets("Thong Tin")
objExcel.Visible = True
ngay = Text1
thang = Text2
nam = Text3
ip = objWorksheet.Range("B4").Value
ex = objWorksheet.Range("c2").Value

On Error Resume Next
cop = "\\" & ip & "\data " & nam & "\thang " & thang & "\data t" & thang & "\gang\gang_lo_cao_sang_luyen_thep_" _
& ngay & "." & thang & "." & nam & ".xls"
FileCopy cop, App.Path & "\data\LT\gang_lo_cao_sang_luyen_thep_" _
& ngay & "." & thang & "." & nam & ".xls"
objWorkbook.Save
objExcel.Quit
Do
Shell ex & " " & App.Path & "\data\LT\gang_lo_cao_sang_luyen_thep_" & ngay & "." & thang & "." & nam & ".xls", vbNormalFocus
Loop Until rang Is Nothing
End Sub


Khi có mạng thì mọi việc tiến triển tốt, nhưng khi không có kết nối thì bị đơ luôn. Mong cao nhân chỉ giáo

 

[viettuan49a]

Không ai giúp tôi ah??