صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 19

موضوع: تغییر در دستور vba

  1. #1


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    تغییر در دستور vba

    سلام
    در کد زیر که مربوط به save کردن شیت در فرمت pdf هست میخوام تغییراتی بدم لطفا کمک کنید
    در این کد همون شیتی که داخلش هستیم به pdf تبدیل میشه . در یک فایل اکسل یک شیت پنهان دارم که میخوام اون شیت را تبدیل به pdf کنم
    یعنی با همین کد در شیت 1 شیت دو را که پنهان هست به pdf تبدیل کنم
    لطفا راهنمایی کنید
    کد PHP:
    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 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    19 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

    این خط کد رو باید تغییر بدین
    کد:
    Set ws = ActiveSheet
    به این صورت:
    کد:
    Set ws = Sheet2

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    سلام دوست عزیز

    این خط کد رو باید تغییر بدین
    کد:
    Set ws = ActiveSheet
    به این صورت:
    کد:
    Set ws = Sheet2
    سلام
    ممنون از جواب شما ولی انجام نمیشه
    نام شیت مورد نظر Admin-1 هست که فایل را بپیوست قرار دادم لطفا بررسی نمایید
    فايل هاي پيوست شده فايل هاي پيوست شده

  6. #4


    آخرین بازدید
    19 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    سلام
    ممنون از جواب شما ولی انجام نمیشه
    نام شیت مورد نظر Admin-1 هست که فایل را بپیوست قرار دادم لطفا بررسی نمایید
    من اسم شيت رو نذاشتم. شما دقيقا همين Sheet2 رو بايد بنويسيد. اين عبارت كه نوشتم اسم شيت نيست درواقع يه جورايي آي دي شيت هست


    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Untitled.png
مشاهده: 29
حجم:  11.0 کیلو بایت

  7. #5


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    من اسم شيت رو نذاشتم. شما دقيقا همين Sheet2 رو بايد بنويسيد. اين عبارت كه نوشتم اسم شيت نيست درواقع يه جورايي آي دي شيت هست


    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  Untitled.png
مشاهده: 29
حجم:  11.0 کیلو بایت
    با نوشتن sheet2 هم نمیشه
    هر چی تست میکنم خطا میده
    شاید چون شیت 2 مخفی هست خطا میده

  8. #6


    آخرین بازدید
    19 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    با نوشتن sheet2 هم نمیشه
    هر چی تست میکنم خطا میده
    شاید چون شیت 2 مخفی هست خطا میده

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

    کد:
    Sheet1.Visible = xlSheetHidden
    Sheet1.Visible = xlSheetVisible

  9. سپاس ها (2)


  10. #7


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    ضمن تشکر از استاد عزیز جناب آقای قاسمیان فکر کنم که 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

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

  11. سپاس ها (1)


  12. #8


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

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

  13. #9


    آخرین بازدید
    19 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    ممنون از پاسخ
    فقط کد بالا یه مشکلی داره که وقتی نام فایل سیو شده را تغییر میدی دیگه اجرا نمیشه و خطا میده
    منظورتون نام فايل اكسل هست يا اسم شيت؟ به هر اسمي بذاريد اين مشكل رو داريد؟

  14. #10


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    منظورتون نام فايل اكسل هست يا اسم شيت؟ به هر اسمي بذاريد اين مشكل رو داريد؟
    کلا مشکل داره هم اسم فایل هم اسم فایلی که موقع سیو شدن میخواد را عوض کنی خطا میده
    کلا نمیدونم چرا یکی دو بار بیشتر کار نمیکنه


صفحه 1 از 2 12 آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. تغییر در دستور مورد نظر در ماکرو
    توسط maziardm در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2017/08/16, 12:49
  2. چگونگی تغییر فونت و رنگ در هنگام استفاده از دستور concatenate ؟؟
    توسط alireza_a4 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2017/08/03, 15:14
  3. تغییر رنگ داده ها در دستور if
    توسط siyamaksalimi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2016/10/24, 21:53
  4. تغییر در خصوصیات سلول با نوشتن دستور
    توسط alishams119900 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 14
    آخرين نوشته: 2013/11/27, 13:33

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است