[حل شده] تبدیل دوشیت با هم به pdf

[majidosmani]

سلام خدمت دوستان عزیز من یک فایل اکسل دارم که دو شیت دارد داخل یک شیت یک باتن قرار دادم که فایل اکسل را تبدیل به پی دی اف کنه کد زیر داخل باتن نوشتم حالا سوال من این است که چکار کنم با زدن دکمه هر دو شیت با هم پی دی اف بشن الان با زدن دکمه فقط همون شیتی که دکمه داخلش است به پی دی اف تبدیل میشه

Sub Button170_Click()

    Dim ws As Worksheet
    Dim Fname As String
    For Each ws In ActiveWorkbook.Worksheets
     
      Fname = ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name & " - " & ws.Name
       
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    Next ws


End Sub

[M_ExceL]

سلام خدمت دوستان عزیز من یک فایل اکسل دارم که دو شیت دارد داخل یک شیت یک باتن قرار دادم که فایل اکسل را تبدیل به پی دی اف کنه کد زیر داخل باتن نوشتم حالا سوال من این است که چکار کنم با زدن دکمه هر دو شیت با هم پی دی اف بشن الان با زدن دکمه فقط همون شیتی که دکمه داخلش است به پی دی اف تبدیل میشه

Sub Button170_Click()

    Dim ws As Worksheet
    Dim Fname As String
    For Each ws In ActiveWorkbook.Worksheets
     
      Fname = ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name & " - " & ws.Name
       
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    Next ws


End Sub

سلام،

Fname = ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name & " - " & ws.Name

خط فوق رو بصورت زیر اصلاح کنید :

Fname = ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name & " - " & ws.Name & ".pdf"

[majidosmani]

سلام با تشکر
من تغییر دادم ولی درست نشد فایلم را میفرستم بی زحمت نگاه کنید

[ali.b]

سلام با تشکر
من تغییر دادم ولی درست نشد فایلم را میفرستم بی زحمت نگاه کنید

سلام

Dim wb1, wb2 As WorkbookSet wb1 = ActiveWorkbook
wb1.Sheets(Array("Form", "4Form")).Copy
Set wb2 = ActiveWorkbook 'the new workbook is now wb2
For Each io In Array("Form", "4Form")
wb2.Sheets(io).UsedRange.Value = wb1.Sheets(io).UsedRange.Value
Next


ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:=flp & "\" & TextBox2, _
OpenAfterPublish:=False, IgnorePrintAreas:=False
ActiveWorkbook.Close

[M_ExceL]

سلام با تشکر
من تغییر دادم ولی درست نشد فایلم را میفرستم بی زحمت نگاه کنید

Sub Button170_Click()
    Dim Fname As String
    For i = 1 To 2
     Fname = ActiveWorkbook.Path & Application.PathSeparator & Sheets(i).Name & " - " & Sheets(i).Name & ".pdf"
        Sheets(i).ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    Next
End Sub

[majidosmani]

سلام و با تشکر من کد رو زدم وقتی میزنم ارور میده

[majidosmani]

Sub Button170_Click()
    Dim Fname As String
    For i = 1 To 2
     Fname = ActiveWorkbook.Path & Application.PathSeparator & Sheets(i).Name & " - " & Sheets(i).Name & ".pdf"

       Sheets(i).ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Fname, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    Next
End Sub

سلام من این کد را میزنم هر دو شیت تبدیل به پی دی اف میشه فقط در دو مشکل اینه که دو پی دی اف میشن من می خواهم دو تا یک پی ای اف بشن اول جدول بیاد بعد اخرش چارت بیاد

[M_ExceL]

سلام من این کد را میزنم هر دو شیت تبدیل به پی دی اف میشه فقط در دو مشکل اینه که دو پی دی اف میشن من می خواهم دو تا یک پی ای اف بشن اول جدول بیاد بعد اخرش چارت بیاد

سلام،
از کد زیر استفاده کنید :

Sub Button170_Click()
Dim Fname As String
    If Sheets(1).Name = "Chart1" Then
        Sheets("Chart1").Move After:=Sheets("back weld")
    End If
        Fname = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".pdf"
        Sheets(Array("Chart1", "back weld")).Select
        ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=Fname, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
        Sheets("back weld").Move After:=Sheets("Chart1")
End Sub

یا حق.