Set object Workbook trong VB6 cho file Excel đã mở sẵn

[thnghiachau]

Xem video nhé.
Với cái vụ getObject này thì cái lỗi 429 nó cũng chỉ xuất hiện khi tôi chạy trong Access, chạy trong VB nó thành 0 hết.
Bản VB6 Portable đính kèm bên dưới. Cơ bản là không làm gì nhiều với VB6 nên chỉ cài sơ để thử nghiệm thôi.
Tôi down từ trang này nên không chịu trách nhiệm về có virus hay không nhé. Tôi cài thì chưa thấy mất gì .

em thua thiệt rồi anh @ongke0711 ơi..
thử lấy cái Portable mở ra cũng tèo luôn ah

 

[ongke0711]

em thua thiệt rồi anh @ongke0711 ơi..
thử lấy cái Portable mở ra cũng tèo luôn ah

Code tương tác với Excel instance trong file bạn như thế nào?

 

[thnghiachau]

Code tương tác với Excel instance trong file bạn như thế nào?

Dạ, em chỉ chạy cái của anh độc lập thôi ah, không đính dáng gì với cái em làm.

 

[ongke0711]

Dạ, em chỉ chạy cái của anh độc lập thôi ah, không đính dáng gì với cái em làm.

Bởi vậy, thôi cập nhật công nghệ đi, dùng cái nào mới nhất để dễ tương thích.

 

[thnghiachau]

Cám ơn mọi người ghé qua và giúp đỡ trong thớ của mình. Cám ơn anh @ongke0711 nhiều lắm.
Mặc dù không giải quyết được vấn đề mình cần, nhưng mình đã học được điều bổ ích.
Thiết nghĩ kiến thức là của chung và là kho báu quí giá cho mọi người và ai cũng được "hưởng" nó một cách trọn vẹn.
Có người biết được những điều mà những người khác không biết được và cũng có người biết mà không "thắm nhuần trọn vẹn" được vấn đề. Mình luôn đánh giá và trân trọng những người luôn NHIỆT TÌNH chia sẻ trọn vẹn những gì mình biết mà người khác cần nó. Và thật lòng đôi lúc tự hỏi "nhiều người giấu cái mình biết khi có người cần" để làm gì nhỉ? để giữ mình "hơn" người khác ... hay vì mục đích nào khác nữa ah? đúng là đời tham sân si... và hơn thua ....

 

[PhanTuHuong]

Cám ơn anh lần nữa tận tình giúp em ah.
Nhưng.... vẫn không được anh ơi!
vấn đề là "Set appXL = GetObject(, "Excel.Application")" không hoạt động được! Có nghĩa là khi e có mở hay không có mở file excel lên thì dòng lệnh ấy nó luôn luôn bị lỗi.
Ah.. anh chạy trên WIn7 được, nhưng em trên Win 10 thì tèo.
Em thử trên máy win10 x64 excel 2016 và cả trên máy win10 x64 Excel 2019 đều không ăn thua! hay là taii5 Win10 nhỉ? giờ em không có máy win7 để ngâm cứu ...
***************
Em mới thử "Set appXL = GetObject(, "AutoCAD.Application")" cũng tèo lúc nào appXL cũng NOTHING hết (dù có mở app lên hay chưa mở app lên!)

Bạn thiết lập mở Excel bằng Run as Administrant nhé. Chắc là được. Còn không là lỗi Windows

 

[thnghiachau]

Bạn thiết lập mở Excel bằng Run as Administrant nhé. Chắc là được. Còn không là lỗi Windows

Dạ, Cám ơn anh!.
Đúng là "Run as Administrant" cho excel là giải quyết được vấn đề rồi ah.

 

[Maika8008]

Dạ, Cám ơn anh!.
Đúng là "Run as Administrant" cho excel là giải quyết được vấn đề rồi ah.

Thế mà mất bao công sức nhỉ!

 

[thnghiachau]

Bạn thiết lập mở Excel bằng Run as Administrant nhé. Chắc là được. Còn không là lỗi Windows

Anh @PhanTuHuong ơi, mình có cách nào mà không chạy excel với Run as Admin mà vẫn làm được như anh @ongke0711 không ah?
Vì thông thường thì ít ai chạy excel với run as admin hết ah... như thế rất bất tiện.
Một phần nữa là thường mình mở file excel lên liền lúc đó thì không có run as admin được.
Cám ơn anh.

 

[thnghiachau]

Bạn chạy file đính kèm xem thử, demo đơn giản. Tôi có thay đổi code so với bài trước. Code cũ thì khi chạy trên Excel, Access thì chạy đúng còn với VB6 thì lại khác nên phải điều chỉnh lại chút.
Có một lưu ý mà khi tôi test code VB6 trong Windows 7 64bit, thì thấy nó không đóng được toàn bộ ứng dụng Excel mà vẫn còn chạy ngầm trong Task manager, nó sẽ ảnh hưởng trong việc kiểm tra các phiên làm việc của Excel. Đối với file demo đính kèm thì tôi không có thực hiện đóng Excel.exe nên chạy không lỗi. Có kiểm tra trên mạng thì thấy cũng nhiều trường hợp bị như vậy, bạn tự ngâm cứu thêm nhé.


View attachment 274962

Anh @ongke0711 , cái này anh chay excel "binh thường" chứ không có run as Admin phải không?

 

[ongke0711]

Anh @ongke0711 , cái này anh chay excel "binh thường" chứ không có run as Admin phải không?

Chạy bình thường nhưng có lẻ tôi là user administrator nên chắc cũng ảnh hưởng. Bạn kiểm tra lại vụ user xem.

 

[thuyyeu99]

@thnghiachau cái này phải nhờ đến các siêu cao thủ vba, delphi, vb6, python mới giải quyết nổi chứ vba excel, access không xử lý nổi đâu hihi

 

[thnghiachau]

Chạy bình thường nhưng có lẻ tôi là user administrator nên chắc cũng ảnh hưởng. Bạn kiểm tra lại vụ user xem.

Dạ lúc nào e là user Admin ah

 

[ongke0711]

@thnghiachau cái này phải nhờ đến các siêu cao thủ vba, delphi, vb6, python mới giải quyết nổi chứ vba excel, access không xử lý nổi đâu hihi

Anh cũng nghĩ vậy. Chắc phải chờ cao thủ vb6, delphi... độc tôn, chuyên trị 32/64 bit ra tay mới được quá...