Nhờ các Bác chỉnh giúp đoạn code "mở 1 file có đuôi .txt"

[luckylucke_2009]

Nhờ các Bác chỉnh giúp đoạn code "mở 1 file có đuôi .txt" như sau:
'=====================================
Sub open_file()
With Application.FileDialog(1)
.Filters.Clear
.Filters.Add "All files TXT", "*.txt"
.Show
End With
End Sub
'=====================================
Hộp thoại xuất hiện bình thường, nhưng sau khi chọn file txt rồi mà nó vẫn không mở file.

Nhờ các Bác chỉ giáo. Xin cám ơn!

 

[ndu96081631]

Nhờ các Bác chỉnh giúp đoạn code "mở 1 file có đuôi .txt" như sau:
'=====================================
Sub open_file()
With Application.FileDialog(1)
.Filters.Clear
.Filters.Add "All files TXT", "*.txt"
.Show
End With
End Sub
'=====================================
Hộp thoại xuất hiện bình thường, nhưng sau khi chọn file txt rồi mà nó vẫn không mở file.

Nhờ các Bác chỉ giáo. Xin cám ơn!

Code này đâu phải để mở file... Sau khi chọn được file rồi thì phải xử lý tiếp
Ví dụ thế này:

Sub open_txtfile()
  With Application.FileDialog(1)
   .Filters.Clear
   .Filters.Add "All files TXT", "*.txt"
   .Show
   CreateObject("Shell.Application").Open .SelectedItems(1)
  End With
End Sub

 

[hoanggiang1811]

Từ file txt có đổi sang xls được không anh?

 

[ndu96081631]

Từ file txt có đổi sang xls được không anh?

Đương nhiên được.
- Mở Excel
- Vào menu Data\Import External Data\Import Data
- Chọn file TXT và bấm Open