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

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

  1. #1


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

    انتقال هم زمان چندین فایل اکسل به یک فایل مرجع

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


    کد PHP:

    Sub ImportDistrictsfiles
    ()

    Application.ScreenUpdating false
     Application
    .DisplayAlerts false 
    Application
    .Calculation xlManualDim 
    Tlr 
    As LongAlr As LongAs StringAs StringAs WorksheetAs IntegerAs IntegerAs Variant
    Application.GetOpenFilename(FileFilter:="Excel files (*.xls), *.xls,Excel files (*.xlsm),*.xlsm,Excel files (*.xlsx),*.xlsx"MultiSelect:=True)
    With Application
    .ScreenUpdating False
    .EnableEvents False
    End With
    On Error Resume Next
    For 1 To UBound(z)
    If 
    Err.Number 13 Then
    With Application
    .ScreenUpdating True
    .EnableEvents True
    End With
    MsgBox 
    "You did not select any workbooks." vbCrLf _
    "Click OK to exit this macro."48"Import action cancelled."
    On Error GoTo 0
    Err
    .Clear
    Exit Sub
    End 
    If
    Workbooks.Open (z(x))
    For 
    Each w In ActiveWorkbook.Worksheets
    w.Name
    Err
    .Clear
    On Error Resume Next
    ThisWorkbook.Worksheets(v).Name
    If Err.Number <> 0 Then
    With ThisWorkbook
    .Worksheets.Add(After:=.Sheets(.Sheets.Count)).Name v
    End With
    End 
    If
    On Error GoTo 0
    Err
    .Clear
    If Application.CountA(w.Columns(1)) = 1 Then
    Alr 
    2
    Else
    Alr w.Cells.Find(What:="*"After:=[A1], SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row
    End 
    If
    If 
    Application.CountA(ThisWorkbook.Worksheets(v).Cells) <> 0 Then
    Tlr 
    ThisWorkbook.Worksheets(v).Cells.Find(What:="*"After:=[A1], SearchOrder:=xlByRowsSearchDirection:=xlPrevious).Row 1
    Else
    Tlr 1
    End 
    If
    w.Rows("1:" Alr).Copy ThisWorkbook.Worksheets(v).Cells(Tlr1)
    Next w
    ActiveWorkbook
    .Close False
    Next x
    With Application
    .ScreenUpdating True
    .EnableEvents True
    End With
    MsgBox 
    "The import is complete."64"Done !!"
    End Sub 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط ~M*E*H*D*I~ : 2018/10/31 در ساعت 21:52 دلیل:اضافه کردن چند خط کد




  2.  

  3. #2


    آخرین بازدید
    2017/12/27
    تاریخ عضویت
    July 2015
    نوشته ها
    6
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    Smiley

    باتشکر از لطف شما
    هنگام اجرای Module پیغام خطای زیر را میدهد
    object variable or with block variable not set
    لطفاً مرا راهنمایی کنید

  4. #3


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

    نقل قول نوشته اصلی توسط maryamk نمایش پست ها
    باتشکر از لطف شما
    هنگام اجرای Module پیغام خطای زیر را میدهد
    object variable or with block variable not set
    لطفاً مرا راهنمایی کنید
    فایل رو آپلود کنید تا بررسی بشه



  5. #4

    آخرین بازدید
    2016/05/17
    تاریخ عضویت
    May 2016
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    این ارور داد
    لطفا بررسی کنید

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

نام:  6.png
مشاهده: 52
حجم:  156.6 کیلو بایت

  6. #5


    آخرین بازدید
    2021/08/17
    تاریخ عضویت
    July 2010
    محل سکونت
    Yazd
    نوشته ها
    60
    امتیاز
    1
    سپاس
    15
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلام و عرض ادب با استفاده از Power Query نیز به راحتی قابل حل می باشد.
    ارادت


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

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

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

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

زمان هم در اکسل

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

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

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

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