Mình xin nhờ mọi người giúp đỡ code về vấn đề này ! tình hình là mình có số lượng lớn file test ( txt), trong mỗi file txt mình muốn lấy nội dung của dòng đầu tiên file đó để làm tiêu đề cho chính file đó ! mình có gửi kèm theo 1 folder ạ !
Xử lý số lượng lớn file Test
- Thread starter kechuong
- Ngày gửi
mình đã có tìm rồi, nhưng tìm hoài không thấy, bí quá nên mình mới đăng lên nhờ moi nguoi giúp đỡ
- Tham gia
- 17/8/20
- Bài viết
- 3
- Được thích
- 2
bạn có thể tham khảo cái này nè:
https://www.giaiphapexcel.com/diendan/threads/cần-giúp-đỡ-viết-code-vba-về-việc-lấy-tên-và-nội-dung-nhiều-file-text-vào-trong-excel.96503/
ai ơi... nhớ lấy câu này giúp người thì giúp cho trót không nữa vời thế kia nha... tội người ta trong ngóng....
Lời đầu tiên mình sẽ dành những lời tốt đẹp nhất gửi đến bạn nha! cám ơn bạn nhiều lắm ! mình vừa tham khảo những code trên, rất bổ ích, nhưng mình muốn lấy nội dung của dòng đầu tiên file test đó để làm tiêu đề cho chính file đó lun ( tiêu đề file hiện tại của mình là new 1608。。。mình muốn thay thế tiêu đề đó đi), bạn giúp mình bước đó với ạ !
- Tham gia
- 17/8/20
- Bài viết
- 3
- Được thích
- 2
Cái này tôi chưa làm lần nào, có thể bạn chờ thành viên khác giúp bạn nha...
Song song tôi cũng sẽ nghiên cứu dùm bạn nha...
Vậy thì chuẩn bị tra lời những câu hỏi kế tiếp. Điển hình:
"chỉnh giùm code với, thử rồi mà không đúng..."
Có lẽ quên mất mình là kẻ chuyên môn đòi "code phải chạy đúng 100%". Và không tự chỉnh sửa được.
Mình cám ơn bạn nhiều nha!
- Tham gia
- 17/8/20
- Bài viết
- 3
- Được thích
- 2
Tôi đã nghiên cứu được cho bạn nè...
Bạn chạy code sau:
Nhưng tôi vướng ở chỗ chữ viết trong file text của bạn là tiếng Trung nên khi đặt tên file thành "mấy con giun" mất tiêu rồi.
cái này tôi thua... hic
Khả năng = kiến thức + thời gian
----------------------------------------------
Bạn chạy code sau:
Mã:
Option Explicit
Sub Main()
Dim vFile, vItem, arr()
Dim oFSO As Object
Dim sPath As String, sFristLine As String, sNewName As String
vFile = Application.GetOpenFilename("Text Files, *.txt", , , , True)
If IsArray(vFile) Then
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each vItem In vFile
sPath = oFSO.GetParentFolderName(vItem)
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
With oFSO.OpenTextFile(vItem, 1, , -2)
sFristLine = .ReadLine
.Close
End With
sNewName = sPath & sFristLine & ".txt"
If Not oFSO.FileExists(sNewName) Then oFSO.MoveFile Source:=vItem, Destination:=sNewName
Next
End If
Set oFSO = Nothing
End Subcái này tôi thua... hic
Bài đã được tự động gộp:
Trong khả năng tôi làm được thì làm thôi!
Khả năng = kiến thức + thời gian
----------------------------------------------
Cái này tôi không hiểu???
Bạn ơi ! chạy code
oFSO.MoveFile Source:=vItem, Destination:=sNewName
thấy báo lỗi chỗ này nè, bạn có thể giúp mình thêm được không !
Bài viết mới nhất
- Đã giải quyết
- Question
