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

موضوع: ایجاد فایل توسط ماکرو

  1. #1


    آخرین بازدید
    2022/04/09
    تاریخ عضویت
    June 2014
    نوشته ها
    8
    امتیاز
    14
    سپاس
    0
    سپاس شده
    4 در 3 پست
    تعیین سطح نشده است

    ایجاد فایل توسط ماکرو

    سلام من میخوام ماکرویی بنویسم که با اجرای آن فایلی در مسیر مشخصی ایجاد بشه و نام آن فایل رو از توی یک سلول بخونه و نام گذاری کنه .
    لطفا کمکم کنید.
    مثال : Sheet1 سلول A1 = حسین
    فایل جدیدی در Desktop با نام حسین.txt ایجاد کنه.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

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

  4. سپاس ها (2)


  5. #3

    آخرین بازدید
    2022/05/11
    تاریخ عضویت
    August 2016
    نوشته ها
    3
    امتیاز
    11
    سپاس
    1
    سپاس شده
    1 در 1 پست
    سطح اکسل
    20.00 %

    کد زیر را وارد کن
    "ActiveWindow.Saveas FileName:=ThisWorkBook.Path & "" & ThisWorkBook.Sheets("Sheet1").Range("A1").Value &".xls

  6. #4

    آخرین بازدید
    2022/05/11
    تاریخ عضویت
    August 2016
    نوشته ها
    3
    امتیاز
    11
    سپاس
    1
    سپاس شده
    1 در 1 پست
    سطح اکسل
    20.00 %

    کد زیر را وارد کن
    'این کد شیت 1 فایل باز رو میبره تو فولدری که تو سلولA1 اسمش رو نوشتی با نام فایل که تو سلول A2 نوشتی ذخیره می کنه ، دفعه بعد هم اگه نخوای فولدر تغییر کنه میبره تو همون فولدر قبلی ذخیره میکنه
    Sub MakeMyFolder()


    Dim fdObj As Object
    Dim MyDrive, MyFolder, MyFileName, FolderCreat, MyPath, Directory As String

    'اینجا داخل "" اسم درایوی که میخوای فایل جدید سیو بشه رو بنویس
    MyDrive = "E:"

    'اینجا توی"" اگه بعد از درایو فولدر خاصی مد نظرت هست وارد کن
    MyFolder = "Abalfazl-Fils\PS\Training\Files"
    FolderCreat = ThisWorkbook.Sheets(1).Range("A1").Value & ""

    MyFileName = ThisWorkbook.Sheets(1).Range("A2").Value

    Directory = MyDrive & MyFolder & FolderCreat
    MyPath = Directory & MyFileName
    Application.ScreenUpdating = False

    Set fdObj = CreateObject("Scripting.FileSystemObject")

    If fdObj.FolderExists(Directory) Then

    MsgBox "Found it.", vbInformation, "itsavad.ir"
    Dim wb As Workbook


    Set wb = Workbooks.Add
    Set wb = ActiveWorkbook
    ThisWorkbook.Sheets(2).Copy Before:=wb.Sheets(1)




    With wb

    .SaveAs MyPath, FileFormat:=xlOpenXMLWorkbook
    .Close savechanges:=False
    End With
    Else
    fdObj.CreateFolder (Directory)

    MsgBox "It has been created.", vbInformation, "itsavad.ir"


    Set wb = Workbooks.Add
    Set wb = ActiveWorkbook
    ThisWorkbook.Sheets(2).Copy Before:=wb.Sheets(1)




    With wb

    .SaveAs MyPath, FileFormat:=xlOpenXMLWorkbook
    .Close savechanges:=False



    MsgBox "File Saved", vbInformation


    End With
    End If
    Application.ScreenUpdating = True


    End Sub


    'اینجا داخل "" اسم درایوی که میخوای فایل جدید سیو بشه رو بنویس

  7. سپاس ها (1)


  8. #5


    آخرین بازدید
    2021/03/23
    تاریخ عضویت
    November 2017
    محل سکونت
    زیر آسمون خدا
    نوشته ها
    130
    امتیاز
    209
    سپاس
    28
    سپاس شده
    199 در 100 پست
    سطح اکسل
    81.00 %

    نقل قول نوشته اصلی توسط alirezaariana نمایش پست ها
    سلام من میخوام ماکرویی بنویسم که با اجرای آن فایلی در مسیر مشخصی ایجاد بشه و نام آن فایل رو از توی یک سلول بخونه و نام گذاری کنه .
    لطفا کمکم کنید.
    مثال : Sheet1 سلول A1 = حسین
    فایل جدیدی در Desktop با نام حسین.txt ایجاد کنه.
    سلام دوست عزیز
    برای این کار کد زیر رو استفاده کنید یه فایل در Desktop با نام محتویات سلول A1 ایجاد میکنه و داخلش مینویسه Salam! البته متنشو میتونید عوض کنید یا اصلا حذفش کنید که فایل متنی خالی ساخته شه:

    کد PHP:
    Set fs CreateObject("Scripting.FileSystemObject")
        
    Set a fs.CreateTextFile(Environ("USERPROFILE") & "\Desktop\" & Worksheets("Sheet1").Cells(1,1).Value & ".txt", True)
        a.WriteLine("
    Salam")
        a.Close 


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

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

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

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

  1. فراخوانی از اکسس توسط اکسل
    توسط hamidrezasadeghi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2014/03/06, 09:17
  2. ارسال ایمیل توسط این Addin
    توسط hosseinamerey در انجمن add-ins
    پاسخ ها: 6
    آخرين نوشته: 2014/01/18, 00:21
  3. ساخت فرم توسط اکسل
    توسط ehsan13637 در انجمن ساير رشته ها - Other Disciplines
    پاسخ ها: 3
    آخرين نوشته: 2013/11/04, 20:08
  4. آمار گيري توسط اكسل
    توسط ali2449 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2012/10/09, 11:11
  5. ایجاد فرم های سفارشی توسط VBA
    توسط m_d6712 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/03/30, 11:11

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

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

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

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

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

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