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 đỡ.
Mã:
Sub SaveToLocations()
ActiveWorkbook.SaveCopyAs "D:\DU LIEU CHIA SE\" + ActiveWorkbook.Name
ActiveWorkbook.Save
End Sub
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.
Mã:
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
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 đỡ.
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 đỡ.
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
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
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.
Ý đị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 đỡ.
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:
Mã:
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.
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:
Mã:
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
Mã:
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
THÌ trước khi SaveCopyAs bạn ẩn sheet đi sau khi SaveCopyAs xong cho hiện sheet lại
