xuất file txt qua excel (1 người xem)

[huonglien1901]

Chào mọi người!

Em muốn xuất file txt qua excel thì phải làm như thế nào nhờ mọi người giúp

Em cảm ơn mọi người nhiều

 

[giaiphap]

Đâu cần phải xuất bạn vì trong file txt của bản chẳng có cái gì cả.

 

[huonglien1901]

Dạ, tại em gửi nhầm file, em gủi lại cho anh xem

 

[giaiphap]

Dùng thử đoạn code này thử xem.

Public Sub GPE()
Dim myFile As String, textline As String, i As Long
   myFile = "C:\Xuat.txt"
   i = 1
    Open myFile For Input As #1
        Do Until EOF(1)
            i = i + 1
            Line Input #1, textline
            Cells(i, 1) = textline
        Loop
    Close #1
End Sub

 

[huonglien1901]

Dùng thử đoạn code này thử xem.

Public Sub GPE()
Dim myFile As String, textline As String, i As Long
   myFile = "C:\Xuat.txt"
   i = 1
    Open myFile For Input As #1
        Do Until EOF(1)
            i = i + 1
            Line Input #1, textline
            Cells(i, 1) = textline
        Loop
    Close #1
End Sub

code bị lỗi rồi anh ơi. nó bị lỗi dòng này

Open myFile For Input As #1(lỗi 53)

 

[giaiphap]

code bị lỗi rồi anh ơi. nó bị lỗi dòng này

Open myFile For Input As #1(lỗi 53)

Bạn xem lại cái file txt của bạn đúng đường dẫn chưa.

 

[huonglien1901]

Bạn xem lại cái file txt của bạn đúng đường dẫn chưa.

dạ file em để ngoài desktop đó anh, ví dụ file em để ngoài desktop thì chỉnh sửa như thế nào anh?

 

[huonglien1901]

Anh ơi, ví dụ em thêm nhiều file txt thì con trỏ thêm bắt dầu kế tiếp.

Anh hỗ trợ giúp em với!

 

[giaiphap]

Anh ơi, ví dụ em thêm nhiều file txt thì con trỏ thêm bắt dầu kế tiếp.

Anh hỗ trợ giúp em với!

Bạn sửa lại thế này, nhớ đặt file txt nằm chung với thư mục chứa file excel, còn đường dẫn đến màn hình desktop của bạn làm sao tôi biết đường dẫn như thế nào (Mỗi máy mỗi khác).

Public Sub GPE()
Dim myFile As String, textline As String, i As Long
   myFile = ThisWorkbook.Path & "\Xuat.txt"
   i = Sheet1.Range("A65000").End(xlUp).Row
    Open myFile For Input As #1
        Do Until EOF(1)
            i = i + 1
            Line Input #1, textline
            Cells(i, 1) = textline
        Loop
    Close #1
End Sub

 

[VetMini]

Public Function DesktopLocation() As String
DesktopLocation = CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Function

phaiCuaToi = DestopAdrdress() & Application.PathSeparator & "xuat.txt"

 

[huonglien1901]

Public Function DesktopLocation() As String
DesktopLocation = CreateObject("WScript.Shell").SpecialFolders("Desktop")
End Function

phaiCuaToi = DestopAdrdress() & Application.PathSeparator & "xuat.txt"

code này sử dụng sao đây anh? anh có thể áp dụng vào file em được không?

 

[huonglien1901]

Bạn sửa lại thế này, nhớ đặt file txt nằm chung với thư mục chứa file excel, còn đường dẫn đến màn hình desktop của bạn làm sao tôi biết đường dẫn như thế nào (Mỗi máy mỗi khác).

Public Sub GPE()
Dim myFile As String, textline As String, i As Long
   myFile = ThisWorkbook.Path & "\Xuat.txt"
   i = Sheet1.Range("A65000").End(xlUp).Row
    Open myFile For Input As #1
        Do Until EOF(1)
            i = i + 1
            Line Input #1, textline
            Cells(i, 1) = textline
        Loop
    Close #1
End Sub

Dạ code ra đúng rồi anh ơi!

Em cảm ơn anh rất nhiều!