đọc và chia cột các dữ liệu từ file text (1 người xem)

[giaosy]

Các bác giúp em giải thích tại sao đoạn code này cứ báo lỗi ở dòng chữ đỏ với,

Sub NHAP_TEXT()
        With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;D:\nguon.txt" , Destination:=Range("A2"))
        .Name = "New Text Document"
        .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 = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(1, 2, 1, 2)
        .TextFileTrailingMinusNumbers = True
        [COLOR=red].Refresh BackgroundQuery:=False[/COLOR]
    End With
End Sub

không biết ngoài cách chia cột như thế này thì có cách nào khác hay hơn không. (đây là em ghi macro ra đấy )
cảm ơn các bác

 

[giaosy]

trời ơi không ai giúp em sao

 

[ptm0412]

Code chạy lần 2 mới bị phải không?
Phải xoá vùng dữ liệu cũ (nguyên cột) mới chạy được:

ActiveSheet.Range("A:E").clear

 

[xichdragon]

Bạn nên xem lại xem file D:\Nguon.txt có tồn tại dữ liệu phù hợp không nhé.

 

[kelvin]

Có file nầy mình cũng thường sử dụng, không biết post vào đâu cho gởi nhờ vào đây nhé.Bảng qui định viết tắt khi viết code vb:
http://www.4shared.com/file/63057722/2a3d338d/Prefixe_VB.html

 

[Nguyễn Xuân Sơn]

Bạn mở Excel mở open => tại files of type bạn chọn all files, chọn fai bạn cần chỉnh ở danh sách fai => OK xuất hiện bảng Text import Wizarrd ở đó có một bảng mô phỏng fai text của bạn bạn vào next và bấm vào các cột cần phải chia sau đó finish fai text của bạn đẫ thành fai Excel và việc cuối cùng bạn chỉ cần cân chỉnh cho hợp lý . Chúc bạn thành công.