• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Cách mở file Excel bên ngoài từ vba

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Cách mở file Excel bên ngoài từ vba
• Cách mở file Excel bên ngoài từ vba

• Cách mở file Excel bên ngoài từ vba

  vuthaiha90 > 20-12-17, 05:24 PM

  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

• RE: Cách mở file Excel bên ngoài từ vba

  maidinhdan > 20-12-17, 09:31 PM

  (20-12-17, 05:24 PM)vuthaiha90 Đã viết: 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:

   strDocName = """" & CurrentProject.Path & "\Bang phan ky tra no.xls" & """" 


  
  
  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

  
  Sửa lại  dòng

  Mã PHP:

   strDocName = CurrentProject.Path & "\Bang phan ky tra no.xls" 


• RE: Cách mở file Excel bên ngoài từ vba

  vuthaiha90 > 21-12-17, 08:27 AM

  (20-12-17, 09:31 PM)maidinhdan Đã viết: Sửa lại  dòng

  Mã PHP:

   strDocName = CurrentProject.Path & "\Bang phan ky tra no.xls" 


  
  Em cảm ơn bác, đã đúng theo ý em ạ. Vậy cho em hỏi thêm cái mục temp = """" không để làm gì ạ
• Bài trước Bài tiếp