TÁCH FILE EXCEL (2 người xem)

[Duongtn2510]

a/c giỏi excel cho e hỏi với ạ. e muốn tách 1 file excel (có nhiều sheet) sang từng file riêng nhưng định dạng pdf thì làm thế nào ạ. Hoặc đổi định dạng hàng loạt các file đuôi xlsx sang pdf được k ạ.
Giúp e với ạ. huhu

 

[be_09]

a/c giỏi excel cho e hỏi với ạ. e muốn tách 1 file excel (có nhiều sheet) sang từng file riêng nhưng định dạng pdf thì làm thế nào ạ. Hoặc đổi định dạng hàng loạt các file đuôi xlsx sang pdf được k ạ.
Giúp e với ạ. huhu

Bạn hỏi mà không đính kèm file thì ai biết giúp cái gì, ở.đâu?

 

[Duongtn2510]

Bạn hỏi mà không đính kèm file thì ai biết giúp cái gì, ở.đâu?

sơ suất sơ suất. hxhx

 

[snow25]

sơ suất sơ suất. hxhx

Công thức chắc không được rồi.Khó lắm.

 

[Azumie]

Chào bạn.
Bạn thử chạy code sau trong vba nhé

Sub SaveAsPDF()
    Dim ws As Worksheet

        For Each ws In ActiveWorkbook.Worksheets
            With ws.PageSetup
                .Zoom = False
                .FitToPagesWide = 1
                .Orientation = xlLandscape
                End With
        
            ws.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=Application.ActiveWorkbook.Path & "\" & ws.Name, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        Next ws
    End Sub

 

[Duongtn2510]

Chào bạn.
Bạn thử chạy code sau trong vba nhé

Sub SaveAsPDF()
    Dim ws As Worksheet

        For Each ws In ActiveWorkbook.Worksheets
            With ws.PageSetup
                .Zoom = False
                .FitToPagesWide = 1
                .Orientation = xlLandscape
                End With
       
            ws.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=Application.ActiveWorkbook.Path & "\" & ws.Name, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        Next ws
    End Sub

MÌNH CHẠY ĐƯỢC RỒI. CẢM ƠN BẠN RẤT NHIỀU Ạ