Lưu File Excel vào máy khác trong mạng Lan

[hoanthieuhuyen]

Em chào các anh chị trong diễn đàn! Em đang gặp một vấn đề trong excel - em muốn tạo một macro để lưu file excel đang mở vào một thư mục trên máy khác trong cùng mạng lan nhưng ko biết làm thế nào, xin các anh chị giúp em với. Với vấn đề này trong word thì em làm được:

Sub AutoSaveInLan()
Dim Tg, GT, RetVal
Tg = ActiveDocument.Path
If Tg = "" Then
ActiveDocument.Save
Tg = ActiveDocument.Path
End If
ChangeFileOpenDirectory "\\Vanthu1\Thidua" 'Đường dẫn tới máy khác trong mạng lan
ActiveDocument.SaveAs FileName:=ActiveDocument.Name, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ChangeFileOpenDirectory Tg
ActiveDocument.SaveAs FileName:=ActiveDocument.Name
End Sub

Nhưng khi chuyển sang excel thì không được, xin các anh chị giúp em!!!

 

[nguyentuhp]

Bạn ghi Macro rồi xem code là ổn không khó lắm đâu miễn sao thư mục trên máy khác bạn phải share full.

Sub Macro1()
'
' Macro1 Macro
'

'
    ChDir "\\Dung\setup (f)"
    ActiveWorkbook.SaveAs Filename:="\\Dung\setup (f)\Book2.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub