Set object Workbook trong VB6 cho file Excel đã mở sẵn (3 người xem)

[thnghiachau]

Xin chào GPE,
một cách thông thường theo code:

Set objExcelApp = CreateObject("Excel.Application")
Set objWB = objExcelApp.Workbooks.Open("D:"\Test.xlsx")

và mình sẽ thao tác trên WorkBook "Test.xlsx" bằng objWB bình thường.

Thế nhưng ở đây nếu như file "Test.xlsx" đã được mở sắn rồi, vậy thì xin cho em hỏi có cách nào mình SET Object objWB cho file "Test.xlsx" đã mở sẵn này không ạ? có nghĩa là mình không dùng Set objWB = objExcelApp.Workbooks.Open("D:"\Test.xlsx") (không dùng Open)
Xin cám ơn nhiều.

 

[Ngày mai trời lại sáng]

Xin chào GPE,
một cách thông thường theo code:

Set objExcelApp = CreateObject("Excel.Application")
Set objWB = objExcelApp.Workbooks.Open("D:"\Test.xlsx")

và mình sẽ thao tác trên WorkBook "Test.xlsx" bằng objWB bình thường.

Thế nhưng ở đây nếu như file "Test.xlsx" đã được mở sắn rồi, vậy thì xin cho em hỏi có cách nào mình SET Object objWB cho file "Test.xlsx" đã mở sẵn này không ạ? có nghĩa là mình không dùng Set objWB = objExcelApp.Workbooks.Open("D:"\Test.xlsx") (không dùng Open)
Xin cám ơn nhiều.

Vb6 em chưa dùng nên chưa biết, nghe nói nó giống vba, mà vba thì nó là vậy:
Set objWB = Workbooks("Test.xlsx")

 

[thnghiachau]

Vb6 em chưa dùng nên chưa biết, nghe nói nó giống vba, mà vba thì nó là vậy:
Set objWB = Workbooks("Test.xlsx")

Không được bạn ơi....



Hay là :



Đều bị báo lỗi:

 

[ongke0711]

Còn hàm GetObject() nữa đó. Nếu chưa có thì createObject, có rồi thì getObject.

 

[befaint]

Có một điều tuyệt với là ở phiên bản Excel mới thì đáp án chính là bài #1.
Excel 2019 trở lên thì chắc chắn.
Excel 2016 khả năng cũng được (không nhớ rõ).

Bí mật này rất rất rất ít người biết. Ha ha.

 

[thnghiachau]

Còn hàm GetObject() nữa đó. Nếu chưa có thì createObject, có rồi thì getObject.

Cám ơn anh.
Nhưng nếu :

Set objExcelApp = getObject("D:"\Test.xlsx")

thì bị báo file "Test.xlsx" đang mở và nó chỉ mở tiếp với "Read only"

Bài đã được tự động gộp: 23/4/22

Có một điều tuyệt với là ở phiên bản Excel mới thì đáp án chính là bài #1.
Excel 2019 trở lên thì chắc chắn.
Excel 2016 khả năng cũng được (không nhớ rõ).

Bí mật này rất rất rất ít người biết. Ha ha.

và em chính là trong số "đại đại đại đa số" người không biết. Nếu anh biết thì giúp em với - hy vọng anh là người trong số rất rất rất ít người biết ah...

 

[Ngày mai trời lại sáng]

Không được bạn ơi....

View attachment 274872

Hay là :

View attachment 274874

Đều bị báo lỗi:

View attachment 274873

Em thấy chạy ngon mà bác

 

[thnghiachau]

View attachment 274891


Em thấy chạy ngon mà bác

View attachment 274892

VBA thì OK, trên VB6 mà bạn

 

[Ngày mai trời lại sáng]

VBA thì OK, trên VB6 mà bạn

thì bài 2 em có nói vba nó vậy mà chứ có biết mặt mũi vb7 nó hình gì đâu bác, thấy mọi người bảo giống vba nên em mới đưa vba thôi.

 

[Maika8008]

thì bài 2 em có nói vba nó vậy mà chứ có biết mặt mũi vb7 nó hình gì đâu bác, thấy mọi người bảo giống vba nên em mới đưa vba thôi.

Thế mới biết viết ứng dụng cho Excel trên VB6 mò mẫm cực biết chừng nào.

 

[Nhattanktnn]

Thế mới biết viết ứng dụng cho Excel trên VB6 mò mẫm cực biết chừng nào.

Em đang tính thử mà cũng chưa cài đặt được ứng dụng luôn

 

[Maika8008]

Em đang tính thử mà cũng chưa cài đặt được ứng dụng luôn

Tôi cũng muốn thử vì code gần giống nhau, khỏi mất công học mới (mà học ngôn ngữ mới thì không vô). Có lẽ vài hôm nữa cài & thử chơi

 

[Nhattanktnn]

Tôi cũng muốn thử vì code gần giống nhau, khỏi mất công học mới (mà học ngôn ngữ mới thì không vô). Có lẽ vài hôm nữa cài & thử chơi

Bác tìm hiểu cài được thì nhá em cái , Em bữa cài thử mà chưa được nên chưa tìm hiểu thêm

 

[thnghiachau]

Bác tìm hiểu cài được thì nhá em cái , Em bữa cài thử mà chưa được nên chưa tìm hiểu thêm

khi cài VB6 thì chạy file setup chế độ admin nha.
và bỏ chọn hết tất cả... như hình
và cài thêm bộ SP6 nữa.

 

[Nhattanktnn]

khi cài VB6 thì chạy file setup chế độ admin nha.
và bỏ chọn hết tất cả... như hìnhView attachment 274906
và cài thêm bộ SP6 nữa.

Bác có link tải VB6 không cho em với

 

[thnghiachau]

Bác có link tải VB6 không cho em với

Lấy link vào IDM

https://dl.winworldpc.com/Visual%20Studio%206.0%20Enterprise%20(6.00.8168).7z

https://download.microsoft.com/download/5/6/3/5635D6A9-885E-4C80-A2E7-8A7F4488FBF1/VB60SP6-KB2708437-x86-ENU.msi

https://download.microsoft.com/download/B/A/5/BA51304F-1DFB-4DAE-BC4F-F54323018562/VB60SP6-KB3096896-x86-ENU.msi

https://prod.downloadnow.com/s/10/72/65/44/Vs6sp6B.exe?GoogleAccessId=download-sps-prod@i-cmb-prod.iam.gserviceaccount.com&Expires=1650634654&Signature=RrWfIzeqod8zYazawcCKcXZ3DuodpBdXJ46bZnkLc6Stm0cNIUbXTiWv2dmxuTXKbXannXDOGIfuCjxnCUzwBuVX4WDkJGXcvKkw8NEXl%2BEicqq8SlYaQaf7ncwJTsUPXdN6YKZDvOtJY4sQXpCiFMDtfk6mD3MYe3dDfFBrxzpPTg0d9QVTStaO%2FHOXIBueWp8j94Fiw5jnzpXGOZIU8uLxv8lE7uQtQS1B8LZqac78esAkkb4MzctUCOU2ntnZk2O12BdFj88HD0oKUwfduxl6%2BCYfyy3SzRQIjgHQKG1lcqhFDsgWHauD9C8ZI6ATC3rYKUKJqE%2Fux1Zf7m6fqQ%3D%3D

 

[Maika8008]

@Nhattanktnn Cài xong rồi nè:

 

[Nhattanktnn]

@Nhattanktnn Cài xong rồi nè:
View attachment 274914

Nhanh thiệt, em cũng chưa cài thử, theo link bài #16 sử dụng IDM nên cũng chưa có thời gian mà vọc, bác tải VB6 link nào đấy?

 

[Maika8008]

Nhanh thiệt, em cũng chưa cài thử, theo link bài #16 sử dụng IDM nên cũng chưa có thời gian mà vọc, bác tải VB6 link nào đấy?

Link này: Khi cài
1. phải Run As Administrator
2. Đến phần chọn cài các thành phần thì chỉ cài mỗi VB6 thôi. Cài các thứ khác, nhất là Data accesss thì sẽ bị lỗi (hướng dẫn nhiều nơi nói thế)

 

[ongke0711]

Cám ơn anh.
Nhưng nếu :

Set objExcelApp = getObject("D:"\Test.xlsx")

thì bị báo file "Test.xlsx" đang mở và nó chỉ mở tiếp với "Read only"

Nếu vậy thì bạn duyệt qua các instance của Excel đang chạy, nếu có cái nào trùng tên cái Workbook đang mở thì Set objWB cho cái instance đó luôn.