Lấy dữ liệu tự động

[kokano90]

Gửi các thầy cô
Em có bài toán muốn nhờ các thầy cô giúp đỡ ạ
Em có nhiều file txt:

Ví dụ file 1.txt , 2.txt



Hiện tại em muốn lấy dữ liệu dòng đầu tiên trong file txt để đưa vào trong file excel và trả lần lượt theo số dòng khi chọn nhiều file
Nhờ các thầy cô giúp đỡ.
Em xin cám ơn ạ

 

[thnghiachau]

Gửi các thầy cô
Em có bài toán muốn nhờ các thầy cô giúp đỡ ạ
Em có nhiều file txt:

Ví dụ file 1.txt , 2.txt
View attachment 243380


Hiện tại em muốn lấy dữ liệu dòng đầu tiên trong file txt để đưa vào trong file excel và trả lần lượt theo số dòng khi chọn nhiều file
Nhờ các thầy cô giúp đỡ.
Em xin cám ơn ạ

gởi bạn file nè...

 

[Cu Tồ]

gởi bạn file nè...

Bác cho hỏi nếu như lấy toàn bộ dữ liệu thì code sửa lại như thế nào ạ?

 

[thnghiachau]

Bác cho hỏi nếu như lấy toàn bộ dữ liệu thì code sửa lại như thế nào ạ?

Range("B" & i).Value = .ReadText(-2)
chuyển thành
Range("B" & i).Value = .ReadText(-1)
bạn xem cái này nè: https://www.w3schools.com/asp/met_stream_readtext.asp
còn về ADO Stream thì xem cái này: https://www.w3schools.com/asp/ado_ref_stream.asp

 

[Cu Tồ]

Range("B" & i).Value = .ReadText(-2)
chuyển thành
Range("B" & i).Value = .ReadText(-1)
bạn xem cái này nè: https://www.w3schools.com/asp/met_stream_readtext.asp

Cảm ơn bác rất nhiều ạ

 

[kokano90]

gởi bạn file nè...

Cám ơn anh rất nhiều ạ
Cho em hỏi thêm 1 chút. Khi lấy được dữ liệu vậy rồi. Có các nào thay chính tên file mình vừa lấy bằng dữ liệu ở dòng đầu không anh?

 

[thnghiachau]

Cám ơn anh rất nhiều ạ
Cho em hỏi thêm 1 chút. Khi lấy được dữ liệu vậy rồi. Có các nào thay chính tên file mình vừa lấy bằng dữ liệu ở dòng đầu không anh?

có nhiều cách, một trong đó là dùng " Scripting.FileSystemObject " đó bạn.

 

[kokano90]

có nhiều cách, một trong đó là dùng " Scripting.FileSystemObject " đó bạn.

Cám ơn anh đã phản hổi. Hihi. Nhìn cái SCripting.... em thấy lạ quá. Có thể phiền anh hỗ trợ thêm được không ạ.
Xin cám ơn anh nhiều

 

[phulien1902]

'----------------------

 

[kokano90]

gởi bạn file nè...

Em chào anh. Có sử dung code của anh. Mà không biết biến tấu thế nào nữa.
Hiện tại em có sử dụng code này

