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

موضوع: باز كردن فايل جديد (خالي) (با امكان تعيين نام براي ذخيره آن) و كپي داده*ها از فايل اول به فايل جديد

  1. #1


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    باز كردن فايل جديد (خالي) (با امكان تعيين نام براي ذخيره آن) و كپي داده*ها از فايل اول به فايل جديد

    با سلام و عرض ادب خدمت همه اساتيد گرامي
    نياز به يه دستور دارم تا با يك كليد، يك فايل خالي باز بشه و برخي داده*ها از فايل اصلي رو داخل اون كپي كنم. اگه امكان ذخيره فايل جديد با نام مورد نظر من هم وجود داشته باشه كه خيلي عاليه
    ممنون ميشم اگه راهنمايي بفرماييد
    نكته مهم: هنگامي كه فرم در حال اجراست، دو تا فايل بازه و اطلاعات بايد از يك فايل در يك فايل جديد (خالي) كپي بشه
    اين ماكرو رو براش ضبط كردم اما خطا ميده
    به همون خط اول گير ميده
    Application.Workbooks("Liste hoghoogh").Range("J.LISTE.HOGHOGH[#All]").Select
    Application.Workbooks("Liste hoghoogh").Sheets("ListeHoghooghi").Range("C12").A ctivate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ChDir "C:\Users\313\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\313\Desktop\ليست حقوقي.xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ActiveWindow.Close

    در ضمن مي*خوام در صورت امكان، نام فايل رو از يك سلول بگيره
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط ظهور 313 : 2017/12/26 در ساعت 14:23

  2.  

  3. #2


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    آقا كسي نيست راهنمايي كنه
    اساااااتييييد كمك

  4. #3


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    خوب خوبه كه لااقل خودم هستم جواب بدم
    كد رو اينجوري تغيير دادم و الان درست كار ميكنه. فقط دو تا مشكل دارم
    اول اينكه چه كنم تا محل ذخيره، در همون پوشه فايل سورس باشه (اينجوري روي دسكتاپ سيستم*هاي ديگه به مشكل ميخوره)
    دوم اينكه: ميخوام اسم فايل جديد كه ذخيره ميشه، مساوي با يك سلول باشه
    Windows("Liste hoghoogh.xlsm").Activate
    Sheets("ListeHoghooghi").Select
    Range("J.LISTE.HOGHOGH[#All]").Select
    Range("A1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveWorkbook.SaveAs Filename:="C:\Users\313\Desktop\111222.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Workbooks("Liste hoghoogh").Application.Visible = False

  5. #4


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

    يعني هيچ كدوم از اساتيد نميتونند راهنمايي كنن؟
    بابا ظاهرا اينقدرم سخت نيست
    درسته ما بي*سواديم ولي معلومه اين خيلي نبايد پيچيده باشه (البته براي اساتيد)

  6. #5


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

    نقل قول نوشته اصلی توسط ظهور 313 نمایش پست ها
    خوب خوبه كه لااقل خودم هستم جواب بدم
    كد رو اينجوري تغيير دادم و الان درست كار ميكنه. فقط دو تا مشكل دارم
    اول اينكه چه كنم تا محل ذخيره، در همون پوشه فايل سورس باشه (اينجوري روي دسكتاپ سيستم*هاي ديگه به مشكل ميخوره)
    دوم اينكه: ميخوام اسم فايل جديد كه ذخيره ميشه، مساوي با يك سلول باشه
    Windows("Liste hoghoogh.xlsm").Activate
    Sheets("ListeHoghooghi").Select
    Range("J.LISTE.HOGHOGH[#All]").Select
    Range("A1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveWorkbook.SaveAs Filename:="C:\Users\313\Desktop\111222.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Workbooks("Liste hoghoogh").Application.Visible = False

    سلام دوست عزیز
    برای اینکه آدرس همان آدرس فایل موجود باشه و اسم رو هم از یک سلول مثلا A1 بخونه از این خط کد کمک بگیرید:
    کد:
    ActiveWorkbook.Path & "\" & Sheet1.Range("A1").Value

  7. سپاس ها (1)


  8. #6


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

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

    سلام دوست عزیز
    برای اینکه آدرس همان آدرس فایل موجود باشه و اسم رو هم از یک سلول مثلا A1 بخونه از این خط کد کمک بگیرید:
    کد:
    ActiveWorkbook.Path & "\" & Sheet1.Range("A1").Value
    ممنون آقاي قاسميان عزيز
    راستش حرفه*اي نيستم
    نتونستم كد شما تحليل كنم، ميشه كاملش رو برام بزاريد
    اگه ممكنه به جاي اينكه فايل جديد باز كنم، آدرس يه فايل مشخص در مسير همون فايل اصلي رو بهش بديد





    ویرایش توسط ظهور 313 : 2018/01/01 در ساعت 11:19

  9. #7


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

    نقل قول نوشته اصلی توسط ظهور 313 نمایش پست ها
    ممنون آقاي قاسميان عزيز
    راستش حرفه*اي نيستم
    نتونستم كد شما تحليل كنم، ميشه كاملش رو برام بزاريد
    اگه ممكنه به جاي اينكه فايل جديد باز كنم، آدرس يه فايل مشخص در مسير همون فايل اصلي رو بهش بديد






    تحليل خاصي نميخواد. يكم ترجمه فقط
    activeworkbook يعني فايل جاري
    path يعني مسير
    پس ميشه مسير فايل جاري . يعني پوشه اي كه فايل جاري داخلش قرار داره
    بعدش يك بك اسلش و بعد هم اسم فايلي كه ميخوايد

    حالا اگه بخوايم بگيم يك فايل رو كه اسمشو تو سلول A1 نوشتم باز كن اينطوري مينويسيم:
    کد:
    Workbooks.Open ActiveWorkbook.Path & "\" & Sheet1.Range("A1").Value

  10. سپاس ها (1)


  11. #8


    آخرین بازدید
    2022/05/13
    تاریخ عضویت
    January 2017
    نوشته ها
    244
    امتیاز
    29
    سپاس
    0
    سپاس شده
    19 در 15 پست
    تعیین سطح نشده است

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

    تحليل خاصي نميخواد. يكم ترجمه فقط
    activeworkbook يعني فايل جاري
    path يعني مسير
    پس ميشه مسير فايل جاري . يعني پوشه اي كه فايل جاري داخلش قرار داره
    بعدش يك بك اسلش و بعد هم اسم فايلي كه ميخوايد

    حالا اگه بخوايم بگيم يك فايل رو كه اسمشو تو سلول A1 نوشتم باز كن اينطوري مينويسيم:
    کد:
    Workbooks.Open ActiveWorkbook.Path & "\" & Sheet1.Range("A1").Value
    ممنون استاد اين خيلي عاليه
    حالا يه سوال ديگه دارم، ميشه خروجي pdf رو با يه اسم خاص (در يك سلول مشخص) و در يك مسير مشخص ذخيره كرد (بدون اينكه از كاربر سوالي بپرسه)

  12. #9


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

    نقل قول نوشته اصلی توسط ظهور 313 نمایش پست ها
    ممنون استاد اين خيلي عاليه
    حالا يه سوال ديگه دارم، ميشه خروجي pdf رو با يه اسم خاص (در يك سلول مشخص) و در يك مسير مشخص ذخيره كرد (بدون اينكه از كاربر سوالي بپرسه)


    خواهش ميكنم

    براي خروجي گرفتن بصورت PDF يا XPS از تابع ExportAsFixedFormat بايد استفاده بشه.من كاملترين حالتش رو براتون مينويسم.
    کد:
    Sheet1.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\ExcelIran.pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            From:=1, _
            To:=1, _
            OpenAfterPublish:=False


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

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

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

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

  1. [حل شده] تعيين رتبه و امتياز هز گروه
    توسط moslemi در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2017/09/01, 01:16
  2. پيدا كردن تكراري هاي يك ستون و هايلايت كردن انها و كپي در شيت جداگانه و همچنين كپي گز
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/07, 13:18
  3. تعيين روز هفته
    توسط khalafeh در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2014/03/10, 21:06
  4. تعيين ماكزيمم ومينيمم
    توسط khalafeh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2013/06/14, 10:30
  5. تعيين ستون خودكارپرشونده
    توسط omnia در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2013/05/15, 00:32

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

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

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

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

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