GIúp sửa code để điều chỉnh đường dẩn lưu file (1 người xem)

[minhtuan55]

Chào cả Nhà GPE !
Em có 2 File Excel ( Chuongtrinh.XLsb và Data.Xlsb ) Khi làm việc File Chuongtrinh thì sẽ ghi dữ liệu vào File Data.XlsB. Hiện tại 2 File này nằm Trong 1 thư mục thì Code chạy OK. Nhưng em Muốn Giấu File Data ở 1 vị trí khác thì sữa code làm sao. mong Mọi người giúp đở . Em xin chân thành cảm ơn !

Code hiện tại 2 file nằm trong thu mục

Public Sub LuudieuvaoDong()
Application.ScreenUpdating = False
Dim Nguon(), Kq(), i&, j&, k&
Nguon = ActiveSheet.Range("A6:t6").Value
With Workbooks.Open(ThisWorkbook.Path & "\Data.xlsb", 0)
     .Sheets("Data_Ban").Range("A3: t1000").Value = Sheets("Data_Ban").Range("A2: t999").Value
    .Sheets("Data_Ban").Range("A2: t2").Value = Nguon
    .Close True
End With
Application.ScreenUpdating = True
End Sub

Em muốn File data nằm 1 vị trí đường dẫn khác nhưng em sữa code như sau . COde báo lỗi

With Workbooks.Open(ThisWorkbook.Path & "C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb", 0)

 

[Hai Lúa Miền Tây]

Em muốn File data nằm 1 vị trí đường dẫn khác nhưng em sữa code như sau . COde báo lỗi
With Workbooks.Open(ThisWorkbook.Path & "C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb", 0)

Bạn xóa bỏ ThisWorkbook.Path & là chạy được trong chỗ mới ("C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb")

 

[ndu96081631]

Chào cả Nhà GPE !
Em có 2 File Excel ( Chuongtrinh.XLsb và Data.Xlsb ) Khi làm việc File Chuongtrinh thì sẽ ghi dữ liệu vào File Data.XlsB. Hiện tại 2 File này nằm Trong 1 thư mục thì Code chạy OK. Nhưng em Muốn Giấu File Data ở 1 vị trí khác thì sữa code làm sao. mong Mọi người giúp đở . Em xin chân thành cảm ơn !

Code hiện tại 2 file nằm trong thu mục

Public Sub LuudieuvaoDong()
Application.ScreenUpdating = False
Dim Nguon(), Kq(), i&, j&, k&
Nguon = ActiveSheet.Range("A6:t6").Value
With Workbooks.Open(ThisWorkbook.Path & "\Data.xlsb", 0)
     .Sheets("Data_Ban").Range("A3: t1000").Value = Sheets("Data_Ban").Range("A2: t999").Value
    .Sheets("Data_Ban").Range("A2: t2").Value = Nguon
    .Close True
End With
Application.ScreenUpdating = True
End Sub

Em muốn File data nằm 1 vị trí đường dẫn khác nhưng em sữa code như sau . COde báo lỗi

With Workbooks.Open(ThisWorkbook.Path & "C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb", 0)

Không hiểu nỗi tại sao bạn có khả năng viết phần mềm để bán mà mấy trò cỏn con này lại không biết
???!!!
Trong mọi trường hợp thì ta có thể thí nghiệm trực tiếp trên cửa sổ Immediate, gõ dòng lệnh:

?ThisWorkbook.Path & "C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb"

Rồi Enter phát, xem kết quả là biết sai ở đâu liền chứ gì

 

[be_09]

Không hiểu nỗi tại sao bạn có khả năng viết phần mềm để bán mà mấy trò cỏn con này lại không biết???!!!
........... ......................sai ở đâu liền chứ gì

Thì vào diễn đàn gom 1 mớ của người thành của ta, cái gì bí thì hỏi tiếp?

 

[minhtuan55]

Bạn xóa bỏ ThisWorkbook.Path & là chạy được trong chỗ mới ("C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb")

cảm ơn bác. bác quá nhiệt tình

 

[minhtuan55]

Không hiểu nỗi tại sao bạn có khả năng viết phần mềm để bán mà mấy trò cỏn con này lại không biết
???!!!
Trong mọi trường hợp thì ta có thể thí nghiệm trực tiếp trên cửa sổ Immediate, gõ dòng lệnh:

?ThisWorkbook.Path & "C:\Users\Administrator\Desktop\thu nghien Ghi\test\Data.xlsb"

Rồi Enter phát, xem kết quả là biết sai ở đâu liền chứ gì

dạ em cảm ơn anh. Em vừa gửi lên xong là em thử nghiệm có kết quả rồi. Do em lở đăng nên không xóa để tài