Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách mở file Excel bên ngoài từ vba
#1
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
Chữ ký của vuthaiha90 vuthaiha90,gia nhập Thủ Thuật Access từ 26-02 -16.
Reply
Những người đã cảm ơn
#2
(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" 
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn vuthaiha90
#3
(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ì ạ
Chữ ký của vuthaiha90 vuthaiha90,gia nhập Thủ Thuật Access từ 26-02 -16.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Hàm kiểm tra dữ liệu để import dữ liệu từ excel vào access subasatran 14 628 11 Giờ trước
Bài mới nhất: maidinhdan
  [Hàm] Chia xẻ file tùy biến ẩn mọi thứ hay một vài thành thần! NguyenDungAnh 0 173 07-10-18, 12:05 PM
Bài mới nhất: NguyenDungAnh
  Xin hỏi cách : Ép phần mềm phải dùng File có đuôi OCX cũ ledangvan 6 273 07-09-18, 10:42 AM
Bài mới nhất: ongke0711
  [Hỏi] Điền kết quả của 1 query từ Access sang Excel killitmore 0 207 21-08-18, 12:33 PM
Bài mới nhất: killitmore
  Xuất dữ liệu từ Access ra Excel theo điều kiện Minh Tiên 13 1,158 25-05-18, 07:06 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line