VBA Excel Cấp Tốc Bài 5

Xem bài trước

>> VBA Excel Express Bài 1 – Lọc nhiều dữ liệu có điều kiện với bộ lọc nâng cao

Bạn Đang Xem: VBA Excel Cấp Tốc Bài 5

>> VBA Excel Express Bài 2 – In Bảng Chín Chương

>> VBA Excel Express Bài 3 – In hàng loạt nhanh

>> VBA Excel Express Bài 4 – Tự động xóa hàng loạt trang tính không hoạt động

Video hướng dẫn thực hành

Chuẩn bị cơ bản để viết mã chương trình sao chép File.

Chuẩn bị Tệp để sao chép và Tệp để dán.

Trước tiên, bạn sẽ lưu tệp thực hành sao chép trong Máy tính để bàn: Vào File -> Save -> Desktop -> đặt tên cho File, nhớ chọn phần mở rộng là Excel Macro -> Save.

Bạn phải chọn đường dẫn của thư mục bằng cách mở thư mục gốc -> nhấp chuột phải vào tên thư mục -> sao chép -> dán nó vào hộp thư mục bắt buộc sao chép trong Tập tin vừa tạo trước đó và nhớ thêm 1 dấu \ cuối cùng.

Trong thư mục đích bạn cũng làm như vậy, hãy mở thư mục đích -> nhấp chuột phải vào tên thư mục -> sao chép -> dán vào hộp thư mục đích trong Tập tin vừa tạo trước đó và nhớ thêm 1 dấu \ cuối cùng.

Trong phần Loại tệp để sao chép, nếu bạn muốn sao chép tất cả các loại tệp, hãy nhập *. * và kết quả khi hoàn thành phần chuẩn bị.

Khởi động Code chương trình để sao chép File.

• Đầu chương vẫn Phụ tên chương trình và đi vào đến phần tự động tạo Kết thúc Sub Kết thúc chương trình.

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Đầu tiên tôi phải khai báo biến FSO Biến đổi FSO Đây là biến để tôi có thể sao chép tệp: Làm mờ FSO dưới dạng đối tượng

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Khai báo biến loại tệp là loại tệp mà tôi sẽ sao chép: Dim Kieu_file As String

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Khai báo biến đường dẫn thư mục nguồn: Dim duong_dan_thu_muc_nguon As String

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Khai báo biến đường dẫn thư mục đích: Dim duong_dan_thu_muc_dich As String

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Tiếp theo, tôi sẽ chỉ định đường dẫn thư mục đích trong hàng 5 cột 3 thư mục đích: duong_dan_thu_muc_dich = ThisWorkbook.Sheets (1) .Cells (5, 3)

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Tiếp theo, tôi sẽ gán đường dẫn thư mục nguồn trong hàng 3 cột 3 thư mục nguồn: duong_dan_thu_muc_nguon = ThisWorkbook.Sheets (1) .Cells (3, 3)

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Loại tệp sẽ chỉ định các hàng 7 cột 3 nơi loại tệp được đặt: Kieu_file = ThisWorkbook.Sheets (1) .Cells (7, 3)

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Tôi đã khai báo và gán thư mục gốc, thư mục đích và loại tệp.

• Bạn đặt loại biến FSO Đây là đối tượng hoạt động với tệp: Đặt FSO = CreateObject (“scripting.FileSystemObject”)

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Lệnh kiểm tra thư mục gốc có tồn tại không, nếu gõ sai sẽ báo không tồn tại và kết thúc chương trình: Nếu FSO.FolderExists (duong_dan_thu_muc_dich) = False Thì \ MsgBox “không tìm thấy điểm đến” \ Exit Sub \ End If

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Lệnh tương tự sẽ kiểm tra xem thư mục đích có tồn tại hay không, nếu không thì thông báo không tồn tại và kết thúc chương trình: Nếu FSO.FolderExists (duong_dan_thu_muc_nguon) = False thì \ MsgBox “không tìm thấy nguồn” \ Thoát Sub \ End If

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Chuyển đến lệnh Copy File: FSO.copyFile Nguồn: = duong_dan_thu_muc_nguon & Kieu_file, Destination: = duong_dan_thu_muc_dich

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

• Hiển thị thông báo khi sao chép tệp thành công: MsgBox “Copy thanh cong” & duong_dan_thu_muc_nguon & “tai” & duong_dan_thu_muc_dich

Tạo nút.

Đi đến thẻ Nhà phát triển -> Chèn -> Nút -> Giữ và kéo -> nhấp vào tên chương trình -> ok -> sau đó đổi tên Nút.

Kết quả khi chạy chương trình sao chép tập tin từ thư mục này sang thư mục khác.

Mã của chương trình Sao chép Tệp từ thư mục này sang thư mục khác:

Xem Thêm : Cách Sử Dụng Hàm Xlookup Trong Google Sheet 5/2022

Xem Thêm : Ẩn Giá Trị 0 Trong Excel 5/2022

Sub copy_file ()

Làm mờ FSO dưới dạng đối tượng
Dim Kieu_file As String
Dim duong_dan_thu_muc_nguon As String
Dim duong_dan_thu_muc_dich As String

duong_dan_thu_muc_dich = ThisWorkbook.Sheets (1) .Cells (5, 3)
duong_dan_thu_muc_nguon = ThisWorkbook.Sheets (1) .Cells (3, 3)
Kieu_file = ThisWorkbook.Sheets (1) .Cells (7, 3)
Đặt FSO = CreateObject (“scripting.FileSystemObject”)

If FSO.FolderExists (duong_dan_thu_muc_dich) = False Thì
MsgBox “không tìm thấy thư mục đích”
Thoát Sub
EndIf
Nếu FSO.FolderExists (duong_dan_thu_muc_nguon) = Sai Thì
MsgBox “không thể tìm thấy nguồn”
Thoát Sub
EndIf

FSO.copyFile Nguồn: = duong_dan_thu_muc_nguon & Kieu_file, Destination: = duong_dan_thu_muc_dich
MsgBox “Copy thanh cong” & duong_dan_thu_muc_nguon & “toi” & duong_dan_thu_muc_dich

Kết thúc Sub

>> VBA Excel Express Bài 6 – Hướng dẫn sử dụng Record Macro trong Excel từ Cơ bản đến Nâng cao

ĐIỂM BÀI VIẾT NÀY