Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel

[Nguyễn Duy Tuân]

Gửi tặng các bạn bộ công cụ ControlForOffice.

Download. Phiên bản 2.0.4, cập nhật ngày 25/07/08.
(Tác giả đã dừng phát triển ControlForOffice.ocx mà thay thế bằng sản phẩm với tên gọi khác là BSAC với nhiều controls, hỗ trợ cả 32-bit, 64-bit. Xem và tải BSAC.ocx )

 

[Nguyễn Duy Tuân]

Cảm ơn anh Tuân đã trả lời em sớm:
Em đang dùng:
- Win7 32bit
- Office 2010 (2007 cài lại) 32bit
- Copy file ControlForOffice.ocx vào Folder Windows\System32\
- Chạy file Install để đăng ký bởi Regsvr32

Kết quả vẫn vậy. Em thật sự không hiểu! trên xách tay khi cài lại Office2007 thì chạy được, trên Máy bàn Win7 và Office 2010 không chạy được, cài lại Office2007 cũng không chạy được.

Máy tính của em cài ổ D:\ là ổ chứa win Không biết có đúng lỗi nằm ở đây không nữa. Có bác nào dùng ControlForOffice trên Office2010 rồi xin hướng dẫn em chút.


Cảm ơn anh Tuân và cảm ơn mọi người.

Mình vừa download về chạy trên Windows Vista, Office 2010 32-bit Ok.

 

[Nguyễn Duy Tuân]

Còn đây là Windows 7, Office 2013 32-bit

 

[huuhien80]

Em cảm ơn anh đã rất nhiệt tình, chắc trường hợp của em nó cá biệt.

1. Win



2. Office: (em vừa tải bản office khác về cài)



3. Copy ControlForOffice



4. Error: Sau khi đã install và chạy file:



5. Debug.



Em đã thử lại nhưng kết quả vẫn vậy, không biết vấn đề nằm ở đâu nữa anh Tuân ạ.

Không biết có ai gặp trường hợp như em không nữa.....



Edit: Em tải bản 2013 về cài xem thế nào.

 

[Nguyễn Duy Tuân]

Bạn gửi TeamViewer: ID, Pass vào mail duytuan@bluesofts.net tôi sẽ tìm nguyên nhân cho, Không cần phải cài Ofice 2013 đâu.

 

[huuhien80]

Em gửi mail rồi anh ạ! Anh xem giúp em với.

 

[huuhien80]

Cảm ơn anh Tuân.

Chạy Install bằng Run as Administrator là giải quyết được vấn đề

Cảm ơn anh nhiều.

 

[huuhien80]

Anh Tuân ơi! Cho em hỏi tham lam 1 tí.

Em thêm 1 Useform2 và đặt chế độ Auto_open chạy 2 Useform


Em muốn thêm 1 Useform nằm ở Top nhưng khi chạy ra nó thế này, Em muốn giảm độ dày của Useform2.
Em biết là can thiệp độ dày của Useform nằm top hoặc Botton là thì phải chỉnh sửa trong file ControlForOffice.ocx. Anh có thể giúp em 1 lần nữa không ạ.

Cảm ơn anh nhiều!

 

[huuhien80]

Private Sub UserForm_Initialize()
If TPs Is Nothing Then
Set TPs = New BSTaskPanes
End If
Set TP = TPs.Add("Ten TaskPane", Me)
TP.Visible = True
TP.DockPosition = msoBarTop
TP.Height = 60
End Sub

Chèn 2 dòng bôi đậm này vào là giải quyết được vấn đề của cái Top Task Pane.
Thanks.

Thật tuyệt vời.... THanks bác Tuân Verry Much....

 

[Nguyễn Duy Tuân]

Private Sub UserForm_Initialize()
If TPs Is Nothing Then
Set TPs = New BSTaskPanes
End If
Set TP = TPs.Add("Ten TaskPane", Me)
TP.Visible = True
TP.DockPosition = msoBarTop
TP.Height = 60
End Sub

Chèn 2 dòng bôi đậm này vào là giải quyết được vấn đề của cái Top Task Pane.
Thanks.

Thật tuyệt vời.... THanks bác Tuân Verry Much....

Phần mềm kế toán doanh nghiệp A-Excel dùng Taskpane như ControlForOffice đó. Phiên bản mở rộng của COntrolForOffice.ocx là BSAC.ocx - Bluesofts ActiveX Controls.

 

[huuhien80]

Vâng, Em cũng đang xây dựng file theo 2 Taskpane như vậy, Vì em không xây dựng được List như của anh nên em sẽ lấy Top Taskpane làm điều hướng điều khiển nhiều Left Taskpane, Mỗi Left Taskpane sẽ có 1 nhiệm vụ riêng.

