Hỏi về code In dữ liệu từ một file không mở? (1 người xem)

[KUMI]

Xin chào mọi người!

Em đang tạo một nút In ở file: TongHop
Em muốn gán code vào cái nút In này với mục đích:
Để In dữ liệu từ Sheet1 đến sheet10 (đã set print và chọn máy in sẵn)của một file có tên là: "A.xlsx" (file này đang đóng-không mở).

Lưu ý: 2 file này cùng nằm trong 1 foder.

Ai biết code này chỉ cho em với ạ!
Xin cám ơn!

 

[KUMI]

Nếu mà không được thì sửa chỗ file không mở thành file có mở vậy?
Nhưng vẫn là bấm nút In ở file Tổng hợp thì sẽ in dữ liệu ở các sheet1 đến sheet10 ở file A.xlsx ạ.
Tks!

 

[Quang_Hải]

Nếu mà không được thì sửa chỗ file không mở thành file có mở vậy?
Nhưng vẫn là bấm nút In ở file Tổng hợp thì sẽ in dữ liệu ở các sheet1 đến sheet10 ở file A.xlsx ạ.
Tks!

Sao không mở file ra và chọn hết sheet rồi bấm nút in cái cho khỏe. Cần gì phải xài code chi vậy?

 

[cuonghoa176]

Cũng là một cách

Tôi cũng hay thao tác trên nhiều Sheet và in hàng loạt. Cách của tôi là dùng phím Shift chọn đồng thời sh1 đến sh10 (tùy ý), “soi” lên, kt lại số trang cần in, có thể phải ghi lại. Thoát chế độ xem trước, bật lệnh in và in các trang nói trên mà ko cần mở lần lượt từng sheet. In xong thoát việc chọn nhiều sheet để tránh nhầm lẫn-cách này theo ý bác quanghai đấy..

 

[KUMI]

Sao không mở file ra và chọn hết sheet rồi bấm nút in cái cho khỏe. Cần gì phải xài code chi vậy?

À! Thưa Thầy là Tại vì cái file tổng hợp này sẽ lấy dữ liệu từ nhiều file con A,B,C,D,E....
Mỗi lần đến cuối tháng Tổng hợp xong là em lại fai mở các file con lên và in dữ liệu từ các file này.
Như vậy có phải cũng hơi mất thời gian không ạ?
Do vậy mà em muốn thực hiện vấn đề này bằng code để giảm thời gian đó ạ!
Nếu Thầy biết xin hướng dẫn em với.
Cảm ơn Thầy!

 

[gakon_Office]

Mình cũng đang có bài toán giống bạn nhưng không nghĩ ra ý tưởng dùng vba.
Không biết là có được không?

 

[l< i m]

Híc!Em nhìn ở ngoài đề tài thấy 5 cái sao,tên đề tài thì cũng hấp dẫn.
Thế mà vào trong hổng thấy gì.
Câu hỏi cũng rất hay mà không thấy có đáp án nhỉ.

 

[cuonghoa176]

Tui có mỗi cái sao nhưng cũng góp ý với bạn một chút: Bạn hãy đưa "các file con" vào cùng một bảng tính. Nếu định dạng ở các file con giống nhau thì càng dễ. Khi đó bạn có thể có sheet TONG HOP được cập nhật tự động. Bây giờ bạn tha hồ làm việc với sheet này như: Lọc (Auto Fiter, Avande Fiter...) hay in ra...và cần đưa file lên.

 

[KUMI]

Xin chào mọi người!

Em đang tạo một nút In ở file: TongHop
Em muốn gán code vào cái nút In này với mục đích:
Để In dữ liệu từ Sheet1 đến sheet10 (đã set print và chọn máy in sẵn)của một file có tên là: "A.xlsx" (file này đang đóng-không mở).

Lưu ý: 2 file này cùng nằm trong 1 foder.

Ai biết code này chỉ cho em với ạ!
Xin cám ơn!

hihi! Cám ơn mọi người đã quan tâm để tìm cách giúp đỡ.
Theo câu hỏi trên Em đã làm được rồi, mọi người xem và góp ý cho em nhé!
Hic, em mới tập tành, cop nhặt lắp ghép code chứ có hiểu gì đâu, mọi người đừng cười nhé, hihi!

Đây là code trong file tổng hợp,mọi người xem có chỗ nào bất ổn thì sửa giúp em ạ:

Sub Printer()
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Open ThisWorkbook.Path & "\A.xlsx"
Windows("A.xlsx").Activate
Dim N
For N = 1 to 16
    Sheets(N).Activate
With ActiveSheet
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End With
Next
Sheets(1).Activate
ActiveWindow.Close False
ThisWorkbook.Activate
End Sub

 

[l< i m]

hihi! Cám ơn mọi người đã quan tâm để tìm cách giúp đỡ.
Theo câu hỏi trên Em đã làm được rồi, mọi người xem và góp ý cho em nhé!
Hic, em mới tập tành, cop nhặt lắp ghép code chứ có hiểu gì đâu, mọi người đừng cười nhé, hihi!

Đây là code trong file tổng hợp,mọi người xem có chỗ nào bất ổn thì sửa giúp em ạ:

Sub Printer()
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Open ThisWorkbook.Path & "\A.xlsx"
Windows("A.xlsx").Activate
Dim N
For N = 1 to 16
    Sheets(N).Activate
With ActiveSheet
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End With
Next
Sheets(1).Activate
ActiveWindow.Close False
ThisWorkbook.Activate
End Sub

À, Hay!.
Hóa ra mở lên rồi đóng lại nhỉ.
nhưng cái dòng này:Windows("A.xlsx").Activate
(hình như bị thừa)