Đọc dữ liệu từ file text và xuất ra file excel (1 người xem)

[Muforever107]

Hi các bạn!

Mình mới bập bẹ tự học VBA.
Hiện tại mình bị vướng ở chỗ đọc dữ liệu.
Mình có 1 file text, đặt ở 1 thư mục bất kì, mình cần import đầu vào là file đấy và đọc dữ liệu trong đó để in ra 1 sheet bất kì.
Bạn nào biết thì chỉ mình với.

Mình cảm ơn!

 

[Nguyễn Hồng Quang]

Anh bill đã VBA cho bạn rồi mà
Bạn import bằng cách vào Tab Data của excel rồi chọn From Text là xong mà

Còn code của anh Bill thì đây bạn tham khảo

Sub Button2_Click()

    Range("C1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;E:\KIEMKE2016-DC\TXT-DC\M01-03-Hang.TXT", Destination:=Range("$C$1"))
        .Name = "M01-03-Hang_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

 

[befaint]

Chắc rằng code bài trên chạy lần 2 trở đi có vấn đề.

 

[Muforever107]

cảm ơn bạn. Nhưng mình cần là có thể chọn file để mở ấy.
Bạn nào biết giúp mình với

 

[Muforever107]

Chắc rằng code bài trên chạy lần 2 trở đi có vấn đề.

Bạn biết thì giúp mình với

 

[befaint]

Bạn biết thì giúp mình với

Bạn cần giúp gì? File?
Bạn tự tìm trên diễn đàn rất nhiều...