Code SaveCopyAs

Liên hệ QC

NguyenthiH

Thành viên mới đăng ký
Tham gia
11/12/16
Bài viết
929
Được thích
168
Giới tính
Nữ
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
 
ActiveWorkbook.SaveAs "D:\DU LIEU CHIA SE\" & ActiveWorkbook.Name
 
Upvote 0
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
Bạn thử sửa thành
ActiveWorkbook.Copy
ActiveWorkbook.SaveCopyAs Filename:="D:\DU LIEU CHIA SE\" & ActiveWorkbook.Name & ".xlsx"
 
Upvote 0
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)
 
Upvote 0
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"
 
Upvote 0
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.
 
Upvote 0
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
 
Upvote 0
Ý 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.
 
Upvote 0
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
JavaScript:
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
PHP:
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
 
Lần chỉnh sửa cuối:
Upvote 0
Sao em chép code vào nó báo lỗi hai dòng này anh ơi:
Mã:
Public ShortKeySaveBook = "^w"
Public DirectoriesSaveBook = "D:\DU LIEU CHIA SE\"
 
Upvote 0
Sao không thấy copy anh ơi
Bài đã được tự động gộp:

Em nhấn Ctrl+W thì hiện ra bảng này:
Hinh1.png
 
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
Cám ơn anh @HeSanbi nhiều. Đã được rồi.
Em quên xóa code Savetolocation cũ.
 
Upvote 0
Anh @HeSanbi ơi, nếu em đổi phím tắt Ctrl+W sang phím F1 thì chỉnh code sao anh?
 
Upvote 0
Em sửa thành:
Public Const ShortKeySaveBook = "(F1)"
nhưng khi bấm F1 nó ra Help của Excel.
 
Upvote 0
Upvote 0
À là dấu móc ngoặc, mà cũng phải bấm Ctrl+F1, chứ không bấm F1 không.
 
Upvote 0
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.
 
Upvote 0
Web KT
Back
Top Bottom