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:
- Hỏi về về cách sử dụng Redim
- Hàm mở Dialog đa dụng, nhận diện nút cancel
- Khai báo biến và kiểm tra thứ trong tuần.
- Hỏi về cách viết code để tự động tính tổng?
- Cách khắc phục Hàm Vlookup đối với dữ liệu trên 100 nghìn dòng (rows)
- Xuất dữ liệu từ Grid của Vb6 sang Excel
- ?Khai báo mảng
- Bật chức năng nghe của Translate google
- Xin giúp đỡ 1 đoạn code vb copy có điều kiện trong excel.
- Nhờ viết VBA lọc dữ liệu nhiều điều kiện