Chào cả nhà,
Em thường xuyên mở file txt, và khai báo các tham số khi ở txt đều cùng một kiểu, em đang cố gắng tập viết 1 macro để nó tự động chuyển file txt qua excel với các tham số do mình định sẵn. Mọi người giúp em.
Các bước và tham số em chọn như sau:
Đây là bước 1:

Bước 2:

Bước 3:

Sub openText()
Workbooks.OpenText Filename:="E:/Test_2/sample.txt", _
DataType:=xlDelimited,_
File origin: 65001: Unicode (UTF-8)_ --> Cái này em chưa biết chọn thế nào.
TextQualifier:={none},_
ConsecutiveDelimiter:=False,_
Tab:=True,_
......
End sub
Ở Bước 3: Chọn tất cả các columns trong data preview rồi sau đó chọn Column data format là text. Bước này em không biết chọn thế nào hết.
Mong mọi người giúp đỡ.
Em tóm lại như thế này nhe:
Input: đường dẫn chứa các file txt (có 1 hoặc nhiều file txt trong đó)
Output: là các file *xlsx cùng tên file txt. và được chọn các tham số như ở 3 bức hình trên.
Gửi kèm cho mọi người file đính kèm
Cám ơn mọi người
Em thường xuyên mở file txt, và khai báo các tham số khi ở txt đều cùng một kiểu, em đang cố gắng tập viết 1 macro để nó tự động chuyển file txt qua excel với các tham số do mình định sẵn. Mọi người giúp em.
Các bước và tham số em chọn như sau:
Đây là bước 1:

Bước 2:

Bước 3:

Sub openText()
Workbooks.OpenText Filename:="E:/Test_2/sample.txt", _
DataType:=xlDelimited,_
File origin: 65001: Unicode (UTF-8)_ --> Cái này em chưa biết chọn thế nào.
TextQualifier:={none},_
ConsecutiveDelimiter:=False,_
Tab:=True,_
......
End sub
Ở Bước 3: Chọn tất cả các columns trong data preview rồi sau đó chọn Column data format là text. Bước này em không biết chọn thế nào hết.
Mong mọi người giúp đỡ.
Em tóm lại như thế này nhe:
Input: đường dẫn chứa các file txt (có 1 hoặc nhiều file txt trong đó)
Output: là các file *xlsx cùng tên file txt. và được chọn các tham số như ở 3 bức hình trên.
Gửi kèm cho mọi người file đính kèm
Cám ơn mọi người