Viết mô tả
Ghi dữ liệu vào một tệp tuần tự.
Viết cú pháp
| 1 | Viết #FileNumber, [Danh sách đầu ra] |
Câu lệnh Write 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 ghi VBA trong Excel
| 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 (“A2: 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.
| 12345678910111213141516171819202122232425262728293031323334353637 | Sub WriteRangeToFile (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 đóViết #FileNumber, ôKhácViết #FileNumber, ô,Kết thúc nếuÔ tiếp theoHàng tiếp theoĐóng #FileNumberKết thúc SubViết phụ_Ví dụ ()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")strFile = "Write_Output.txt"WriteRangeToFile strFolder & "\" & strFile, rngKết thúc Sub |
Kết quả đầu ra cho tệp “Write_Output.txt”:
| 12345 | "Tên", "Họ", "Tuổi", "Giới tính""Robert", "Stepp", "20", "Nam""Jennifer", "Mariscal", "33", "Nữ""David", "Romig", "35", "Nam""Carmel", "Ingram", "26", "Nữ" |
