Cần viết Code đang ở File A.xls mở File B.xls mà màn hình không nhảy sang File B.xls (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Màn hình máy tính đang ở File A.xls. Giờ tôi mở File B.xls ở địa chỉ D:\Song Chay 5\Cong viec\B.xls => Tôi xài Code sau:

Workbooks.Open Filename:="D:\Song Chay 5\Cong viec\B.xls"

Sau khi chạy Code trên xong thì File B.xls được mở lên và màn hình máy tính liền nhảy sang File B.xls
=> Vấn đề được đặt ra ở đây là: Có Code nào mở File B.xls mà màn hình máy tính không nhảy sang File B.xls không?
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

 

[giangleloi]

=> Vấn đề được đặt ra ở đây là: Có Code nào mở File B.xls mà màn hình máy tính không nhảy sang File B.xls không?
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

Thì bạn cho cái file A.xls đó Activate lại.
Workbooks("A").Activate

 

[Hai Lúa Miền Tây]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Màn hình máy tính đang ở File A.xls. Giờ tôi mở File B.xls ở địa chỉ D:\Song Chay 5\Cong viec\B.xls => Tôi xài Code sau:

Workbooks.Open Filename:="D:\Song Chay 5\Cong viec\B.xls"

Sau khi chạy Code trên xong thì File B.xls được mở lên và màn hình máy tính liền nhảy sang File B.xls
=> Vấn đề được đặt ra ở đây là: Có Code nào mở File B.xls mà màn hình máy tính không nhảy sang File B.xls không?
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

Dùng Windows("Tenfile").Activate thử nhé

 

[ndu96081631]

Dùng ThisWorkbook.Activate là chắc ăn nhất

 

[hung2412]

Dùng Windows("Tenfile").Activate thử nhé

Có phải ý anh là dùng Code:

Workbooks.Open Filename:="D:\Song Chay 5\Cong viec\B.xls"
Windows("A.xls").Activate

phải không ạ?
Em hiểu Code trên là mở File B.xls xong rồi chọn lại File A.xls.
Tuy nhiên, ý em không phải thế. Em muốn mở File B.xls mà màn hình máy tính không hề nhảy sang File B.xls mà File B.xls vẫn được mở lên.

 

[phihndhsp]

Có phải ý anh là dùng Code:

Workbooks.Open Filename:="D:\Song Chay 5\Cong viec\B.xls"
Windows("A.xls").Activate

phải không ạ?
Em hiểu Code trên là mở File B.xls xong rồi chọn lại File A.xls.
Tuy nhiên, ý em không phải thế. Em muốn mở File B.xls mà màn hình máy tính không hề nhảy sang File B.xls mà File B.xls vẫn được mở lên.

Sub abc()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\ly\Downloads\130717- TKBGV2013-2014.01.xlsx"
ThisWorkbook.Activate
Application.ScreenUpdating = True
End Sub
thêm cái đậm đậm đó vào

 

[hung2412]

Sub abc()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\ly\Downloads\130717- TKBGV2013-2014.01.xlsx"
ThisWorkbook.Activate
Application.ScreenUpdating = True
End Sub
thêm cái đậm đậm đó vào

Tôi thêm cái dòng lệnh đậm đậm như bạn nói mà sao màn hình máy tính vẫn nhảy sang File mới mở nhỉ?

 

[phihndhsp]

máy tôi không hề nháy, tôi không biết tại sao máy bạn lại nháy

 

[ndu96081631]

Tuy nhiên, ý em không phải thế. Em muốn mở File B.xls mà màn hình máy tính không hề nhảy sang File B.xls mà File B.xls vẫn được mở lên.

Không có chuyện đó đâu bạn à!
Workbooks.Open thì chắc chắn nó sẽ "nhảy" sang file vừa mở. Bạn chỉ có cách "nhảy ngược lại" file chứa code thôi

 

[be_09]

hung2412

Sửa code bài #01 lại 1 tí, rồi cho nó vào ThisWorkbook của File A.

Private Sub Workbook_Open()
Workbooks.Open "D:\Song Chay 5\Cong viec\B.xls"  
End Sub

Cách của bạn yêu cầu tôi thấy chưa hợp lý lắm (không lẽ mình muốn mở nhiều File thì phải gán vào code nhiều cái đường dẫn), theo tôi thì nên sử dụng 1 code để tạo Link đến bất kỳ File nào, nếu muốn mở File nào đó thì chỉ cần click vào Link đó để mở File thì sẽ thuận tiện hơn rất nhiều