[حل شده] تغییر در دستور vba

[nazi nazi]

سلام
در کد زیر که مربوط به save کردن شیت در فرمت pdf هست میخوام تغییراتی بدم لطفا کمک کنید
در این کد همون شیتی که داخلش هستیم به pdf تبدیل میشه . در یک فایل اکسل یک شیت پنهان دارم که میخوام اون شیت را تبدیل به pdf کنم
یعنی با همین کد در شیت 1 شیت دو را که پنهان هست به pdf تبدیل کنم
لطفا راهنمایی کنید

Sub Export()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = ActiveSheet
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile

myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")

If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

    MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If

exitHandler:
    Exit Sub
errHandler:
    MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
    Resume exitHandler
End Sub 

[Amir Ghasemiyan]

سلام دوست عزیز

این خط کد رو باید تغییر بدین

Set ws = ActiveSheet

به این صورت:

Set ws = Sheet2

[nazi nazi]

سلام دوست عزیز

این خط کد رو باید تغییر بدین

Set ws = ActiveSheet

به این صورت:

Set ws = Sheet2

سلام
ممنون از جواب شما ولی انجام نمیشه
نام شیت مورد نظر Admin-1 هست که فایل را بپیوست قرار دادم لطفا بررسی نمایید

[Amir Ghasemiyan]

سلام
ممنون از جواب شما ولی انجام نمیشه
نام شیت مورد نظر Admin-1 هست که فایل را بپیوست قرار دادم لطفا بررسی نمایید

من اسم شيت رو نذاشتم. شما دقيقا همين Sheet2 رو بايد بنويسيد. اين عبارت كه نوشتم اسم شيت نيست درواقع يه جورايي آي دي شيت هست

[nazi nazi]

من اسم شيت رو نذاشتم. شما دقيقا همين Sheet2 رو بايد بنويسيد. اين عبارت كه نوشتم اسم شيت نيست درواقع يه جورايي آي دي شيت هست


[ATTACH=CONFIG]16074[/ATTACH]

با نوشتن sheet2 هم نمیشه
هر چی تست میکنم خطا میده
شاید چون شیت 2 مخفی هست خطا میده

[Amir Ghasemiyan]

با نوشتن sheet2 هم نمیشه
هر چی تست میکنم خطا میده
شاید چون شیت 2 مخفی هست خطا میده

بله دقيقا به همين دليل هست كه خطا ميده
شما اول بايد از حالت مخفي خارجش كنيد و خروجي بگيريد و مجدد مخفي كنيد
از اين كدها ميتونين كمك بگيريد

Sheet1.Visible = xlSheetHidden
Sheet1.Visible = xlSheetVisible

[majid_mx4]

با سلام

ضمن تشکر از استاد عزیز جناب آقای قاسمیان فکر کنم که Sheet2 باید جایگزین دستور ایشان بشود به هر روی دستور زیر بر گرفته شده از راهنمایی های ایشان می باشدو
میتوانید از دستور زیر برای اینکار استفاده نمایید.

Sub Export()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
'On Error GoTo errHandler
Dim wks As Worksheet
'Set wks = ActiveWorkbook.Sheet2
 Application.ScreenUpdating = False
If Sheet2.Visible <> xlSheetVisible Then
Sheet2.Visible = xlSheetVisible
Set ws = Sheet2
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile
myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")
If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If
 Sheet2.Visible = xlSheetHidden
 Application.ScreenUpdating = True
 End If
 Set wks = Nothing
exitHandler:
    Exit Sub
errHandler:
    MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
    Resume exitHandler
End Sub

موفق باشید میر

[nazi nazi]

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

[Amir Ghasemiyan]

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

منظورتون نام فايل اكسل هست يا اسم شيت؟ به هر اسمي بذاريد اين مشكل رو داريد؟

[nazi nazi]

منظورتون نام فايل اكسل هست يا اسم شيت؟ به هر اسمي بذاريد اين مشكل رو داريد؟

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

[Amir Ghasemiyan]

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

فايلتون رو ضميمه كنيد بررسي كنم

[nazi nazi]

فايلتون رو ضميمه كنيد بررسي كنم

فایلش تا rar نباشه قابلیت ارسال نداره

[Amir Ghasemiyan]

فایلش تا rar نباشه قابلیت ارسال نداره

بله كاربرا امكان آپلود فايل هاي xlsm رو ندارند

شما كدهاتون رو اصلاح نكردين هنوز. خطايي كه ميده به تغيير نام ربط نداره. كدهايي كه خدمتتون ارسال ميكنم رو جايگزين كدهاي خودتون بفرماييد

Sub Export()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = Sheet2
Sheet2.Visible = xlSheetVisible
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile


myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")


If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False


    MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If
Sheet2.Visible = xlSheetHidden
exitHandler:
    Exit Sub
errHandler:
    MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
    Resume exitHandler
End Sub

[nazi nazi]

بله كاربرا امكان آپلود فايل هاي xlsm رو ندارند

شما كدهاتون رو اصلاح نكردين هنوز. خطايي كه ميده به تغيير نام ربط نداره. كدهايي كه خدمتتون ارسال ميكنم رو جايگزين كدهاي خودتون بفرماييد

Sub Export()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = Sheet2
Sheet2.Visible = xlSheetVisible
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile


myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="ãÓíÑ æ äÇã ÝÇíá ÑÇ ÌåÊ ÐÎíÑå ÓÇÒí ãÔÎÕ äãÇÆíÏ")


If myFile <> "False" Then
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False


    MsgBox ".ÝÇíá ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÑÏíÏ"
End If
Sheet2.Visible = xlSheetHidden
exitHandler:
    Exit Sub
errHandler:
    MsgBox "ÎØÇ ÏÑ ÇíÌÇÏ ÝÇíá"
    Resume exitHandler
End Sub

ممنونم انجام شد

[Amir Ghasemiyan]

ممنونم انجام شد

خواهش میکنم.اگه جوابتون رو گرفتین لطف کنید تاپیک رو حل شده کنید