cách khai báo đường dẫn cho 1 biến số

[alex-luu]

Em chào các anh chị,
Xin các anh chị cho em hỏi về cách khai báo đường dẫn đến 1 sheet của 1 file khác .
Ví dụ, nếu em nhập như vậy :

Set SBg = Sheets("Báo giá") : tức là em đang khai báo biến SBg là sheet Báo giá của file hiện hành.

Nhưng nếu em muốn biến SBg chỉ đến sheet Báo Giá của 1 file khác (D:\NTP\Form mau\Danh sach khach hang.xlsm) thì em phải nhập như thế nào ?

Em cảm ơn ạ

 

[befaint]

Set SBg = Sheets("Báo giá") : tức là em đang khai báo biến SBg là sheet Báo giá của file hiện hành.

Nhưng nếu em muốn biến SBg chỉ đến sheet Báo Giá của 1 file khác (D:\NTP\Form mau\Danh sach khach hang.xlsm) thì em phải nhập như thế nào ?

Mình nêu TRỌN VẸN bài toán của mình đi.
Cái mình đang hỏi ở trên e rằng chỉ là ý tưởng tuyệt vời nào đó mình mới nghĩ ra để bắc cầu vướng mắc, chứ chưa hẳn là cách xử lý phù hợp.

 

[Ba mười ba]

Em chào các anh chị,
Xin các anh chị cho em hỏi về cách khai báo đường dẫn đến 1 sheet của 1 file khác .
Ví dụ, nếu em nhập như vậy :

Set SBg = Sheets("Báo giá") : tức là em đang khai báo biến SBg là sheet Báo giá của file hiện hành.

Nhưng nếu em muốn biến SBg chỉ đến sheet Báo Giá của 1 file khác (D:\NTP\Form mau\Danh sach khach hang.xlsm) thì em phải nhập như thế nào ?


Em cảm ơn ạ

Bạn phải dùng những câu lệnh để mở tập tin "Danh sach khach hang.xlsm"
Sau khi mở lên mới có thể set được.
ví dụ bạn khai báo:
set wbopen = "Danh sach khach hang.xlsm"
với biến wbopen khai báo as workbook trước đó.

Tiếp theo sau khi mở tập tin:
set SBg= wbopen.Sheets("Báo giá")
nếu tập tin "Danh sach khach hang.xlsm" có shet tên là "Báo giá"

 

[batman1]

ví dụ bạn khai báo:
set wbopen = "Danh sach khach hang.xlsm"
với biến wbopen khai báo as workbook trước đó.

Trời ơi. Khai báo wbopen là đối tượng Workbook mà lại set wbopen = "Danh sach khach hang.xlsm"?
"Danh sach khach hang.xlsm" rõ ràng là STRING mà, làm gì có đối tượng ở đây.

Set SBg = Sheets("Báo giá") : tức là em đang khai báo biến SBg là sheet Báo giá của file hiện hành.
Nhưng nếu em muốn biến SBg chỉ đến sheet Báo Giá của 1 file khác (D:\NTP\Form mau\Danh sach khach hang.xlsm) thì em phải nhập như thế nào ?

Cái file khác kia phải được mở - do người dùng mở bằng tay hoặc code tự mở. Khi file khác kia đã được mở

Dim SBg As Worksheet, wbName As String, wb As Workbook
    wbName = "Danh sach khach hang.xlsm"
    Set wb = Workbooks(wbName)  ' nen viet tuong minh Application.Workbooks(wbName)
    Set SBg = wb.Worksheets("Báo giá")
'    ...

 

[Ba mười ba]

Trời ơi. Khai báo wbopen là đối tượng Workbook mà lại set wbopen = "Danh sach khach hang.xlsm"?
"Danh sach khach hang.xlsm" rõ ràng là STRING mà, làm gì có đối tượng ở đây.

Cái file khác kia phải được mở - do người dùng mở bằng tay hoặc code tự mở. Khi file khác kia đã được mở

Dim SBg As Worksheet, wbName As String, wb As Workbook
    wbName = "Danh sach khach hang.xlsm"
    Set wb = Workbooks(wbName)  ' nen viet tuong minh Application.Workbooks(wbName)
    Set SBg = wb.Worksheets("Báo giá")
'    ...

Xin lỗi tôi nhầm, viết trên điện thoại nhỏ nhiều khi không để ý và khó kiểm soát.
Cảm ơn bạn.

 

[alex-luu]

Trời ơi. Khai báo wbopen là đối tượng Workbook mà lại set wbopen = "Danh sach khach hang.xlsm"?
"Danh sach khach hang.xlsm" rõ ràng là STRING mà, làm gì có đối tượng ở đây.

Cái file khác kia phải được mở - do người dùng mở bằng tay hoặc code tự mở. Khi file khác kia đã được mở

Dim SBg As Worksheet, wbName As String, wb As Workbook
    wbName = "Danh sach khach hang.xlsm"
    Set wb = Workbooks(wbName)  ' nen viet tuong minh Application.Workbooks(wbName)
    Set SBg = wb.Worksheets("Báo giá")
'    ...

Cảm ơn bạn, mình hiểu rồi.