In mô tả
Ghi dữ liệu có định dạng hiển thị vào một tệp tuần tự.
Cú pháp in
| 1 | In #FileNumber, [Danh sách đầu ra] |
Câu lệnh Print chứa 2 đối số:
Số của tập tin: Bất kỳ số tệp hợp lệ nào.
Danh sách đầu ra: Không bắt buộc. Một hoặc nhiều biểu thức số được phân tách bằng dấu phẩy hoặc biểu thức chuỗi để ghi vào tệp.
Ví dụ về hàm in Excel VBA
| Tên đầu tiên | Họ | Tuổi | Giới tính |
| Robert | Stepp | 20 | Nam giới |
| Jennifer | Mariscal | 33 | Giống cái |
| David | Romig | 35 | Nam giới |
| Carmel | Ingram | 26 | Giống cái |
Để xuất Phạm vi (“A1: D5”) trong một trang tính như hình trên thành một tệp, bạn có thể sử dụng mã sau.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng As RangeĐặt dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Nếu dlgFolder.Show = True ThìstrFolder = dlgFolder.SelectedItems (1)KhácThoát SubKết thúc nếuĐặt rng = Range ("A1: D5")'InstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngKết thúc SubSub PrintRangeToFile (strFile As String, rng As Range)Làm mờ hàng dưới dạng phạm vi, ô dưới dạng phạm viDim FileNumber As IntegerFileNumber = FreeFileMở strFile cho đầu ra là #FileNumberĐối với mỗi hàng Trong rng.RowsĐối với mỗi ô Trong hàng.If cell.Column = row.Cells.Count Sau đóIn #FileNumber, ôKhácIn #FileNumber, ô,Kết thúc nếuÔ tiếp theoHàng tiếp theoĐóng #FileNumberKết thúc Sub |
Kết quả đầu ra cho tệp “Print_Output.txt”:
| 12345 | Họ Tên Họ Tuổi Giới tínhRobert Stepp 20 namJennifer Mariscal 33 NữDavid Romig 35 NamCarmel Ingram 26 Nữ |
