Mô tả FileCopy
Sao chép một tệp từ thư mục này sang thư mục khác.
Ví dụ về FileCopy Đơn giản
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Thao tác này sẽ sao chép tệp “Test.txt” trên “C: \” vào ổ D.
Nếu tệp “Test.txt” không tồn tại trên “C: \”, nó sẽ xảy ra lỗi Run-time '53': Không tìm thấy tệp.
Cú pháp FileCopy
Trong VBA Editor, bạn có thể nhập “FileCopy (” để xem cú pháp cho Câu lệnh FileCopy:
Câu lệnh FileCopy chứa 2 đối số:
Nguồn: Tên chuỗi của tệp cần sao chép. Có thể bao gồm đường dẫn.
Điểm đến: Biểu thức chuỗi chỉ định tên tệp đích. Đích có thể bao gồm thư mục hoặc thư mục và ổ đĩa.
Các ví dụ về hàm Excel VBA FileCopy
Vui lòng kiểm tra với mã sau.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker As FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile As StringDim strTarFile As StringĐặt dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = SaidlgFilePicker.ButtonName = "Sao chép"dlgFilePicker.Title = "Vui lòng chọn một tập tin để sao chép"Nếu dlgFilePicker.Show = True ThìstrOrgFile = dlgFilePicker.SelectedItems (1)KhácThoát SubKết thúc nếuĐặt dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Vui lòng cho biết thư mục và viết tên tệp."dlgFileSaveAs.ButtonName = "Dán"Nếu dlgFileSaveAs.Show = True ThìstrTarFile = dlgFileSaveAs.SelectedItems (1)KhácThoát SubKết thúc nếuFileCopy strOrgFile, strTarFileKết thúc Sub |
Chạy nó, nó sẽ hiển thị hộp thoại “Vui lòng chọn một tệp để sao chép” lúc đầu.
Sau đó, bạn nên chọn một tệp để sao chép.
Sau khi chọn một tệp, vui lòng nhấp vào nút “Sao chép”.
Sau đó, nó sẽ hiển thị hộp thoại “Vui lòng cho biết thư mục và viết tên tệp”.
Bạn nên chọn một thư mục đích và viết tên tệp.
Sau đó, nhấp vào nút "Dán".
Sau đó, tệp nguồn sẽ được sao chép với thư mục đích và tên tệp.
