Đọc dữ liệu từ file text (1 người xem)

[thanh131190]

Mọi người giúp mình đoạn code chuyển dữ liệu từ 1 file text thành 1 biến string. để sau đó split string thành mảng lọc giá trị( có openfiledialog để chọn file thì càng tốt ). Tìm trên mạng mấy ngày nay ra rất nhiều kết quả, nhưng mình thử mãi vẫn ko được. Đọc chán trên mạng mấy ngày ko được mới đến bứơc đường cùng là đăng đề tài, mong mọi người thông cảm giúp đỡ !

 

[hoangvuluan]

Trước hết bạn có thể tham khảo từ đây:
http://www.giaiphapexcel.com/forum/...t-Scripting-Runtime-để-thao-tác-với-text-file

 

[hoangvuluan]

Không biết mục đích cụ thể của bạn thế nào, ở đây tôi viết 1 macro cho phép chọn 1 file text (dùng hộp thoại mở file), sau đó sẽ đọc vào:
1 - biến chuỗi
2 - biến mảng và gán các dòng lên cột A
sau đó tùy ý bạn xử lý.
Xem nội dung đính kèm - có gì trao đổi sau.

Sub OpenTextFileTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 3, maxLine = 100
Dim fs, f, aKQ() As String, iL As Long
Dim FD As FileDialog
Dim FFs As FileDialogFilters
Dim strFileName As String, sKQ As String
On Error GoTo Problem
Set FD = Application.FileDialog(msoFileDialogOpen)
    With FD
        Set FFs = .Filters
        With FFs
        .Clear
        .Add "TXT", "*.txt"
        End With
    If .Show = False Then Exit Sub
    strFileName = .SelectedItems(1)
    End With
    Set FD = Nothing
    Set FFs = Nothing
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(strFileName, ForReading)
    ReDim aKQ(1 To maxLine, 1 To 1)
    With f
        iL = 0
        While (Not .AtEndOfStream) And (iL < maxLine)
            iL = iL + 1
            aKQ(iL, 1) = .ReadLine
            sKQ = sKQ & "|" & aKQ(iL, 1)
        Wend
        .Close
    End With
    ActiveSheet.Range("A1").Resize(maxLine, 1) = aKQ
    Set f = Nothing
    Set fs = Nothing
    Exit Sub
Problem:
MsgBox "You have not selected a valid txt-file."
End Sub

 

[thanh131190]

Cảm ơn bạn, mình làm được rồi. Đang làm bài tập tạo 1 bảng tính xuất ra Excel
Cho mình hỏi thêm 1 chút, đây là code chèn hình ảnh của mình
ThisWorkbook.Worksheets(1).Range("D10").SelectThisWorkbook.Worksheets(1).Pictures.Insert ("D:\Tuong chan-Pham Phu Thanh\Pic\tuongchan.jpg")
code này phụ thuộc vào đường dẫn, phải copy ảnh vào "D:\Tuong chan-Pham Phu Thanh\Pic\" , có cách nào để ko cần phụ thuôc đường dẫn ko?, ( để ảnh cùng 1 thư mục rồi copy đi đâu cũng chèn được ảnh)

 

[hoangvuluan]

Cảm ơn bạn, mình làm được rồi. Đang làm bài tập tạo 1 bảng tính xuất ra Excel
Cho mình hỏi thêm 1 chút, đây là code chèn hình ảnh của mình
ThisWorkbook.Worksheets(1).Range("D10").SelectThisWorkbook.Worksheets(1).Pictures.Insert ("D:\Tuong chan-Pham Phu Thanh\Pic\tuongchan.jpg")
code này phụ thuộc vào đường dẫn, phải copy ảnh vào "D:\Tuong chan-Pham Phu Thanh\Pic\" , có cách nào để ko cần phụ thuôc đường dẫn ko?, ( để ảnh cùng 1 thư mục rồi copy đi đâu cũng chèn được ảnh)

Bạn dùng thuộc tính ThisWorkbook.Path để biết được đường dẫn hiện thời file của bạn:

ThisWorkbook.Worksheets(1).Range("D10").Select
ThisWorkbook.Worksheets(1).Pictures.Insert ("ThisWorkbook.Path & "\tuongchan.jpg")

 

[thanh131190]

Ok rồi, cảm ơn bạn nhiều