save as worksheet با کد vb

**MEYTI** · 2013/06/10, 16:58

RE: save as worksheet با کد vb

با سلام دوست عزیز برای save as از کد زیر میتونی استفاده کنی این کد فایل را با نام 123 در درایو E ذخیره میکنه که بسته به کار خودت میتونی نام و مسیر ذخیره رو تغییر بدی

Sub Button1_Click()

Dim filename As String
filename = 123
ChDir "E:\"
ActiveWorkbook.SaveAs filename:= _
"E:\" + filename + ".XLSM"
ActiveWorkbook.Close
End Sub

**bakhshism** · 2013/06/11, 13:10

RE: save as worksheet با کد vb

سلام دوست عزیز از کدتون استفاده کردم ولی ارور می ده ممنون میشم برنامه آماده رو برام بذارید
Dim filename As String
filename = 123
ChDir "E:\"
ActiveWorkbook.SaveAs filename:= _
"E:\" + filename + ".XLSM"ActiveWorkbook.Close

**MEYTI** · 2013/06/11, 18:16

RE: save as worksheet با کد vb

فایل نمونه خدمت شما دوست عزیز

فایل های پیوست شده

SAVE AS.xlsm (313.5 کیلو بایت, مشاهدات 63)

**bakhshism** · 2013/06/12, 09:09

RE: save as worksheet با کد vb

سلام استاد گرامی از اینکه فایل نمونه رو برام گذاشتید ممنونم. آیا میشه کاری کرد که پنجره save as مانند خود اکسل باز بشه و اروری که بعد از cancel کردن فرم ظاهر میشه را حذف کرد

**MEYTI** · 2013/06/12, 13:19

RE: save as worksheet با کد vb

خدمت شما

کد PHP:


Application.Dialogs(xlDialogSaveAs).Show ("*.xlsm")

**bakhshism** · 2013/06/15, 10:29

RE: save as worksheet با کد vb

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

**علی فاطمی** · 2014/07/02, 09:43

نوشته اصلی توسط MEYTI

خدمت شما

کد PHP:


Application.Dialogs(xlDialogSaveAs).Show ("*.xlsm")

با سلام و روز بخیر
پس از اجرای این کد اگر کاربر cansle رو بزنه کدهای نوشته شده پس از این کد بازم اجرا میشه . یعنی عملا کنسل نمیشه ، راه حلی برای کنسل شدن در این کد وجود داره؟

**mokaram** · 2014/07/02, 10:07

نوشته اصلی توسط علی فاطمی

با سلام و روز بخیر
پس از اجرای این کد اگر کاربر cansle رو بزنه کدهای نوشته شده پس از این کد بازم اجرا میشه . یعنی عملا کنسل نمیشه ، راه حلی برای کنسل شدن در این کد وجود داره؟

چه کدی می نویسی؟

**علی فاطمی** · 2014/07/02, 11:27

باسلام
پس ازاین کد

کد:

[FONT=Tahoma][COLOR=#000000][COLOR=#0000BB]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Dialogs[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDialogSaveAs[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Show [/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"*.xlsm"[/COLOR][COLOR=#007700])  [/COLOR][/COLOR][/FONT]

یعنی پس ازsaveas کدی نوشتم که شیت1 توی فایل جدید رو پاک کنه، حالا وقتی cancel رو می زنی فایل رو saveas نمی کنه و شیت 1 همون فایل رو پاک میکنه. درصورتی که می خوام با زدن cancel فقط عملیات saveas انجام نشود .
ممنون از توجه شما