Không cho hiển thị file khi mở từ file khác

[yeudoi]

Mình làm 2 file một file lưu dữ liệu một file chạy. Nay mình mở file chạy và sau đó file Data, nhưng khi mở file Data nó lại phải chọn file đó trông nó không đẹp ( Không Pro) nay mình muốn khi mở file Data thì nó không chọn file Data mà chỉ đứng ở file chạy thì làm thế nào nhỉ.

Workbooks.Open ThisWorkbook.Path & "\Data", , , , "CR08"

Ah cho mình hỏi thêm trong VBA thấy có Reference to file.xla. Như vậy nó lấy chương trình từ file.xla hỏi làm sao để làm được như vậy

 

[Nguyễn Duy Tuân]

Hướng xem thế này có được không?

    Dim prevWB As Workbook
    
    Set prevWB = ActiveWorkbook
    Application.ScreenUpdating = False
    
    Workbooks.Open cFileToOpen
    
    prevWB.Activate
    
    Application.ScreenUpdating = True

 

[yeudoi]

Anh chưa giải thích thêm cho em câu hỏi sau.

 

[Đào Việt Cường]

Dear Yếu Đói,
-------------
Có phải anh muốn nói đến chức năng Tools/References của VPA? Trước em có một bài giới thiệu về chức năng này.

Đúng là khi xây dựng một ứng dụng Excel mà các thành phần của nó được tách biệt riêng thành phần Data riêng và "phần chạy" riêng thì việc tổ chức một mô-đun dùng chung là rất cần thiết và chức năng Tools/Refereces cho phép làm điều đó.

Khác với chức năng Tools/Add-Ins trong Excel, các Refereces sau khi được bổ sung thì các Object (bao gồm các Worksheet, Module - bao gồm các thủ tục và hàm) đóng vai trò là một "thành phần của dự án (Project). Nghĩa là trong Project hiện hành ta có thể tham chiếu (sử dụng) đến các đối tượng của Referece như một đối tượng nội tại của Project đó.

Ví dụ trong MyTools.xla có Worksheets("CAIDAT"), có thủ tục Data_Open(DataFile As String), thì trong dự án hiện hành sử dụng tham chiếu MyTools.xla, ta có thể viết:

CAIDAT.Name="OPTION" ' Đổi name của sheet CAIDAT trong MyTools.xla thành OPTION
Data_Open ThisWorkbook.Path & "\DATA.xls" ' Thực thi thủ tục Data_Open có trong module của MyTools.xla.
Như vậy với tham chiếu này, ta có thể xây dựng một ứng dụng nhiều thành phần, nhiều module chức năng dùng chung để thực hiện các nhiệm vụ khác nhau.

Không biết có đúng ý anh không?

 

[yeudoi]

Quá đúng là đàng khác. Đúng vậy mình cũng chưa bao giờ đọc bài này nên không biết, nhưng mình thấy nó giống add_in nhưng lại không phải add_in. Hiện nay các chương trình ứng dụng của mình (người Việt) mình lại chưa thấy sử dụng vấn đề này, nhưng các file của nước ngoài toàn dùng kiểu này., Nó bố trí Data nhiều file và dùng một file chạy và có rất nhiều file .xls. Khi đó nó chạy hết lên, như vậy file rất nhẹ mà nhanh nữa chứ.
Nếu được Cường có thể viết một bài về cách tạo Reference này rõ ràng cho mọi người cùng học hỏi.

 

[Đào Việt Cường]

Dear yeudoi,
------------
Theo em, ích lợi ở đây không phải là vấn đề tốc độ mà ưu điểm nổi bật ở đây là khả năng quản lý chương trình thành các lớp ứng dụng, thuận tiện cho việc lập trình và nâng cấp chương trình.

Em xin gửi bộ file minh hoạ ứng dụng này, trong đó MAIN.xls đóng vai trò là "file chạy", MyTools.xls đóng vai trò Reference của MAIN.xls, Data.xls là file dữ liệu để mở.

Lưu ý, nếu lỗi MISSING xảy ra khi tham chiếu MyTools do không tìm thấy đường dẫn thì cần đặt lại tham chiếu này.

 

[Nguyễn Duy Tuân]

Quá đúng là đàng khác. Đúng vậy mình cũng chưa bao giờ đọc bài này nên không biết, nhưng mình thấy nó giống add_in nhưng lại không phải add_in. Hiện nay các chương trình ứng dụng của mình (người Việt) mình lại chưa thấy sử dụng vấn đề này, nhưng các file của nước ngoài toàn dùng kiểu này., Nó bố trí Data nhiều file và dùng một file chạy và có rất nhiều file .xls. Khi đó nó chạy hết lên, như vậy file rất nhẹ mà nhanh nữa chứ.

Yeudoi không để ý đó thôi. Chương trình kế toán A-E của mình ứng dụng việc nhúng các file (Excel, DLL) từ cách đây 3 năm rồi, nhấn ALT+F11 sẽ thấy ngay. Tưởng cái này ai cũng biết nên mình chưa giới thiệu.

 

[yeudoi]

Cường ý mình là làm sao đưa được cái anh Mytool.xla vào trong đó ấy.
Còn chương trình Kế toán của anh Tuân thì em có xem nhưng bấm Alt + F11 thì không xem được nên em không biết. Cái này chắc cũng nên có bài viết để mọi người cùng thưch hiện.
Làm sao được vậy nè.

 

[Đào Việt Cường]

Dear yeudoi,
------------

Em tưởng bài giới thiệu cho thấy cách làm rồi chứ! Em gửi lên đây hình minh hoạ chắc là anh sẽ hiểu cách làm: