Đọc Nội Dung File Text Trong VBA - VietTuts

Trang chủ » đọc File Text » Đọc Nội Dung File Text Trong VBA - VietTuts

Có thể bạn quan tâm

VBA Cơ Bản Các Đối Tượng Trong Excel VBA VBA String VBA Date

Các Ví Dụ Về Excel VBA

Ví dụ đối tượng Workbook và Worksheet Chuyển số thành tên cột trong excel vba Show dialog to choose file in excel vba Open excel file in excel vba Create folder in excel vba Connect Excel VBA to Access Database Tạo file excel trong VBA Mở file excel trong VBA Delete file excel trong VBA Đọc nội dung file text trong VBA Ghi file text trong VBA Xóa file text trong VBA Tạo thưc mục trong VBA Xóa thưc mục trong VBA Tìm row cuối cùng trong VBA Tìm column cuối cùng trong VBA Dãy số Fibonacci trong Excel Delete file excel trong VBA Ghi file text trong VBA

Bài này cung cấp cho bạn 2 phương thức để đọc nội dung file text trong VBA (plain text). Hãy xem các ví dụ sau đây:

Ví dụ 1: đọc toàn bộ nội dung file text trong vba bằng việc sử dụng đối tượng "ADODB.stream".

Public Const UTF_8_ENCODING = "UTF-8" '------------------------------------------- ' read file example 1 '------------------------------------------- Sub readFileExample1() Dim fileName As String Dim content As String fileName = Application.ActiveWorkbook.path & "\" & "data.txt" ' call readFile() method content = readFile(fileName, UTF_8_ENCODING) ' set content to cell "A1" Cells(1, "A").Value = content End Sub '------------------------------------------- ' read file method '------------------------------------------- Function readFile(fileName As String, charSet As String) As String Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") objStream.charSet = charSet objStream.Open objStream.LoadFromFile (fileName) readFile = objStream.ReadText() Set objStream = Nothing End Function

Ví dụ 2: đọc từng dòng một bằng việc sử dụng câu lệnh Open fileName và Close.

'------------------------------------------- ' read file example 2 '------------------------------------------- Sub readFileExample2() Dim fileName As String Dim content As String Dim textRow As String fileName = Application.ActiveWorkbook.path & "\" & "data.txt" ' open file Open fileName For Input As #1 ' read line by line Do While Not EOF(1) Line Input #1, textRow content = content & textRow & vbCrLf Loop ' close file Close #1 ' set content to cell "A1" Cells(1, "A").Value = content End Sub

Ví dụ 3: đọc toàn bộ nội dung file text trong vba bằng việc sử dụng đối tượng Open fileName và Close.

'------------------------------------------- ' read file example 3 '------------------------------------------- Sub readFileExample3() Dim fileName As String Dim content As String Dim textRow As String fileName = Application.ActiveWorkbook.path & "\" & "data.txt" ' open file Open fileName For Input As #1 ' read whole content content = Input$(LOF(1), 1) ' close file Close #1 ' set content to cell "A1" Cells(1, "A").Value = content End Sub Delete file excel trong VBA Ghi file text trong VBA

Recent Updates

Phím tắt hay dùng trong ExcelBảo mật tập tin ExcelDịch trang tính trong ExcelIn trang tính trong ExcelHàm VLOOKUP trong ExcelĐối tượng đồ họa trong ExcelSử dụng macro trong ExcelSử dụng Templates trong ExcelSử dụng chủ đề (theme) trong ExcelSử dụng Style trong ExcelXác thực dữ liệu (Data Validation) trong ExcelSử dụng phạm vi (Range) trong ExcelSắp Tết 2024 Rồi! - Còn bao nhiêu ngày nữa là đến tết 2024?

VietTuts on facebook

Học VBA Excel Online
Danh Sách Bài Học

Học Java | Hibernate | Spring Học Excel | Excel VBA Học Servlet | JSP | Struts2 Học C | C++ | C# Học Python Học SQL

Bài Tập Có Lời Giải

Bài tập Java Bài tập C Bài tập C++ Bài tập C# Bài tập Python Ví dụ Excel VBA

Câu Hỏi Phỏng Vấn

201 câu hỏi phỏng vấn java 25 câu hỏi phỏng vấn servlet 75 câu hỏi phỏng vấn jsp 52 câu hỏi phỏng vấn Hibernate 70 câu hỏi phỏng vấn Spring 57 câu hỏi phỏng vấn SQL

Từ khóa » đọc File Text