[حل شده] انتخاب مسیر ذخیر فایل pdf

[majidosmani]

با سلام خدمت اساتید محترم من چند روز پیش سوال درباری ذخیر فایل PDF پرسیدیم که یکی از دوستان لطف کردن و یک کد نوشتن و مشکل من حل شد حالا یک کار دیگههم می خوام بکنم اگر دوستان کمک کنن ممنون میشم میخوام اخر کدی که دوست عزیز زحمت شو کشیدن یک مسیر برای ذخیره فایل بنویسم نمی دونم چطور بنویسم در این حالت فایل پی دی اف کنار فایل اکسل ایجاد میشه من میخوام یک مسیر توی کد بنویسم که مثلا فایل در دستاپ ذخیره بشه

[COLOR=#333333]Sub Button170_Click()[/COLOR]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") [COLOR=#333333]End Sub[/COLOR]

[ali.b]

با سلام خدمت اساتید محترم من چند روز پیش سوال درباری ذخیر فایل PDF پرسیدیم که یکی از دوستان لطف کردن و یک کد نوشتن و مشکل من حل شد حالا یک کار دیگههم می خوام بکنم اگر دوستان کمک کنن ممنون میشم میخوام اخر کدی که دوست عزیز زحمت شو کشیدن یک مسیر برای ذخیره فایل بنویسم نمی دونم چطور بنویسم در این حالت فایل پی دی اف کنار فایل اکسل ایجاد میشه من میخوام یک مسیر توی کد بنویسم که مثلا فایل در دستاپ ذخیره بشه

[COLOR=#333333]Sub Button170_Click()[/COLOR]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") [COLOR=#333333]End Sub[/COLOR]

سلام
این بخش رو تغییر بده به ادرسی که میخوای

Fname = [COLOR=#0000cd]ActiveWorkbook.Path[/COLOR] & "\" & [COLOR=#ff0000]ActiveWorkbook.Name[/COLOR] & ".pdf"

ابی محل ذخیره فایل
قرمز نامی که میخوای فایل به اون اسم ذخیره بشه