کد vba برای save as

[majidartoor]

با سلام و درود
1)با چه کدی میتونم فایل اکسلمو با نام مقداری که در سلول a1 وارد کردم save as کنم؟
آدرس جایی که ذخیره میکنه هم همون جایی باشه که فایل اصلیه هست.
2)فایل من 3 تا شیت داره،حالا اگه بخوام فقط یک شیت از اون فایل save as بشه باید چیکار کنم؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[علی فاطمی]

با سلام لطفا فایل پیوست رو ملاحظه کنین.
دو راه براتون نوشتم . راه اول فایل در درایو D و با حذف شیتها و با نامی که در سل b4 در شیت 1 ثبت شده save میشه و راه دوم هم مسیر و هم نام رو می تونین انتخاب کنین . البته من خودم راه دوم رو پیشنهاد می کنم.

[majidartoor]

ممنون مشکلم حل شد.
فقط ی سوال دیگه....
در مورد روش اول که مسیر فایلو درایو d تعیین کردیم آیا میشه فایل اکسلو در یه پوشه از اون درایو ذخیره کنم؟
یعنی اول ی پوشه با نامی که برابر سلول b5 هست بسازه بعد فایلو درون اون پوشه ذخیره کنه.

[Amir Ghasemiyan]

ممنون مشکلم حل شد.
فقط ی سوال دیگه....
در مورد روش اول که مسیر فایلو درایو d تعیین کردیم آیا میشه فایل اکسلو در یه پوشه از اون درایو ذخیره کنم؟
یعنی اول ی پوشه با نامی که برابر سلول b5 هست بسازه بعد فایلو درون اون پوشه ذخیره کنه.

كد رو به اين صورت اصلاح كنيد:

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim filename As String
filename = Sheet1.Range("b4")
If Len(Dir("D:\aaa\", vbDirectory)) = 0 Then MkDir "D:\aaa"
ChDir "D:\aaa"
ActiveWorkbook.SaveAs filename:= _
"D:\aaa" + filename + ".XLSM"
For Each i In Worksheets
    Select Case i.Name
        Case "Sheet1"
        Case Else
            i.Delete
    End Select
Next i
ActiveWorkbook.Close
Application.DisplayAlerts = True

End Sub

اگر مشكلتون به طور كامل حل شد تيك سبز پست اول رو بزنين لطفا

[majidartoor]

دوستان اگه بخوام بعد از save as گرفتن از اکسلم بخوام برگردم به فایل قبلی چه باید کنم؟
یعنی بعد از save as داخل همون فایل اصلی بمونم...

[ali.b]

ActiveWorkbook.Close
این رو حذف کن

[misammisam]

وقتی Save As میکنیم فایل دوم باز میشه و فایل اول بسته میشه ، هیچ راهی نداره هر دوتا فایل باز بمونه و فایل اول بسته نشه .

میخوام که از یه فایل کپی بگیرم ( Save As کنم ) و بعد از فایل اول به فایل دوم یه چند تا سلول رو لینک کنم ، بصورت اتومات ، ولی هر کاری میکنم فایل اول موقع Save As بسته میشه .

[Amir Ghasemiyan]

وقتی Save As میکنیم فایل دوم باز میشه و فایل اول بسته میشه ، هیچ راهی نداره هر دوتا فایل باز بمونه و فایل اول بسته نشه .

میخوام که از یه فایل کپی بگیرم ( Save As کنم ) و بعد از فایل اول به فایل دوم یه چند تا سلول رو لینک کنم ، بصورت اتومات ، ولی هر کاری میکنم فایل اول موقع Save As بسته میشه .

خب بعد سيو كردن دوباره فايل قبلي رو باز كن بعد لينك كن

[misammisam]

خب بعد سيو كردن دوباره فايل قبلي رو باز كن بعد لينك كن

راست میگی این میشه ، ولی چون حجم فایل خیلی زیاده میخوام دورش بزنم که فایل هی باز و بسته نشه .
کلا این save as هیچ راهی نداره .

[ehn]

سلام و درود
خسته نباشید
من یه سیستمی رو طراحی کردم از دیتابیس کارکنان یعنی یه پنل طراحی کردم که با جستجو شماره پرسنلی کارکنان میتونید اونا رو مرخصی بدید ... انتقالی بدید ولی یه مشکل دارم اونم اینه که سیستم بایگانی ام مشکل داره من میخام وقتی طرف رو مرخصی دادم فرم مرخصی رو تو پوشه با نام خود طرف که در یکی از سلول های فرم مرخصی وجود داره با نام مرخصی مثلا استعلاجی فلانی در پوشه بایگانی فلانی ذخیره کنه امکانش هست؟؟؟
از اکسل ۲۰۱۰ استفاده میکنم
ممنون میشم راهنمایی کنید من فقط ساخت پوشه با نام یکی از سلول ها رو بلد نیستم