Làm dạng List hay thật. Em sẽ khắc phục bằng OptionButton.

Dù sao thì so với cách làm cũ của em như vậy cũng đã cải tiến hơn rất nhiều rồi

Sáng nay em kết hợp cái Top Taskpane với UniMenuInUserform cũng của bác nhưng chạy lỗi, Vì viết bằng ngôn ngữ khác nên em cũng không biết khắc phục thế nào.

Nếu như cái Top Taskpane mà bổ sung được UniMenuInUserform thì tuyệt vời bác Tuân ạ. Vừa gọn mà vừa đẹp.

Dù sao thì cũng cảm ơn bác nhiều! Bác thật nhiệt tình..

 

[laucahl]

xin lỗi tác giả, quả thật tôi đã download file, làm theo hướng dẫn như kô được bác có thể hướng dẫn cụ thể cho em, hoặc làm 1 file excel nhỏ, chỉ hướng dẫn hiển thị tiếng việt trên msgbox được kô? trong file có quá nhiều code, kô biết cái nào là của cái nào, xin chân thành cám ơnack, bó tay các bác. hướng dẫn cũng không đến nơi đến chốn, chỉ quăng cho con cá, đi kiếm cái cần câu đuối luôn.Nếu bạn nào muốn hiển thị được msgbox tiếng việt unicode thì hãy làm như sau:1.copy file controlforoffice.ocx vào windows\system322.copy lại toàn bộ đoạn mã module CFO_API vào file các bạn cần làm3.Cái quan trọng tiếp theo là phải vào tool\reference chọn browse tìm đến file ControlForOffice.ocxLàm xong 3 bước trên là thoải mái unicode msgboxW không cần phải khai báo starthookmsgbox nữa khi open và close file.Nhưng không biết tại sao nhiều khi không hiện nội dung trong msgbox chỉ hiện mỗi cái button, bấm liên tục 7,8 lần thì lại hiện nội dung bình thường.Bó tay.comCám ơn TuanVNUNI đã cho ra tool hữu ích này.

Anh Tuân ơi, cho em hỏi, cái module CFO_API ở đâu vậy, em mới tiếp cận cái này nên chưa biết nó ở đâu, anh hay ai đó chỉ giúp với

 

[Nguyễn Duy Tuân]

Từ file download về bạn giải nén là thấy file CFO_API.bas.

 

[laucahl]

Từ file download về bạn giải nén là thấy file CFO_API.bas.

Báo cáo anh là em không có thấy file nào là CFO_API.bas cả, anh xem giúp ạ

 

[Nguyễn Duy Tuân]

Uh. Bạn mở file BSTaskPane. Vào VBA (ALT+F11) sẽ nhìn thấy module "CFC_API". Nhấp chuột phải trên đó rồi chọn "Export". Khi tạo file mơí bạn Import vào.

 

[laucahl]

Uh. Bạn mở file BSTaskPane. Vào VBA (ALT+F11) sẽ nhìn thấy module "CFC_API". Nhấp chuột phải trên đó rồi chọn "Export". Khi tạo file mơí bạn Import vào.

Em không thấy module nào là CFC_API cả bác ợ

 

[Nguyễn Duy Tuân]

Em không thấy module nào là CFC_API cả bác ợ
View attachment 121517

Vậy có lẽ đây là phiên bản cũ. Bạn làm theo file ví dụ là được Task pane.

 

[laucahl]

Vậy có lẽ đây là phiên bản cũ. Bạn làm theo file ví dụ là được Task pane.

Em down y xì file bác up lên cập nhật ngày 25/7/2008 mà nhể!
Bác có thể cho em xin file CFC_API.bas ấy được không ạ!

 

[bivily]

Anh Tuân ơi! Em chạy trên máy cài Win7 và ứng dụng cái TaskPanel thì:
- Với Office 2007 thì chạy tốt.
- Còn với Office 2013 thì khi chạy nó không thể thực hiện được thủ tục Form_Resize(), mình phải dùng chuột thay đổi kích thước TaskPanel thì nó mới chạy anh à! Phải khắc phục như thế nào hả anh?

 

[Nguyễn Duy Tuân]

Bạn chụp hình lên mình xem nhé.

 

[Nguyễn Duy Tuân]

Đây là video tôi làm cho Bluesofts ActiveX Controls (BSAC.ocx). Bạn chỉ cần chọn sang ControlForOffice là tương tự.
Ví dụ trong video là tạo form trong VB6 biên dịch thành dll sau đó đưa vào Task Pane trong Excel.

Xem video hướng dẫn cách nhúng form bên VB6 vào Task Pane của Microsoft Excel
http://www.bluesofts.net/Products/BSAC/Demos/VB6_BSTaskPane/VB6_BSTaskPane.html