Code SaveCopyAs

[NguyenthiH]

Chào các anh chị, em có code SaveCopyAs để lưu file vào thư mục "Dulieuchiase" và gán phím tắt là "Ctrl+W" mà khi nhân "Ctrl+W" thấy không có lưu qua thư mục "Dulieuchiase", mong các anh chị giúp đỡ.

Sub SaveToLocations()



ActiveWorkbook.SaveCopyAs "D:\DU LIEU CHIA SE\" + ActiveWorkbook.Name



ActiveWorkbook.Save

End Sub

 

[NguyenthiH]

Em có sưu tầm code trên mạng, nhưng khi chạy code file Excel vẫn hiện 4 sheet.

Option Explicit  
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant
  ar = Array("Sheet1", "Sheet2", "sheet3")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
End Sub

 

[NguyenthiH]

Em đã sửa code thành:

Option Explicit
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant
  ar = Array("TonDau", "Nhap", "Xuat")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
End Sub

thì đã ẩn các sheet: TonDau,Nhap, Xuat của cả file gốc (file không ở folder D\DU LIEUCHIA SE), em muốn là file gốc vẫn hiện dử các sheet.
Mong các anh chị giúp đỡ.

 

[ppc0312]

Em đã sửa code thành:

Option Explicit
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant
  ar = Array("TonDau", "Nhap", "BaoCao")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
End Sub

thì đã ẩn các sheet: TonDau,Nhap, Xuat của cả file gốc (file không ở folder D\DU LIEUCHIA SE), em muốn là file gốc vẫn hiện dử các sheet.
Mong các anh chị giúp đỡ.

Thì save As, xong mới ẩn
Hoặc khi đóng file cũ thì không SAVE

 

[NguyenthiH]

Save as xong mới ẩn là vầy hả anh @ppc0312 :

Option Explicit
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant

  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
     ar = Array("TonDau", "Nhap", "Xuat")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
End Sub

Em đã thử nhưng file gốc cũng ẩn luôn sheet.

 

[ppc0312]

Save as xong mới ẩn là vầy hả anh @ppc0312 :

Option Explicit
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant

  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
     ar = Array("TonDau", "Nhap", "Xuat")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
End Sub

Em đã thử nhưng file gốc cũng ẩn luôn sheet.

Tôi thử rồi, đạt kết quả mong muốn, Chú ý chạy 1 lần thôi

 

[NguyenthiH]

Sao em chạy code vẫn ẩn luôn 3 sheet chỉ chừa sheet!BaoCao, em xin nói cách chạy code của em như sau:
Mở Book1-> vào Developer->Macros->run "SaveToLocations" ->thì lúc này file gốc "Book1" ẩn 3 sheet chỉ còn sheet!BaoCao hiện, em thoát Book1,nếu save thì file gốc Book1 chỉ hiện sheet!BaoCao, nếu không Save thì hiện cả 4 sheet.
Mong các Anh chị xem giúp.

 

[NguyenthiH]

Ý định của em là khi Save As file qua folder DULIEUCHIASE thì sẽ hiện sheet nào mình cần hiện, còn file gốc thì hiện hết các sheet (không ẩn sheet nào).
Mong các anh chị giúp đỡ.

 

[NguyenthiH]

Em có file Excel tên là Book1 với 4 sheet có tên là: TonDau, Nhap, Xuat, BaoCao ở ổ D\TaiLieu(gọi là file gốc), em muốn khi chạy code "SaveToLocations" ở file gốc, thì:
1/file gốc được lưu qua ổ D\DU LIEU CHIA SE với cùng tên.
2/file được lưu ở ổ D\DU LIEU CHIA SE chỉ hiện sheet!BaoCao, còn 3 Sheet: TonDau, Nhap, Xuat thì ẩn.
3/file gốc ở ổ D\TaiLieu được lưu và hiện dầy đủ các sheet (4 sheet).
code này:

Option Explicit
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant

  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
     ar = Array("TonDau", "Nhap", "Xuat")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
End Sub

Khi chạy code này thì:
1/ khi thoát file gốc em nhấn "Don't Save" thì có lưu file gốc sang ổ D\DU LIEU CHIA SE, nhưng file ở ổ D\DU LIEU CHIA SE vẫn hiện 4 sheet, và file gốc không được lưu (vẫn hiện 4 sheet).
2/khi thoát file gốc em nhấn "Save" thì có lưu file gốc sang ổ D\DU LIEU CHIA SE và chỉ hiện sheet!BaoCao, file gốc cũng chỉ hiện sheet!BaoCao.
Mấy anh chị giúp em với.

 

[Huyyeu99999]

Em có file Excel tên là Book1 với 4 sheet có tên là: TonDau, Nhap, Xuat, BaoCao ở ổ D\TaiLieu(gọi là file gốc), em muốn khi chạy code "SaveToLocations" ở file gốc, thì:
1/file gốc được lưu qua ổ D\DU LIEU CHIA SE với cùng tên.
2/file được lưu ở ổ D\DU LIEU CHIA SE chỉ hiện sheet!BaoCao, còn 3 Sheet: TonDau, Nhap, Xuat thì ẩn.
3/file gốc ở ổ D\TaiLieu được lưu và hiện dầy đủ các sheet (4 sheet).
code này:

Option Explicit
Private Const DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Sub SaveToLocations()
On Error Resume Next
  Dim ar As Variant
  Dim ws As Variant

  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
     ar = Array("TonDau", "Nhap", "Xuat")
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetHidden
  Next ws
End Sub

Khi chạy code này thì:
1/ khi thoát file gốc em nhấn "Don't Save" thì có lưu file gốc sang ổ D\DU LIEU CHIA SE, nhưng file ở ổ D\DU LIEU CHIA SE vẫn hiện 4 sheet, và file gốc không được lưu (vẫn hiện 4 sheet).
2/khi thoát file gốc em nhấn "Save" thì có lưu file gốc sang ổ D\DU LIEU CHIA SE và chỉ hiện sheet!BaoCao, file gốc cũng chỉ hiện sheet!BaoCao.
Mấy anh chị giúp em với.

THÌ trước khi SaveCopyAs bạn ẩn sheet đi sau khi SaveCopyAs xong cho hiện sheet lại

  For Each ws In ar
    Worksheets(ws).Visible = xlSheetVeryHidden
  Next ws
  ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
  For Each ws In ar
    Worksheets(ws).Visible = xlSheetVisible
  Next ws

 

[NguyenthiH]

Cám ơn anh @Huyyeu99999 nhiều ạ!!!!!