Em chào / ạEm có viết 1 đoạn code VBA để đưa dữ liệu từ file excel vào

Bạn xem đã đúng đường dẫn chưa?

Dạ, em vào mục chứa file, bấm chuột phải vào file, rồi chọn properties, và copy đường dẫn ở Location ạ. Thầy xem giúp em là em làm như thế để copy đường dẫn thì có đúng không ạ

bạn để với đường dẫn không dấu nhé.

Bạn để tên Forder thành Thu_VBA và thử lại code nhé.

Nếu đổi tên forder Thành Thu_VBA thì có phải code sẽ thay đổi lại như này phải không ạ, em chưa biết gì mấy về VBA, em thấy đoạn code này họ dạy trên youtube thấy hợp với những gì em đang cần nên em copy về để làm nhưng nó cứ lỗi.
đây là đoạn code, thầy xem giúp em xem đoạn code này lỗi ở đâu giúp em với ạ.
Vì sau khi em đổi tên thì em thấy nó báo lỗi như này ạ

Sub Thu_VBA()

    Dim num_of_cust As Long

    Dim num_of_column As Long

    Dim i As Long, j As Long

    Dim Thu_VBA As Object

    Dim t As Object

    num_of_column = 81

    num_of_cust = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row - 1

    With CreateObject("Word.application")

        .Visible = True

        For i = 1 To num_of_cust

            Set Thu_VBA = .Documents.Open("C:\Users\a\Desktop\Th? VBA\Thu_VBA.docx")

            Set t = Thu_VBA.Content

            For j = 1 To num_of_column

                t.Find.Execute _

                    Findtext:=Sheet1.Cells(1, j).Value, _

                    ReplateWith:=Sheet1.Cells(i + 1, j).Value, _

                    Replace:=wdReplaceAll

            Next

            Thu_VBA.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & i & "-Bat_Tu.docx"

        Next

        .Quit

    End With

    Set t = Nothing

    Set Thu_VBA = Nothing

End Sub

Bạn đẩy file lên giúp mình nhé.

Https://gitiho.com/blog/huong-dan-upl... 

file là tài liệu làm việc của công ty, nó cũng hơi nhạy cảm, nên cái này em có thể nhờ thầy untraview hỗ trợ riêng được không ạ

Em có thể nhờ thầy untraview hỗ trợ riêng được không ạ