Hỏi đáp hàm tạo ấn nút tự động lưu file PDF

[bitun1991]

Dear các chuyên gia,

em cần chỉ dẫn cách làm sao để tạo ấn một nút ấn liên kết "nhiều sheet" để ra được 1 file pdf nối tất cả các file
Mọi người chỉ dẫn e với ạ.
tiện mọi người chỉ dẫn e trong trường hợp nhiều sheet thì sẽ chỉnh code như thế nào theo những sheet mình mong muốn nhẽ.

Em cảm ơn

 

[snow25]

Dear các chuyên gia,

em cần chỉ dẫn cách làm sao để tạo ấn một nút ấn liên kết "nhiều sheet" để ra được 1 file pdf nối tất cả các file
Mọi người chỉ dẫn e với ạ.
tiện mọi người chỉ dẫn e trong trường hợp nhiều sheet thì sẽ chỉnh code như thế nào theo những sheet mình mong muốn nhẽ.

Em cảm ơn

Cho cái kết quả coi.Nhìn vào chẳng hiểu gì.

 

[bitun1991]

Cho cái kết quả coi.Nhìn vào chẳng hiểu gì.

KẾT QUẢ LÀ TẠO PDF TỪ CÁC FILE TỪ 1->5 BẰNG 1 NÚT BẤM

 

[snow25]

KẾT QUẢ LÀ TẠO PDF TỪ CÁC FILE TỪ 1->5 BẰNG 1 NÚT BẤM

Vậy là tạo ra mấy bản PDF vậy bạn.

 

[bitun1991]

Vậy là tạo ra mấy bản PDF vậy bạn.

1 bản pdf gồm (5 sheet) đó.
các làm hiện tại là ra chiết xuất ra từng file 1 rồi ghép nên mất thời gian

 

[LamNA]

1 bản pdf gồm (5 sheet) đó.
các làm hiện tại là ra chiết xuất ra từng file 1 rồi ghép nên mất thời gian

Bạn thử

Sub GopPDF()
    Sheets(Array("1", "2", "3", "4", "5")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.FullName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

 

[bitun1991]

ơ thế file lưu ở đâu thế ah

 

[LamNA]

ơ thế file lưu ở đâu thế ah

Bạn có thể tự kiểm tra mà
File excel nằm ở thư mục nào thì file PDF nằm ở đó

 

[bitun1991]

Bạn có thể tự kiểm tra mà
File excel nằm ở thư mục nào thì file PDF nằm ở đó

Hay qá
Em làm được rồi! Cám ơn anh

Tiện trường hợp em muốn tạo y như thế này nhưng không phải là pdf nưac mà là excel mang ý nghĩa là copy sang 1 file excel khác theo dạng copy ký tự ko phải mang cả hàm bên trong đó thì phải làm ntn ạ

 

[LamNA]

Hay qá
Em làm được rồi! Cám ơn anh

Tiện trường hợp em muốn tạo y như thế này nhưng không phải là pdf nưac mà là excel mang ý nghĩa là copy sang 1 file excel khác theo dạng copy ký tự ko phải mang cả hàm bên trong đó thì phải làm ntn ạ

Bạn nên tạo chủ đề mới để anh chị diễn đàn hỗ trợ cũng như sau này các thành viên khác cần tìm kiếm cho dễ nhé

 

[bitun1991]

Bạn nên tạo chủ đề mới để anh chị diễn đàn hỗ trợ cũng như sau này các thành viên khác cần tìm kiếm cho dễ nhé

https://www.giaiphapexcel.com/diend...a-hÀm-sang-1-file-copy-khÔng-chỨa-hÀm.141371/

dạ đây ạ

 

[Zippoacc]

Bạn thử

Sub GopPDF()
    Sheets(Array("1", "2", "3", "4", "5")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.FullName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

nhỡ mình có hơn 100 sheets thì sao, nhờ bạn chỉ giúp mình ạ Cảm ơn bạn

 

[huhumalu]

nhỡ mình có hơn 100 sheets thì sao, nhờ bạn chỉ giúp mình ạ Cảm ơn bạn

thì gõ từ 1 đến 100
hoặc
thay dòng

Sheets(Array("1", "2", "3", "4", "5")).Select

thành

Sheets.Select

 

[Zippoacc]

thì gõ từ 1 đến 100
hoặc
thay dòng

Sheets(Array("1", "2", "3", "4", "5")).Select

thành

Sheets.Select

hihi, cảm ơn bác nhiều ạ