save as worksheet با کد vb

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • bakhshism

    • 2012/06/02
    • 49
    • 46.00
    #1

    save as worksheet با کد vb

    سلام به اساتید محترم من می خوام با استفاد از یک command button در صفحه worksheet بعد اعمال تغییرات ، صفحه رو ذخیره مجدد کنم ممنون می شم کد vb شو برای بگذارید

    Private Sub save as_Click()
    کد vb
    End Sub
    برچسب ها: هیچ‌کدام
    • MEYTI

      • 2010/11/11
      • 362
      #2
      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
      [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

        کامنت

        • bakhshism

          • 2012/06/02
          • 49
          • 46.00
          #3
          RE: save as worksheet با کد vb

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

            کامنت

            • MEYTI

              • 2010/11/11
              • 362
              #4
              RE: save as worksheet با کد vb

              فایل نمونه خدمت شما دوست عزیز
              فایل های پیوست شده
              [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

                کامنت

                • bakhshism

                  • 2012/06/02
                  • 49
                  • 46.00
                  #5
                  RE: save as worksheet با کد vb

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

                    کامنت

                    • MEYTI

                      • 2010/11/11
                      • 362
                      #6
                      RE: save as worksheet با کد vb

                      خدمت شما



                      کد PHP:
                      Application.Dialogs(xlDialogSaveAs).Show ("*.xlsm") 
                      [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

                        کامنت

                        • bakhshism

                          • 2012/06/02
                          • 49
                          • 46.00
                          #7
                          RE: save as worksheet با کد vb

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

                            کامنت

                            • علی فاطمی

                              • 2014/02/17
                              • 523
                              • 51.00
                              #8
                              نوشته اصلی توسط MEYTI
                              خدمت شما



                              کد PHP:
                              Application.Dialogs(xlDialogSaveAs).Show ("*.xlsm") 
                              با سلام و روز بخیر
                              پس از اجرای این کد اگر کاربر cansle رو بزنه کدهای نوشته شده پس از این کد بازم اجرا میشه . یعنی عملا کنسل نمیشه ، راه حلی برای کنسل شدن در این کد وجود داره؟
                              [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


                              [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
                              [/CENTER]

                                کامنت

                                • mokaram
                                  مدير تالار اکسل و بانک اطلاعاتی

                                  • 2011/02/06
                                  • 1805
                                  • 74.00
                                  #9
                                  نوشته اصلی توسط علی فاطمی
                                  با سلام و روز بخیر
                                  پس از اجرای این کد اگر کاربر cansle رو بزنه کدهای نوشته شده پس از این کد بازم اجرا میشه . یعنی عملا کنسل نمیشه ، راه حلی برای کنسل شدن در این کد وجود داره؟
                                  چه کدی می نویسی؟
                                  [CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
                                  [/CENTER]

                                    کامنت

                                    • علی فاطمی

                                      • 2014/02/17
                                      • 523
                                      • 51.00
                                      #10
                                      باسلام
                                      پس ازاین کد
                                      کد:
                                      [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 انجام نشود .
                                      ممنون از توجه شما
                                      [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


                                      [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
                                      [/CENTER]

                                        کامنت

                                        • majid_tiger
                                          • 2014/06/25
                                          • 3
                                          #11
                                          سلام من بطور کل نمی تونم فایل ضمیمه رو باز کنم و پیغام زیر ظاهر میشه :
                                          Click image for larger version Name: Capture.JPG Views: 1 Size: 23.3 کیلو بایت ID: 123235

                                            کامنت

                                            • ~M*E*H*D*I~
                                              مدیر ارشد انجمن

                                              • 2011/10/19
                                              • 4377
                                              • 70.00
                                              #12
                                              نوشته اصلی توسط majid_tiger
                                              سلام من بطور کل نمی تونم فایل ضمیمه رو باز کنم و پیغام زیر ظاهر میشه :
                                              [ATTACH=CONFIG]3960[/ATTACH]
                                              به علت تغییراتی که در فروم ایجاد شده فایل های پیوست قدیمی تخریب شدن که در زیر تایپیک های قدیمی به این موضوع اشاره شده
                                              [CENTER]
                                              [SIGPIC][/SIGPIC]
                                              [/CENTER]

                                                کامنت

                                                قبلی template بعدی
                                                چند لحظه..