tạo macro mở file txt

[dieutan1107]

các bạn giúp mình tạo macro cho phép mở 1 file txt bất kỳ (mình pick đường dẫn) bằng excel rồi copy toàn bộ dữ liệu file đó rồi paste vào sheet1 file excel đang làm việc với.
Chân thành cám ơn!

 

[vu_tuan_manh_linh]

Thử tìm trên google rồi ngâm cứu code nhé bạn!
https://msdn.microsoft.com/en-us/library/aa265347(v=vs.60).aspx

http://stackoverflow.com/questions/...-actually-open-a-text-file-in-excel-using-vba

 

[befaint]

các bạn giúp mình tạo macro cho phép mở 1 file txt bất kỳ (mình pick đường dẫn) bằng excel rồi copy toàn bộ dữ liệu file đó rồi paste vào sheet1 file excel đang làm việc với.
Chân thành cám ơn!

https://www.giaiphapexcel.com/forum/showthread.php?119941-Cách-xuất-file-txt-vào-excel

 

[dieutan1107]

bạn nào rành về macro giúp mình vấn đề này với
xin cám ơn!

 

[langtuchungtinh360]

các bạn giúp mình tạo macro cho phép mở 1 file txt bất kỳ (mình pick đường dẫn) bằng excel rồi copy toàn bộ dữ liệu file đó rồi paste vào sheet1 file excel đang làm việc với.
Chân thành cám ơn!

function MoDuletxt(mLink as string)
'mLink Đường dẫn đầy đủ + đuôi mở rộng
    Dim Fso As Object
    Dim pathName As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    If Fso.FileExists(CreateObject("Shell.Application").Namespace(&H26&).Self.Path & "\Notepad++\notepad++.exe") Then
        pathName = CreateObject("Shell.Application").Namespace(&H26&).Self.Path & "\Notepad++\notepad++.exe" & " " & mLink
        goto Thoat
    End If
    pathName = "C:\Windows\system32\notepad.exe " & mLink
Thoat:
Shell pathName, 1
end function

thử cái này nha, được thì Ok, ko được thì thôi chưa test
sẽ mở bằng NotePad++ mặc định nếu có
-------------------------------
ps: chết! nhầm, không đọc kỹ tưởng chỉ mở lên coi chơi thôi, còn chép vào Sheet thì khác

 

[dieutan1107]

Sub text()
'
' text Macro
'

'
Workbooks.OpenText Filename:= _
"E:\TO CHUC 2017\THUY DIEN THUONG NHAT\GPS\Waypoints_22-FEB-17 HUNG.txt", _
Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Cells.Select
Selection.Copy
Windows("Book1").Activate
ActiveSheet.Paste
End Sub
Phần bôi đỏ mình sửa lại như thế nào để pick đường dẫn chọn file text bất kỳ nhỉ?
Mọi người giúp mình với

 

[vu_tuan_manh_linh]

Workbooks.OpenText Filename:=Application.GetOpenFilename("Text Files, *.txt"). Bạn thử cách này xem.

 

[dieutan1107]

Workbooks.OpenText Filename:=Application.GetOpenFilename("Text Files, *.txt"). Bạn thử cách này xem.

ok, được rồi bạn ơi.
cám ơn bạn về sự giúp đỡ.!

 

[Tungtron]

Workbooks.OpenText Filename:=Application.GetOpenFilename("Text Files, *.txt"). Bạn thử cách này xem.

Dùng cái này mở ra file excel nhưng bị lỗi font chữ thì phải sửa code như nào cho hết vậy các bác

 

[befaint]

Dùng cái này mở ra file excel nhưng bị lỗi font chữ

Có lỗi gì đâu bạn. Trắng tinh mà.

 

[Tungtron]

Có lỗi gì đâu bạn. Trắng tinh mà.

Nếu mình copy paste bình thường từ file text vào excel một văn bản tiếng việt có dấu thì nó vẫn bình thường nhưng sử dụng workbook.opentext thì không được, bị lỗi font chữ với những chữ có dấu. Ý mình muốn hỏi sửa code làm sao để xử lý trường hợp tiếng việt có dấu

 

[befaint]

thì không được, bị lỗi font chữ với những chữ có dấu

Đâu. Có thấy cái không được, cái lỗi nào đâu. Trắng tinh, trắng phau.

Người hỏi: La làng không được, lỗi tùm lum các kiểu con đà điểu.
Người xem: Chẳng thấy cái gì.

Rồi giờ làm sao để người xem tìm ra con đường chui vào não người hỏi may ra mới biết cái không được, cái lỗi chữ hình thù như thế nào.

 

[Tungtron]

Đâu. Có thấy cái không được, cái lỗi nào đâu. Trắng tinh, trắng phau.

Người hỏi: La làng không được, lỗi tùm lum các kiểu con đà điểu.
Người xem: Chẳng thấy cái gì.

Rồi giờ làm sao để người xem tìm ra con đường chui vào não người hỏi may ra mới biết cái không được, cái lỗi chữ hình thù như thế nào.

Xin lỗi bác,em gửi file đính kèm ạ. Bác xem giúp em với nhé!

 

[befaint]

xem

Thử câu thần chú này xem.

Workbooks.OpenText Filename:=Application.GetOpenFilename("text files,*.txt"), Origin:=65001

 

[Tungtron]

Thử câu thần chú này xem.

Workbooks.OpenText Filename:=Application.GetOpenFilename("text files,*.txt"), Origin:=65001

Cám ơn bác, chuẩn luôn ạ!
Tiện đây bác cho em hỏi cái chuỗi 65001 biểu thị cho cái gì ạ?Em có thể tìm bảng mã tra cứu của nó với keyword là gì ạ?

 

[befaint]

hỏi cái chuỗi 65001 biểu thị cho cái gì

Đơn giản là record macro lúc mở file text kia thôi mà.