Sub RenameFiles()
  Dim i As Long, n As Long
  Dim OldFile As String, NewFile As String, strPath As String
  Dim fso As Object, vFile, ar
  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  iRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
  arr = Sheets("Data").Range("A2:B" & iRow).Value
  vFile = Application.GetOpenFilename("Text Files, *.txt", , , , True)
  If TypeName(vFile) = "Variant()" Then
    strPath = Left$(vFile(1), InStrRev(vFile(1), "\"))
    For i = 1 To UBound(vFile)
      If Len(arr(i, 1)) Then
        If Len(arr(i, 2)) Then
            n = n + 1
            OldFile = CStr(vFile(i))
            NewFile = strPath & arr(i, 2) & ".txt"
            fso.MoveFile OldFile, NewFile
          End If
        End If
      Next
    MsgBox "Doi ten " & n & " files", , "Xong!"
  End If
End Sub

của thầy @ndu96081631
Nhưng ngồi test nó không chịu đổi tên file bên trong. Nhờ anh và các thầy cô có thể chỉ giúp cho em nó đang sai chỗ nào không ạ?
Hay là do tên sau khi được đổi nó có gì bất thường. Do em đổi sang dạng abc thì nó vẫn đổi được ạ.

Em xin cám ơn nhiều.

 

[thnghiachau]

Em chào anh. Có sử dung code của anh. Mà không biết biến tấu thế nào nữa.
Hiện tại em có sử dụng code này

Sub RenameFiles()
  Dim i As Long, n As Long
  Dim OldFile As String, NewFile As String, strPath As String
  Dim fso As Object, vFile, ar
  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  iRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
  arr = Sheets("Data").Range("A2:B" & iRow).Value
  vFile = Application.GetOpenFilename("Text Files, *.txt", , , , True)
  If TypeName(vFile) = "Variant()" Then
    strPath = Left$(vFile(1), InStrRev(vFile(1), "\"))
    For i = 1 To UBound(vFile)
      If Len(arr(i, 1)) Then
        If Len(arr(i, 2)) Then
            n = n + 1
            OldFile = CStr(vFile(i))
            NewFile = strPath & arr(i, 2) & ".txt"
            fso.MoveFile OldFile, NewFile
          End If
        End If
      Next
    MsgBox "Doi ten " & n & " files", , "Xong!"
  End If
End Sub

của thầy @ndu96081631
Nhưng ngồi test nó không chịu đổi tên file bên trong. Nhờ anh và các thầy cô có thể chỉ giúp cho em nó đang sai chỗ nào không ạ?
Hay là do tên sau khi được đổi nó có gì bất thường. Do em đổi sang dạng abc thì nó vẫn đổi được ạ.
View attachment 243416
Em xin cám ơn nhiều.

Mình nghĩ bạn chạy bị lỗi là do cái "dòng dữ liệu đầu" có những ký tự làm tên file không chấp nhận

Hoặc là do chữ tiếng Trung làm tên file có vấn đề???
Mục đích của bạn là gì? cần list ra danh sách như bài #1 và thêm cái dụ đổi tên file dùng "dòng dữ liệu đầu" làm tên file luôn?

 

[kokano90]

Mình nghĩ bạn chạy bị lỗi là do cái "dòng dữ liệu đầu" có những ký tự làm tên file không chấp nhận
View attachment 243441
Hoặc là do chữ tiếng Trung làm tên file có vấn đề???
Mục đích của bạn là gì? cần list ra danh sách như bài #1 và thêm cái dụ đổi tên file dùng "dòng dữ liệu đầu" làm tên file luôn?

Cám ơn anh đã phản hồi.
Đúng rồi anh ạ. Mục đích cuối cùng là lấy dòng đầu ấy đặt làm tên tệp txt tương ứng luôn ấy ạ.
Ngồi test từ hôm qua tới giờ. nó báo "bad file name or number" mà em chưa biết phải làm thế nào.
Rất mong anh và mọi người giúp đỡ ạ

 

[thnghiachau]

Cám ơn anh đã phản hồi.
Đúng rồi anh ạ. Mục đích cuối cùng là lấy dòng đầu ấy đặt làm tên tệp txt tương ứng luôn ấy ạ.
Ngồi test từ hôm qua tới giờ. nó báo "bad file name or number" mà em chưa biết phải làm thế nào.
Rất mong anh và mọi người giúp đỡ ạ

Mình làm được cho bạn rồi.
Chẳng qua cái "dòng đầu" mà code nó lấy có ký tự "Xuống hàng" Chr(13) nên mới bị như vậy.
Bạn coi file đính kèm nha.

Bài đã được tự động gộp: 19/8/20

Cám ơn anh đã phản hổi. Hihi. Nhìn cái SCripting.... em thấy lạ quá. Có thể phiền anh hỗ trợ thêm được không ạ.
Xin cám ơn anh nhiều

Bạn tìm hiểu và ứng dụng nó thì hết lạ thôi.

 

[kokano90]

@thnghiachau . Cám ơn anh ạ. Nhìn vào code thấy ngắn nhỉ. Hóa ra là nó có kí tự xuống dòng ạ