ذخیره شدن شیت به صورت pdf با نام دلخواه

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ali.b

    • 2014/01/12
    • 798
    #1

    ذخیره شدن شیت به صورت pdf با نام دلخواه

    سلام
    چکار باید کنم که با این کد از اسم شیت برای نام PDF استفاده نکنه و از سلول دلخواه اسم فایل PDF رو بگیره
    کد:
    Option ExplicitSub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook




For Each ws In Awb.Sheets
    If Not ws.Name = "" Then
        'Sheets(ws.Name).Copy
        Awb.Sheets(ws.Name).Copy
        'Sheets(ws.Name).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
        
        ActiveWindow.Close False
    End If
Next ws




End Sub
    [CENTER]
    [/CENTER]
    برچسب ها: pdf, نام, به, با, دلخواه, ذخیره, شیت, شدن, صورت
    • Amir Ghasemiyan

      • 2013/09/20
      • 4600
      • 100.00
      #2
      نوشته اصلی توسط absorkhi
      سلام
      چکار باید کنم که با این کد از اسم شیت برای نام PDF استفاده نکنه و از سلول دلخواه اسم فایل PDF رو بگیره
      کد:
      Option ExplicitSub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook




For Each ws In Awb.Sheets
    If Not ws.Name = "" Then
        'Sheets(ws.Name).Copy
        Awb.Sheets(ws.Name).Copy
        'Sheets(ws.Name).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        [COLOR=#ff0000]Awb.Path & "\" & Awb.Sheets(ws.Name).Name & [/COLOR]".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
        
        ActiveWindow.Close False
    End If
Next ws




End Sub

      سلام
      قسمتي كه رنگي كردم رو دقت كنيد متوجه ميشيد

        کامنت

        قبلی template بعدی
        چند لحظه..