Mô tả tập tin miễn phí
Trả về số tệp miễn phí hợp lệ tiếp theo (Số nguyên).
Cú pháp FreeFile
Trong VBA Editor, bạn có thể nhập “FreeFile (” để xem cú pháp của Hàm FreeFile:
Hàm FreeFile chứa một đối số:
RangeNumber: [Tùy chọn] 0 (mặc định) để trả về số tệp trong phạm vi 1-255. 1 để trả về số tệp trong dải 256-511.
Ví dụ về Hàm FreeFile trong Excel VBA
Vui lòng chạy mã sau.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex As IntegerDim nFileNumber As IntegerDim arrFileNumber (1 đến 3) dưới dạng số nguyênĐối với nIndex = 1 đến 3nFileNumber = FreeFile 'Lấy số tệp không sử dụngarrFileNumber (nIndex) = nFileNumber' con số.Mở "D: \ test" & nIndex & ".txt" cho đầu ra là nFileNumber 'Tạo tên tệp.Viết #nFileNumber, "Số tệp của tệp này là" & nFileNumber 'Văn bản đầu ra. "NIndex tiếp theoĐối với nIndex = 1 đến 3Close arrFileNumber (nIndex) 'Đóng tệp.NIndex tiếp theoKết thúc Sub |
Thao tác này sẽ tạo 3 tệp trên ổ D.
test1.txt: “Số tệp của tệp này là 1”
test2.txt: “Số tệp của tệp này là 2”
test3.txt: “Số tệp của tệp này là 3”
Điều này cho thấy rằng trả về 1, 2, 3 bởi hàm FreeFile.
