Mở Excel từ Access VBA

>

Xin chào,

Tôi đã thêm Thư viện tham chiếu Excel vào Dự án Access VBA của mình và tôi đang sử dụng VBA trong Access 2013. Tôi gặp phải lỗi trong thời gian chạy sau đây khi tôi đọc đến dòng mã cuối cùng "xlApp.Visible = True" . Sau khi mã dừng ở lỗi, tôi có thể mở một trong các tệp và cả hai tệp đều hiển thị. Tôi đã thử tất cả các đề xuất từ ​​trang này và các trang khác mà tôi đã nghiên cứu, và trong suốt cuộc đời mình, tôi dường như không thể tìm ra được đề xuất này. Tôi đã thử sử dụng khối With xung quanh dòng mã cuối cùng với kết quả tương tự. Bất kỳ trợ giúp sẽ được đánh giá rất cao.

"Lỗi thời gian chạy 91: Biến đối tượng hoặc Biến khối không được đặt"

Chức năng công cộng RunPersonnelMacros()

style="margin-left: 30px">

Dim xlApp Như Excel.Application
Dim xlPersonnelBook Dưới dạng Excel.Workbook
Dim xlPersonnelMacroBook Dưới dạng Excel.Workbook
Đường dẫn mờ dưới dạng chuỗi
Dim tên tệp nhân sự dưới dạng chuỗi
Dim PersonnelMacroFileName dưới dạng chuỗi

style="margin-left: 30px">Đường dẫn = "C:\Users\deanh\Documents\" style="margin-left: 30px">Personnelfilename = "Personnel.xlsx" style="margin-left: 30px"> PersonnelMacroFileName = "PersonnelMacro.xlsb" style="margin-left: 30px">Đặt xlPersonnelBook = Workbooks.Open(Path + Personnelfilename) style="margin-left: 30px">Đặt kiểu xlPersonnelMacroBook = Workbooks.Open(Path + PersonnelMacroFileName) ="margin-left: 30px">xlApp.Visible = True >Chức năng kết thúc


Trả lời:

Đó là bởi vì trong khi bạn đã khai báo xlApp, bạn chưa bao giờ khởi tạo nó trước khi sử dụng.

Vì vậy, hãy thêm:

đặt xlApp = Excel.Application mới