Đọc nội dung file text.txt gồm 1 hàng và ghi vào ô B6 (1 người xem)

[bitbas.com]

Mình có 1 file text.txt, nội dung chỉ có 1 hàng thôi
VD

Đây là đoạn text

Mình muốn mở file excel, và dùng VBA đề đọc đoạn text đó ghi vào ô B6, thì dùng VBA như thế nào cho đơn giản nhất.
Mình thấy cũng có mấy bài viết về đọc đoạn text nhưng các bạn đó yêu cầu nhiều qua, và các code cũng nhiều quá nên mình rối.

Mong các bạn giúp mình với. cảm ơn các bạn nhiều.

 

[giaiphap]

Đơn giản thế này đây bạn.

Private Sub GPE()


    Dim myFile As String, textline As String
    myFile = "C:\aaa.txt"
    
    Open myFile For Input As #1
            Line Input #1, textline
    Close #1
    Range("B6").Value = textline
End Sub

 

[bitbas.com]

Đơn giản thế này đây bạn.

Private Sub GPE()
    Dim myFile As String, textline As String
    myFile = "C:\aaa.txt"
    
    Open myFile For Input As #1
            Line Input #1, textline
    Close #1
    Range("B6").Value = textline
End Sub

Cảm ơn bạn rất nhiều, và đây là kết quả.

1. Sau khi chạy code của bạn nó đọc được nội dung text trong txt, nhưng nó có thể 2 ký tự lạ ở đằng trước, vậy làm sao để nó ko xuất hiện ký tự lạ đó?
2. Bạn nào có biết cách xuất nội dung text ở ô B4, ra file C:\text.txt không? giúp mình với luôn nha
Cảm ơn các bạn nhiều.

 

[giaiphap]

Thì ít ra khi yêu cầu bạn phải nói là đọc dữ liệu từ file text có chứa chuỗi unicode. Bạn xem lại file.

 

[bitbas.com]

Thì ít ra khi yêu cầu bạn phải nói là đọc dữ liệu từ file text có chứa chuỗi unicode. Bạn xem lại file.

Cảm ơn ban nhiều, mình đọc code không hiểu gì? nhung miễn sào làm dc viec là ok lắm rồi.
Mình chạy nó báo lỗi đó, lỗi ngay câu lệnh này
Set TextSource = fspenTextFile(FilesToOpen, 1, False, -2)
vậy giờ mình phải làm sao?

 

[giaiphap]

Lỗi của bạn là do trong ổ đĩa c không có tệp tin Text.txt

 

[bitbas.com]

Lỗi của bạn là do trong ổ đĩa c không có tệp tin Text.txt

Mình/an/nut/ghi/file/text/no/van/bao/loi/nhu/vay/ban/oi
xin/loi/vi/ko/ghi/dau/cach/duoc/ko/tieng/viet/.