✅ VBA - Xây dựng giao diện nhập tùy chỉnh

Mục lục

Bạn có muốn kiểm soát người dùng nhập tệp, thay vì để họ sử dụng các tính năng của Excel để làm điều đó không? Bạn có cần kiểm soát nhiều hơn đối với việc nhập khẩu của mình để xác nhận hoặc sửa đổi khi nhập khẩu không? Có nhiều cách để làm điều này và cũng có nhiều biến thể yêu cầu, nhưng đây là một số cơ sở để bắt đầu.

1. Đặt mã sau vào một mô-đun rồi chạy nó

Public Sub CustomImport ()

'Xác định các biến Dim ImportFile As String Dim ImportTitle As String Dim TabName As String Dim ControlFile As String


'Mở hộp thoại chung và lấy tên tệp
ImportFile = Application.GetOpenFilename (_
"Tệp Excel, * .xls, Tất cả các tệp, *. *")
ImportTitle = _
Mid (ImportFile, InStrRev (ImportFile, "\") + 1)
'Hủy séc chưa được nhấp
If ImportFile = "False" Thì
Thoát Sub
Kết thúc nếu
'Nhập tệp
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename: = ImportFile
ActiveSheet.Name = TabName
Trang tính (TabName) .Copy _
Trước: = Workbooks (ControlFile) .Sheets (1)
Windows (ImportTitle). Kích hoạt
ActiveWorkbook.C Close SaveChanges: = False
Windows (ControlFile). Kích hoạt

Kết thúc Sub
Chú thích bên lề: Điều này hoạt động tốt cho các tệp * .xls, * .xlsx, * .xlsm, * .csv và * .txt. Bạn có thể thêm hoặc gọi mã trước End Sub để sửa đổi dữ liệu đã nhập trước khi người dùng có thể chạm vào.