Mở Excel thông qua Access VBA (lỗi)

Tôi có đoạn mã VBA sau trong Access, dùng để mở một bảng tính Excel:

Private Sub cmd_UlAssess_Click()
Khi xảy ra lỗi, hãy chuyển đến hàm xử lý lỗi (err_Handler).

Dim xl As Object
Đặt xl = CreateObject("excel.application")

ws1 = "Đánh giá"
ws2 = "StockOrder"
ws3 = "Chú thích"
ws4 = "Hóa đơn"


strFile = txt_UlAssess
Nếu strFile = "" Hoặc IsNull(strFile) Thì
MsgBox "Bạn chưa chọn tệp đánh giá!", vbCritical, "Lỗi"
Me.txt_UlAssess.SetFocus
Chuyển đến trình xử lý thoát
Khác
Với cỡ XL
.Visible = True
.Workbooks.Open (strFile)
Nếu wb.Sheets(1).Name <> "Đánh giá" thì
MsgBox "Đây không phải là mẫu đánh giá hợp lệ!", vbCritical, "Lỗi"
Chuyển đến trình xử lý thoát
Kết thúc nếu
Kết thúc bằng
Kết thúc nếu

Vì lý do nào đó, nó báo lỗi khi đến dòng `.workbook.open (strFile)` - tôi đã thử nhiều cú pháp khác nhau, v.v., nhưng vẫn báo lỗi khi mở sổ làm việc. Tôi cũng nhớ rằng chức năng này đã từng hoạt động hoàn hảo trước đây và theo như tôi biết thì không có gì thay đổi. Thông báo lỗi như sau: Lỗi: -2147417851, phương thức 'Open' của đối tượng 'Workbooks' bị lỗi.

Có ai đó có thể giúp giải quyết vấn đề này không?

Cảm ơn trước!




Trả lời:
Giá trị của biến strFile là gì khi xảy ra lỗi?

Trả lời:
Tôi vừa kiểm tra mã của bạn và nó mở một bảng tính bình thường, vậy câu hỏi là nội dung của strFile là gì? >Bạn đang lấy nó từ điều khiển txt_UIAssess, vậy bạn có thể cho biết nội dung của điều khiển này là gì không?

Trả lời:

Giá trị là:

"C:\Users\PsyberFox\Documents\PsyberConsulting\Clients\PNPForms\ASSESMENT 23 02 2012.xls"



Trả lời:

Bạn có chắc chắn rằng có một bảng tính với đường dẫn và tên tệp chính xác như vậy không? Chỉ cần khác biệt một khoảng trắng cũng có thể gây ra lỗi.

Và nếu vậy, liệu tệp Excel đó có đang được mở sẵn trong Excel khi bạn chạy đoạn mã không?



Trả lời:

Chắc chắn 100% - chương trình mở được tệp bảng tính, và ngay sau khi mở xong, nó báo lỗi như đã nêu ở trên...

Vậy là, nó tìm thấy tập tin bài tập và thậm chí mở nó ra bình thường, nhưng sau đó lại bị lỗi...



Trả lời:

Điều gì sẽ xảy ra nếu bạn thay đổi dòng đó?

.Workbooks.Open (strFile)

ĐẾN

Đặt wb = .Workbooks.Open(strFile)



Trả lời:

Sau đó tôi nhận được lỗi sau:

Lỗi: -214747851 Lỗi tự động hóa. Máy chủ đã ném ra một ngoại lệ.



Trả lời:
Có vẻ như Access gặp sự cố khi giao tiếp với Excel. Tôi e rằng tôi không thể giúp bạn về vấn đề này - hy vọng rằng người khác sẽ có thể giúp bạn. Xin lỗi!

Comments

Post a Comment

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu Tôi đã tạo một bộ bảng chấm công của nhân viên trong một thư mục, mỗi bảng được xác định bằng tên và số ID của nhân viên, đồng thời được bảo vệ bằng Số Bảo hiểm Quốc gia của nhân viên làm mật khẩu. Họ sẽ thêm các yêu cầu làm thêm giờ và số dặm vào bảng tính của họ và tôi sẽ xử lý tất cả các tệp vào cuối tháng để lập bảng lương, thêm tất cả các bản ghi từ mỗi tệp vào bảng cơ sở dữ liệu MS Access. Một vấn đề mà tôi gặp phải là tôi không biết cách mở các tệp được bảo vệ bằng mật khẩu trong VBA để xử lý chúng. Có ai ở đó có kinh nghiệm về quá trình tương tự không? Stuart Trả lời: Xin chào, VBA để bảo vệ và không bảo vệ sổ làm việc Sub ProtectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = "mật khẩu" Đối với mỗi sh trong ActiveWorkbook.Worksheets sh.Protect Mật khẩu:=myPassword tiếp theo Kết thúc phụ Sub UnrotectAll() Dim sh As Worksheet Làm mờ myPassword dưới dạng chuỗi myPassword = ...
Read more

Thu hẹp và mở rộng cột trong Excel

Thu hẹp và mở rộng cột trong Excel Làm thế nào để thu hẹp hoặc mở rộng một cột khi tôi không nhìn thấy thước kẻ có chữ cái cột? Trả lời: Nhấp chuột phải vào cột > Chiều rộng cột > Tại đây, bạn có thể nhập giá trị cho các cột để thu nhỏ hoặc mở rộng. Ví dụ, bạn có thể nhập giá trị 8, gần với chiều rộng cột mặc định. Cột sẽ hiển thị. Bạn có thể kéo theo dấu phân cách cột (hoặc thước kẻ). Nếu những điều trên không phải là điều bạn muốn, tức là nếu chữ cái cột không hiển thị > Chọn bất kỳ ô nào trong cột đó > CTRL+Phím cách để chọn cột > Nhấp chuột phải > Chiều rộng cột như trong bước 1. Trả lời: Chỉ là một ý tưởng, một lựa chọn khác là sử dụng Freeze Panes để bạn luôn có thể nhìn thấy tiêu đề Cột trên cùng để thay đổi kích thước cột... Trên thanh Ribbon, nhấp vào Đóng băng ngăn - Đóng băng hàng trên cùng
Read more

Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0).

Image
Excel: Tìm và trả về "số cuối cùng" trong một cột, trong đó cột chứa: cả ô trống và số dương tùy ý (lớn hơn 0). Tôi có kinh nghiệm sử dụng Excel ở mức trung bình nhưng không thể hiểu cách đạt được những điều sau: 1) Về Cột K, khoảng K12 đến K377. 2) Tất cả các ô trong phạm vi trên đều là ô trống hoặc các ô chứa số dương lớn hơn 0, ví dụ: 14,37. (Lưu ý rằng sự tồn tại của các ô và số trống trong phạm vi này là hoàn toàn tùy ý (không có bất kỳ mẫu logic, lặp lại nào). 3) Tôi đang cố gắng viết một công thức (hoặc sử dụng hàm hoặc macro) yêu cầu như sau: A) Tìm kiếm trong phạm vi K12 đến K377. B) Xác định vị trí và xác định số "cuối cùng" trong cột. (LƯU Ý: Với "cuối cùng", ý tôi là số nằm gần cuối phạm vi của cột nhất. Tức là số gần nhất với hàng 377, trong cột K.) C) Dù số đó là gì, tôi muốn số đó được trả về và hiển thị trong ô tôi chọn, giả sử ô K10. D) Tự động làm mới: Lý tưởng nhất là bất cứ khi nào cột (cột K) số được chỉnh sửa (thêm vào hoặc tr...
Read more