Thư viện đối tượng Excel phiên bản 10.0 so với 11.0

Kính thưa,

Tôi có tệp xls 2003 được lưu trên điểm chia sẻ web. Tệp kết hợp các chức năng vbs, trong đó một chức năng đang tải dữ liệu lên tệp này (từ một tệp khác trên cùng một điểm chia sẻ) bằng cách nhấp vào nút lệnh.

Khi tôi mở tệp từ vị trí của mình, tất cả các chức năng đều hoạt động mà không gặp vấn đề gì.

Khách hàng của tôi đang chạy nó từ vị trí của anh ấy, anh ấy cũng đang sử dụng Excel 2003, thời điểm anh ấy muốn tải dữ liệu lên thì anh ấy gặp lỗi.

Thông báo: Phương thức "Bảng tính" của đối tượng "_Global" không thành công

Tôi đã kiểm tra và có vẻ như trong tài liệu tham khảo anh ấy có thư viện đối tượng 10.0 và tôi có 11.0

Tôi có thể làm gì để thống nhất mã hóa để nó không giống với phiên bản Thư viện đối tượng?

Vui lòng xem mã hóa bên dưới (in đậm ở nơi hiện đang bị lỗi)

--------------------------------------------------------------------------------

Riêng tư Sub CommandButton1_Click() 'Tải lên AP_AR

' tải lên dữ liệu từ tệp Oracle AP_AR_TOTALS

r = 7
r1 = 5

currWorkbook = ThisWorkbook.Name
sFolder = Bảng tính ("Chào mừng").TextBox3.Value

fName = "AP_AR_TOTALS.xls" 'tên của tập tin tổng AP_AR
sorceLocation = "http://infoshare.common.eu.corp.toyota.com/VAT/ " & "TGB" & "/CURRENTMONTH/Shared%20Documents/" & "AP_AR_TOTALS.xls"

Nếu CommandButton3 = Sai thì

Application.Workbooks.Open Tên tệp:=sorceLocation 'AP_AR tổng kích hoạt tệp

Thực hiện While Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 7) <> "END" 'điều chỉnh tên tab !!!!

Workbooks(currWorkbook).Worksheets("Tax Master Tab").Cells(r1, 1) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 1)
Workbooks(currWorkbook).Worksheets("Tax Master Tab").Cells(r1, 2) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 2)
Workbooks(currWorkbook).Worksheets("Tax Master Tab").Cells(r1, 3) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 3)
Workbooks(currWorkbook).Worksheets("Tax Master Tab").Cells(r1, 4) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 4)
Workbooks(currWorkbook).Worksheets("Tax Master Tab").Cells(r1, 5) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 5)
Workbooks(currWorkbook).Worksheets("Tax Master Tab").Cells(r1, 6) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(r, 6)

r1 = r1 + 1
Workbooks(currWorkbook).Worksheets("Tax Master Tab").Rows(r1).EntireRow.Insert
r = r + 1
Vòng lặp
Workbooks(currWorkbook).Worksheets("Recon.").Cells(2, 1) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(2, 4)
Workbooks(currWorkbook).Worksheets("Recon.").Cells(4, 1) = Workbooks(fName).Worksheets("AP_AR_TOTALS").Cells(3, 4)
Kết thúc nếu

Trả lời:

Tôi đã kiểm tra và có vẻ như trong tài liệu tham khảo anh ấy có thư viện đối tượng 10.0 và tôi có 11.0

Tôi có thể làm gì để thống nhất mã hóa để nó không giống với phiên bản Thư viện đối tượng?

Vui lòng xem mã hóa bên dưới (in đậm ở nơi hiện đang bị lỗi)

IMHO đây không phải là nguyên nhân gây ra vấn đề của bạn, nó chỉ là một triệu chứng.

Tôi đoán bạn đã đặt tham chiếu đến thư viện đối tượng 11.0 trong sổ làm việc của mình, nghĩa là bạn đang sử dụng liên kết sớm. Giải pháp là sử dụng liên kết muộn và sử dụng CreateObject cho các đối tượng bên ngoài.

Bạn đã đặt tham chiếu nào theo cách thủ công? Bạn có thể tải sổ làm việc lên một máy chủ lưu trữ tệp trực tuyến, ví dụ: www.dropbox.com không?

Andreas.


Trả lời:

Tôi đã kiểm tra và có vẻ như trong tài liệu tham khảo anh ấy có thư viện đối tượng 10.0 và tôi có 11.0

Tôi có thể làm gì để thống nhất mã hóa để nó không giống với phiên bản Thư viện đối tượng?

Vui lòng xem mã hóa bên dưới (in đậm ở nơi hiện đang bị lỗi)

IMHO đây không phải là nguyên nhân gây ra vấn đề của bạn, nó chỉ là một triệu chứng.

Tôi đoán bạn đã đặt tham chiếu đến thư viện đối tượng 11.0 trong sổ làm việc của mình, nghĩa là bạn đang sử dụng liên kết sớm. Giải pháp là sử dụng liên kết muộn và sử dụng CreateObject cho các đối tượng bên ngoài.

Bạn đã đặt tham chiếu nào theo cách thủ công? Bạn có thể tải sổ làm việc lên một máy chủ lưu trữ tệp trực tuyến, ví dụ: www.dropbox.com không?

Andreas.

Andreas thân mến,

Khi tôi kiểm tra các tài liệu tham khảo của mình, tôi có một thư viện được thiết lập là 11.0, vấn đề là tôi không thể thay đổi nó thành 10.0 vì nó không tồn tại trong ref của tôi.

Mã cho việc đóng sách muộn sẽ trông như thế nào và tôi nên đặt nó ở đâu?

Cảm ơn sự hỗ trợ của bạn

Trả lời:

Khi tôi kiểm tra các tài liệu tham khảo của mình, tôi có một thư viện được thiết lập là 11.0, vấn đề là tôi không thể thay đổi nó thành 10.0 vì nó không tồn tại trong ref của tôi.

Đó không phải là vấn đề, tham chiếu đến thư viện được đặt tùy thuộc vào GUID.

PC của bạn đề cập đến phiên bản 11 vì bạn có Excel 2003, khách hàng của bạn đề cập đến phiên bản 10 vì họ có Excel 2002. Đó là điều bình thường và không phải là vấn đề.

Một lần nữa: Bạn đã đặt tham chiếu nào theo cách thủ công? Bạn có thể tải sổ làm việc lên một máy chủ lưu trữ tệp trực tuyến, ví dụ: www.dropbox.com không?

Andreas.

Trả lời:

Hiện tại tôi không thể vì trang web này nằm trong môi trường làm việc của tôi

Tôi không đặt bất kỳ tài liệu tham khảo nào, nó đã được cài đặt sẵn.

Nếu bạn cho tôi email của bạn, tôi có thể gửi nó dưới dạng tệp đính kèm.

Jakub

Trả lời:

Nếu bạn cho tôi email của bạn, tôi có thể gửi nó dưới dạng tệp đính kèm.

Bạn có thể tìm thấy địa chỉ email của tôi trong hồ sơ của tôi.

Andreas.