پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: لطفاً کدهای این فایل بررسی کنید چرا خروجی را سیو نمیکند

  1. #1


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

    Cap لطفاً کدهای این فایل بررسی کنید چرا خروجی را سیو نمیکند

    میخوام این فایل اکسل یه سیو از شیت فعال بگیره و در یه مسیر دلخواه یا ثابت ذخیره کنه البته گه بشه خروجی به صورت پی دی اف باشه خیلی بهتر میشه
    کمکم کنید لطفاً
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده

  2.  

  3. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    از نمونه زیر الگو بگیرید
    فايل هاي پيوست شده فايل هاي پيوست شده
    مهدی کریمی


  4. #3


    آخرین بازدید
    2020/11/10
    تاریخ عضویت
    October 2013
    محل سکونت
    اصفهان
    نوشته ها
    38
    امتیاز
    173
    سپاس
    10
    سپاس شده
    183 در 34 پست
    سطح اکسل
    0.00 %

    Mad اصلاح کد

    با اجازه آقای کریمی
    کدهاتون مشکلی نداشت فقط مسیر را هنگام ذخیره اعلام نکرده بودید با احترام به آقای کریمی کد ایشون را هم اضافه نمودم
    فايل هاي پيوست شده فايل هاي پيوست شده


  5. #4


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

    مرسی ممنونم از جوابهای کامل و نمونه کارهاتون واقعا متشکرم از اساتید بزرگ
    دوستان این کد vba فقط تو آفیس 2010 به بالا که قابلیت pdfداره کار میکنه آیا یه Addin هست که بشه تو 2007 این کار pdf انجام بده ؟
    ویرایش توسط hosseinamerey : 2013/12/19 در ساعت 18:30

  6. #5


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

    با سلام دوستان و همکاران عزیز من خودم تونستم سوال خودم را جواب بدم البته با کلی چک و چونه زدن با اعضای مایکروسافت
    برای اینکه بتونیم یه pdf از کار خودمون داشته باشیم
    1 : پرینت از sheet
    2: پرینت از worksheet
    3: پرینت از روی محدوده انتخابی (Selected Range)
    شرکت مایکروسافت یه Addin به من معرفی کرده که براتون میذارم و روش بعدی استفاده از کد های ماکرو و ماژول نویسی ست .
    امیدوارم که خوشتون بیاد اگه لازم شد و نتونستید با کدها کار کنید بگید تا براتون یه فایل نمونه بذارم .
    فايل هاي پيوست شده فايل هاي پيوست شده

  7. سپاس ها (4)


  8. #6


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

    کد PHP:
    Sub RDB_Workbook_To_PDF()
        
    Dim FileName As String
        
    'Call the function with the correct arguments
        FileName = RDB_Create_PDF(ActiveWorkbook, True, True)

        If FileName <> "" Then
            '
    Okyou find the PDF where you saved it
            
    'You can call the mail macro here if you want
        Else
            MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
                   "Microsoft Add-in is not installed" & vbNewLine & _
                   "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
                   "You didn'
    t want to overwrite the existing PDF file"
        End If
    End Sub

    Sub RDB_Worksheet_Or_Worksheets_To_PDF()
        Dim FileName As String

        If ActiveWindow.SelectedSheets.Count > 1 Then
            MsgBox "
    There is more then one sheet selected," & vbNewLine & _
                   "
    be aware that every selected sheet will be published"
        End If

        'Call the function with the correct arguments
        FileName = RDB_Create_PDF(ActiveSheet, True, True)

        If FileName <> "" Then
            'Ok, you find the PDF where you saved it
            'You can call the mail macro here if you want
        Else
            MsgBox "
    Not possible to create the PDFpossible reasons:" & vbNewLine & _
                   "
    Microsoft Add-in is not installed" & vbNewLine & _
                   "
    You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
                   "
    You didn't want to overwrite the existing PDF file"
        End If
    End Sub

    Sub RDB_Selection_Range_To_PDF()
        Dim FileName As String

        If ActiveWindow.SelectedSheets.Count > 1 Then
            MsgBox "There is more then one sheet selected," & vbNewLine & _
                   "ungroup the sheets and try the macro again"
        Else
            '
    Call the function with the correct arguments
            FileName 
    RDB_Create_PDF(SelectionTrueTrue)
            
    'For a fixed range use this line
            '
    FileName RDB_Create_PDF(Range("A1:C12"), TrueTrue)

            If 
    FileName <> "" Then
                
    'Ok, you find the PDF where you saved it
                '
    You can call the mail macro here if you want
            
    Else
                
    MsgBox "Not possible to create the PDF, possible reasons:" vbNewLine _
                       
    "Microsoft Add-in is not installed" vbNewLine _
                       
    "You Canceled the GetSaveAsFilename dialog" vbNewLine _
                       
    "You didn't want to overwrite the existing PDF file"
            
    End If
        
    End If
    End Sub

    Function RDB_Create_PDF(Myvar As ObjectOverwriteIfFileExist As Boolean_
                            OpenPDFAfterPublish 
    As Boolean) As String
        Dim FileFormatstr 
    As String
        Dim Fname 
    As Variant

        
    'Test If the Microsoft Add-in is installed
        If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
             & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then

            '
    Open the GetSaveAsFilename dialog to enter a file name for the pdf
            FileFormatstr 
    "PDF Files (*.pdf), *.pdf"
            
    Fname Application.GetSaveAsFilename(""filefilter:=FileFormatstr_
                                                  Title
    :="Create PDF")

            
    'If you cancel this dialog Exit the function
            If Fname = False Then Exit Function

            '
    If OverwriteIfFileExist False we test if the PDF
            
    'already exist in the folder and Exit the function if that is True
            If OverwriteIfFileExist = False Then
                If Dir(Fname) <> "" Then Exit Function
            End If

            '
    Now the file name is correct we Publish to PDF
            On Error Resume Next
            Myvar
    .ExportAsFixedFormat _
                    Type
    :=xlTypePDF_
                    FileName
    :=Fname_
                    Quality
    :=xlQualityStandard_
                    IncludeDocProperties
    :=True_
                    IgnorePrintAreas
    :=False_
                    OpenAfterPublish
    :=OpenPDFAfterPublish
            On Error 
    GoTo 0

            
    'If Publish is Ok the function will return the file name
            If Dir(Fname) <> "" Then RDB_Create_PDF = Fname
        End If
    End Function 


  9. #7


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

    بچه ها اگر مفید بوده دکمه تشکر به پاس خدمات بفشارید . با تشکر
    آخه لازمش دارم


  10. #8


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    650
    امتیاز
    1619
    سپاس
    2,247
    سپاس شده
    1,589 در 465 پست
    سطح اکسل
    80.00 %

    Alireza به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط hosseinamerey نمایش پست ها
    با سلام دوستان و همکاران عزیز من خودم تونستم سوال خودم را جواب بدم البته با کلی چک و چونه زدن با اعضای مایکروسافت
    برای اینکه بتونیم یه pdf از کار خودمون داشته باشیم
    1 : پرینت از sheet
    2: پرینت از worksheet
    3: پرینت از روی محدوده انتخابی (selected range)
    شرکت مایکروسافت یه addin به من معرفی کرده که براتون میذارم و روش بعدی استفاده از کد های ماکرو و ماژول نویسی ست .
    امیدوارم که خوشتون بیاد اگه لازم شد و نتونستید با کدها کار کنید بگید تا براتون یه فایل نمونه بذارم .
    دوست من ساده ترین راه برای این کار استفاده از درایور مجازی پرینتر pdf است با نصب یک نرم افزار ساده میشه چاپ خروجی از فایل رو تبدیل به pdf کرد.
    تنها راهي که به شکست مي انجامد، تلاش نکردن است



  11. #9


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

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

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


  12. #10


    آخرین بازدید
    2021/09/04
    تاریخ عضویت
    September 2012
    محل سکونت
    قم
    نوشته ها
    193
    امتیاز
    451
    سپاس
    234
    سپاس شده
    508 در 132 پست
    تعیین سطح نشده است

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


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

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

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

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

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

  1. سیو کردن ویژوال در اکسل
    توسط مینو در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/01/16, 14:05
  2. سیو اتوماتیک فایل اکسل
    توسط my90d در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 2012/09/18, 16:51

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

چرا فایل اکسل ذخیره نمیشود

پرینتر pdf نمیکند

چرا خروجی ماکرو در اکسل 0 است

save as pdf چرا کار نمیکند

کلمات کلیدی این موضوع

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

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

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