Code SaveCopyAs (1 người xem)

[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

 

[khitamdao]

ActiveWorkbook.SaveAs "D:\DU LIEU CHIA SE\" & ActiveWorkbook.Name

 

[vanaccex]

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

Bạn thử sửa thành
ActiveWorkbook.Copy
ActiveWorkbook.SaveCopyAs Filename:="D:\DU LIEU CHIA SE\" & ActiveWorkbook.Name & ".xlsx"

 

[NguyenthiH]

Vẫn không được bạn ơi, à mà mình nói để các anh chị biết là mình muốn save file từ thư mục "Tailieu" qua thư mục "Dulieuchiase" (Khác thư mục)

 

[vanaccex]

Vẫn không được bạn ơi, à mà mình nói để các anh chị biết là mình muốn save file từ thư mục "Tailieu" qua thư mục "Dulieuchiase" (Khác thư mục)

File này đang ở thư mục 'tailieu" và code sẽ được paste ở file trong thư mục này hay là bạn muốn chuyển nhiều File từ thư mục "tailieu" qua thư mục "Dulieuchiase"

 

[NguyenthiH]

File gốc ở thư mục "TaiLieu", mình muốn copy qua thư mục "Dulieuchiase", chỉ một file thôi. À copy file mình là "xlsb" nhe bạn. (có Macro)
Bạn giúp mình nhe.

 

[vanaccex]

File gốc ở thư mục "TaiLieu", mình muốn copy qua thư mục "Dulieuchiase", chỉ một file thôi. À copy file mình là "xlsb" nhe bạn. (có Macro)
Bạn giúp mình nhe.

Vậy xem thử bài viết này

Nhờ giúp thêm code copy file sang folder

Chào Anh/Chị. Em có file liệt kê danh sách file trong 1 folder và xóa chúng (xóa những dòng có dấu X), giờ em cần thêm code copy những file đã liệt kê sang 1 foder khác (cũng copy những dòng có dấu X). Nhờ Anh/Chị hướng dẫn giúp em với. Cám ơn Anh/Chị

www.giaiphapexcel.com

 

[NguyenthiH]

Ý mình là muốn làm việc trên file ở thư mục "TaiLieu" xong nhấn nhấn "Ctrl+W" thì tự copy file qua thư mục "Dulieuchiase" với cùng tên file, cùng cấu trúc và có Macro.
Mong các bạn giúp mình với.

 

[HeSanbi]

Thư mục là "DULIEUCHIASE" và "DU LIEU CHIA SE" khác nhau
Nếu thư mục đó không có thì nó cũng save không được

Nếu Book chưa save vào thư mục hoặc được mở ở chế độ ReadOnly hoặc Safe Mode hoặc book đã tồn tại ở thư mục đó thì không save copy được.
------------

Copy vào module

Public Const ShortKeySaveBook = "^w"
Private Const DirectoriesSaveBook = "D:\DULIEUCHIASE\"
'Cách 1:'
Sub SaveToLocations()
    On error resume next
    ActiveWorkbook.SaveCopyAs DirectoriesSaveBook & ActiveWorkbook.Name
End Sub
'Cách 2:'
'Sub SaveToLocations()
'    On error resume next
'    If Not ActiveWorkbook.Saved Then  ActiveWorkbook.Save
'    VBA.CreateObject("Scripting.FileSystemObject").CopyFile ActiveWorkbook.FullName, DirectoriesSaveBook & ActiveWorkbook.Name , True
'End Sub'

'Đặt con trỏ chuột vào dòng code bên dưới và nhấn F5 hoặc gọi SaveToLocationsKey từ danh sách Macro'
Sub SaveToLocationsKey()
    On error resume next
    Application.OnKey ShortKeySaveBook
    Application.OnKey ShortKeySaveBook , "'" & ThisWorkbook.Name & "'!SaveToLocations"
End Sub

------------

Copy vào code của ThisWorkbook và Save Workbook để thực hiện

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Call SaveToLocationsKey
End Sub

Private Sub Workbook_Open()
    Call SaveToLocationsKey
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On error resume next
    Application.OnKey ShortKeySaveBook
End Sub

 

[NguyenthiH]

Sao em chép code vào nó báo lỗi hai dòng này anh ơi:

Public ShortKeySaveBook = "^w"
Public DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

 

[HeSanbi]

Sao em chép code vào nó báo lỗi hai dòng này anh ơi:

Public ShortKeySaveBook = "^w"
Public DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"

Bạn copy lại đi, vì tôi viết code trực tiếp trên Diễn đàn nên sai phần đó

 

[NguyenthiH]

Sao không thấy copy anh ơi

Bài đã được tự động gộp: 27/12/19

Em nhấn Ctrl+W thì hiện ra bảng này:

 

[HeSanbi]

Sao không thấy copy anh ơi

Bài đã được tự động gộp: 27/12/19

Em nhấn Ctrl+W thì hiện ra bảng này:

Nếu dùng cách 2 thì phải đặt chú thích thủ tục ở cách 1 lại

Hoặc là thủ tục đã tồn tại ở nơi khác.

 

[NguyenthiH]

Cám ơn anh @HeSanbi nhiều. Đã được rồi.
Em quên xóa code Savetolocation cũ.

 

[NguyenthiH]

Anh @HeSanbi ơi, nếu em đổi phím tắt Ctrl+W sang phím F1 thì chỉnh code sao anh?

 

[HeSanbi]

Anh @HeSanbi ơi, nếu em đổi phím tắt Ctrl+W sang phím F1 thì chỉnh code sao anh?

Sửa:
Public ShortKeySaveBook = "{F1}"

 

[NguyenthiH]

Em sửa thành:
Public Const ShortKeySaveBook = "(F1)"
nhưng khi bấm F1 nó ra Help của Excel.

 

[HeSanbi]

"{F1}"

 

[NguyenthiH]

À là dấu móc ngoặc, mà cũng phải bấm Ctrl+F1, chứ không bấm F1 không.

 

[NguyenthiH]

Chào các Anh Chị!
Có thể khi nhấn code để lưu qua folder DULIEUCHIASE thì ẩn các sheet đi chỉ chừa lại sheet!BaoCao được không ạ.
Ví dụ file em gồm 4 sheet: TonDau, Nhap, Xuat, BaoCao thì khi nhấn F1 để copy qua folder DULIEUCHIASE thì file ở folder DULIEUCHIASE chỉ hiện sheet!BaoCao thôi, còn các sheet khác bị ẩn đi.

 

[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 ạ!!!!!