Chào mọi người,
Mình có nhiều file txt có nội dung tương tự nhau. Mỗi file txt có 3 cột. Mình muốn chuyển cột ở giữa của tất cả các file txt vào nhiều cột khác nhau trong cùng 1 sheet của excel.
Mình tìm được đoạn code trên mạng nhưng khi chạy thì nó báo lỗi 53. Xin nhờ mọi người giúp đỡ dùm. File txt trong file đính kèm. Cám ơn mọi người nhiều.
Đoạn code của mình là:
Mã:Sub test() Dim myDir As String, fn As String Dim txt As String, x, i As Long, t As Long Const delim As String = vbTab With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then myDir = .SelectedItems(1) Else Exit Sub End If End With fn = Dir(myDir & "\*.txt") Do While fn <> "" If FileLen(fn) Then t = t + 1 txt = CreateObject("Scripting.FileSystemObject") _ .OpenTextFile(myDir & "\" & fn).ReadAll x = Split(txt, vbCrLf) For i = 0 To UBound(x) If x(i) Like "*" & delim & "*" Then x(i) = Split(x(i), delim)(1) End If Next With Sheets(1).Cells(1, t) .Value = fn With .Offset(1).Resize(UBound(x) + 1) .NumberFormat = "@" .Value = Application.Transpose(x) End With End With End If fn = Dir Loop End SubView more random threads:
- Khai báo để chạy thủ tục trong file *.DLL (dựa ONKEY)
- Help! COPY DỮ LIỆU LÀM BÁO CÁO
- Hướng dẫn sử dụng refox xi+
- Làm thế nào để thay đổi màu nền của ô?
- Mẹ bầu không nên du lịch nếu có những tình trạng sau thì không nên đi du lịch
- Hỏi về việc quản lỷ dữ liệu của chương trình theo các giá trị đại diện 1, 2, 4, 8, 16
- Báo động nhập liệu sai bằng âm thanh.
- Phần mềm chát trên client vàserver:ứng dụng c#remoting
- cho em xin code để protect sheet nhiều sheet trong 1 file một lúc
- Vlookup trên 2 file khác nhau bằng VBA