نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: جدا کردن شیت های فایل به صورت فایل های مجزای اکسل

  1. #1


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    جدا کردن شیت های فایل به صورت فایل های مجزای اکسل

    از کد زیر برای جدا کردن شیت های یک فایل به صورت فایل های مجزا میتونید بهره ببرید
    کد PHP:
    Sub CreateWorkbooks()
    Dim wb As Workbook
    Dim wbs 
    As Workbook
    Dim sht 
    As Object
    Dim strSavePath 
    As String
    On Error 
    GoTo ErrorHandler
    Application
    .ScreenUpdating False
    strSavePath 
    "C:\Documents and Settings\vatan\Desktop\"
    Set wbs = ActiveWorkbook
    For Each sht In wbs.Sheets
    sht.Copy
    Set wb = ActiveWorkbook
    wb.SaveAs strSavePath & sht.Name
    wb.Close
    Next
    Application.ScreenUpdating = True
    Exit Sub
    ErrorHandler:
    MsgBox "
    FailedError number=" & Err.Number & "Error description=" & Err.Description & "."
    End Sub 
    توجه داشته باشید در قسمت زیر مسیر مد نظر خودتون رو وارد کنید

    کد PHP:
    strSavePath "C:\Documents and Settings\vatan\Desktop\" 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.




  2.  

  3. #2

    آخرین بازدید
    2019/01/04
    تاریخ عضویت
    May 2014
    نوشته ها
    1
    امتیاز
    12
    سپاس
    1
    سپاس شده
    2 در 1 پست
    سطح اکسل
    47.00 %

    سلام
    کجا باید این کد را وارد کنیم؟

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    سلام
    وارد محیط وی بی بشید(Alt+F11)
    یک module ایجاد کنید و کد را اونجا پیست کنید


  6. #4


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    این کد ها هم کارتو راه میندازه
    کد:
    Sub 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 = "Sheet1" 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



  7. #5


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    و این یکی کمی فرق داره
    کد:
    Sub 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).Range("G9").Value & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
     
    ActiveWindow.Close False
    End If
    Next ws
     
     
     
     
    End Sub
    قسمتی که ابی هست رو به ادرس سلولی که میخوای هر شیت به نام اون سلول به صورت pdf ذخیره بشه، تغییر بده



  8. #6

    آخرین بازدید
    2015/11/20
    تاریخ عضویت
    November 2015
    نوشته ها
    1
    امتیاز
    10
    سپاس
    3
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    Clap درخواست آموزش جداسازی شیت های اکسل

    نقل قول نوشته اصلی توسط khakzad نمایش پست ها
    سلام
    وارد محیط وی بی بشید(Alt+F11)
    یک module ایجاد کنید و کد را اونجا پیست کنید
    سلام برادر، میشه بیشتر توضیح بدین متوجه نشدم (چطور ذخیره میشه و...)..اجرکم عندالله.

  9. #7

    آخرین بازدید
    2018/03/25
    تاریخ عضویت
    November 2016
    محل سکونت
    تهران
    نوشته ها
    4
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    سلام بسیار ممنونم و بسیار کاربردی بود. فقط آیا میشه با فرمت خاص سیو کنه؟ می خوام XLS (فرمت 97-2003) ذخیره کنم

  10. #8

    آخرین بازدید
    2019/04/15
    تاریخ عضویت
    April 2019
    نوشته ها
    1
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    سطح اکسل
    12.00 %

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


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

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

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

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

  1. انتقال داده های یک شیت به شیت دیگر به صورت پویا
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2020/10/01, 07:48
  2. unhide کردن شیت های اکسل به صورت همزمان
    توسط tahamtan در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 19
    آخرين نوشته: 2018/08/18, 08:08
  3. پاسخ ها: 5
    آخرين نوشته: 2015/02/12, 21:52
  4. فراخوانی داده از شیت دیگر به صورت رندوم
    توسط sas_ily در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 2012/06/30, 20:37
  5. نمایش اعداد منفی به صورت مثیت در لیست باکس
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/06/25, 18:34

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

https:forum.exceliran.comshowthread.php4481-جدا-کردن-شیت-های-فایل-به-صورت-فایل-های-مجزای-اکسل

نحوه تبدیل شیت های اکسل به فایل مجزای اکسل

ذخیره یک شیت از اکسل

ذخیره کردن جداگانه شیت در اکسل

چگونه یک شیت در اکسل را جداگانه ذخیره کنیم

جدا کردن شیت های اکسل

جدا کردن صفحات اکسل

جدا کردن یک شیت به اکسل

روش جدا کردن فایل ها در اکسل

سیو کردن یک شیط اکسل به صورت تکی

ساخت چند کارنامه جدا از هم در یک اکسل

جداکردن شیت ها در اکیل

سیو‌ کردن شیت به عنوان فایل جدا

جدا کردن شیت اتوکد

تفکیک و جداسازی شیت ها در اکسل

تفکیک شیت ها در اکسل

ذخیره یک شیت از فایل اکسل

جداکردن sheet

ذخیره شیت تکی در اکسل

ذخیره ایکس به صورت شیت

چطور از روی شیتهای اکسل یک شیت را ایمیل کنیم

جدا کردن شیت در اکسل

چگونه یک شیت را یک کاربرگ اکسل خارج کنببم

کپی کردن یک جدول از یک فایل اکسل به یک فایل اکسل جدید

استخراج یک شیت در اکسل و ذخیره مجزا

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

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

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

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