Em chào các bác, em có đoạn code này để mở file excel bên ngoài, mà đang bị vướng về đường dẫn file, nên toàn lỗi. Các bác xem thử xem em làm bị sai ở đâu ạ.
Mã PHP:
Private Sub BangExcel_Click()
Dim xlApp As Excel.Application
Dim wkbNeedOpen As Excel.Workbook
Dim strDocName As String
temp = """"
Set xlApp = New Excel.Application
strDocName = """" & CurrentProject.Path & "\Bang phan ky tra no.xls" & """"
With xlApp
.Visible = True
.UserControl = True
Set wkbNeedOpen = .Workbooks.Open(strDocName)
End With
End Sub
==> bị báo lỗi Run-time error 1004: "Đường dẫn file" không tìm thấy (could not be found). Mà mặc dù nó vẫn nằm đấy, không bị Hide, không bị Protect, không sai tên...
- Nhưng nếu em thay đoạn:
Set wkbNeedOpen = .Workbooks.Open(strDocName) bằng:
Set wkbNeedOpen = .Workbooks.Open("E:\Desktop\Chuong trinh ho tro lam ho so tin dung So Giao dich\Bang phan ky tra no.xls"), tức là đường dẫn đầy đủ thì nó lại chạy
2. Hoặc em dùng cách SaveAs ra file mới cũng bị lỗi ạ:
Mã PHP:
Dim oApp As Object
Dim Ex As Object
Dim strDocName As String
temp = """"
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
strDocName = """" & CurrentProject.Path & "\Bang phan ky tra no.xls" & """"
Set Ex = oApp.Workbooks.Add(strDocName)
oApp.ActiveWorkbook.SaveAs Filename:="""" & CurrentProject.Path & "\Preview\TC\" & "Bang phan ky tra no2.xls" & """"
Set oApp = Nothing
==> bị báo lỗi Run-time error 1004: The file cuold not be accessed.
Em muốn "CurrentProject.Path" vì mang chương trình này đi các máy khác, họ sẽ thích lưu đâu thì lưu, mà mình cố định đường dẫn file thì sang máy khác sẽ khác
Mong các bác xem em sai ở đâu ạ. Em cảm ơn các bác trước