ادرس دهی در محیط ویژوال

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

    • 2010/12/22
    • 399
    #1

    ادرس دهی در محیط ویژوال

    با سلام
    مراجعه به فایل شماره 1
    با تشکر
    فایل های پیوست شده
    [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]
    برچسب ها: ویژوال, محیط, ادرس, دهی, در
    • Amir Ghasemiyan

      • 2013/09/20
      • 4600
      • 100.00
      #2
      سلام دوست عزيز

      موارد 2 و 3 و 4 رو براتون نوشتم. منظورتون رو از 5 متوجه نشدم.
      خروج رو هم نوشتم براتون
      فایل های پیوست شده
      Last edited by Amir Ghasemiyan; 2013/11/29, 01:16.

        کامنت

        • Amin_D

          • 2010/12/22
          • 399
          #3
          نوشته اصلی توسط amir ghasemiyan
          سلام دوست عزيز

          موارد 2 و 3 و 4 رو براتون نوشتم. منظورتون رو از 5 متوجه نشدم.
          خروج رو هم نوشتم براتون
          با سلام
          در خصوص مورد 4 اگر بخواهیم دیتا که وارد فایل دوم شد ، بعد ذخیره و بسته شود ، چه کدی میشه نوشت؟
          [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4600
              • 100.00
              #4
              نوشته اصلی توسط dadvar
              با سلام
              در خصوص مورد 4 اگر بخواهیم دیتا که وارد فایل دوم شد ، بعد ذخیره و بسته شود ، چه کدی میشه نوشت؟
              براي ذخيره و بسته شدن اين كد رو بذارين

              کد:
              Private Sub CommandButton5_Click()
Workbooks.Open Filename:="C:\Users\Amir\Desktop\2.xlsx"
Range("a1:a10").Value = TextBox1.Text
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

                کامنت

                • MEYTI

                  • 2010/11/11
                  • 362
                  #5
                  با سلام آقای دادور و با تشکر از جناب قاسمیان
                  عذرخواهی بابت تاخیر در جواب ،دیشب در پیام خصوصی سوالی پرسیدین متاسفانه وقت نشد و جناب قاسمیان زحمتشو کشیدن
                  در رابطه مورد آخر ادرس فایل در شبکه هم میتونی از کد زیر استفاده کنید
                  کد:
                   
Workbooks.Open "\\PC1\a\2.xlsx" 
 
Range("a1:a10").Value = TextBox1.Text
ActiveWorkbook.Save
ActiveWorkbook.Close
                  که در اینجا pc1 همکان کامپیوتر در شبکه است که فایل مورد نظر در پوشه a در آن شیر شده است
                  در مورد سوالی هم که فرمودید فایل بدون باز شدن ویرایش بشه امکانش نیست مگر از کد زیر استفاده کنید و فایل باز شده را مخفی کنید تا دیده نشود

                  کد:
                  Application.Windows.Application.Visible = False
                  [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

                    کامنت

                    • امين اسماعيلي
                      مدير تالار ويژوال بيسيك

                      • 2013/01/17
                      • 1198
                      • 84.00
                      #6
                      با درود
                      جناب مهدی آقا درست میفرمایند. البته با دستورات Sql میشه. اما خوب طبق روال عادی باید باز بشه. اگرم که بخواین اصلا نفهمیم کی باز شدو کی بسته شد . یه کار میشه کرد کد بنویسیم که سرع باز بشه و بسته بشه که اصلا نفهمیم این کار انجام شده
                      در پناه خداوندگار ایران زمین باشید و پیروز

                        کامنت

                        • Amin_D

                          • 2010/12/22
                          • 399
                          #7
                          تشکر از دوستان بابت همفکری که میکنن:
                          سوالاتی دیگه ای هم حین کار کردن با فایل های اصلی برام پیش میاد حالا اگر مربوط به این تاپیک باشه مطرح میکنم و از تجربیات و دانش دوستان استفاده میبریم

                          اگر به فایلی که میخواهسم اطلاعات بفرستیم دارای پسورد باشه و من پسوردش رو بلد باشم خوب برا انجام این کار پسورد رو میزنم و ادامه کار انجام میشه.
                          ولی اگه بخوام این فایل رو در اختیار کاربر قرار بدم که اون انجام بده و نمیخوام که اون پسورد فایل رو بدونه چطوری میشه براش کد نویسی کرد؟
                          با تشکر
                          [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

                            کامنت

                            • MEYTI

                              • 2010/11/11
                              • 362
                              #8
                              در این مورد برای باز کردن فایل پسورد دار از نمونه کدزیر استفاده کن

                              کد:
                               Workbooks.Open Filename:="Path", Password:="OpenFile", WriteResPassword:="WriteFile"
                              به عنوان مثال برای همان فایل که فقط داراری پسورد open باشد از کد زیر استفاده کن

                              کد:
                              Workbooks.Open Filename:="d:\a.xlsx", Password:="123"
                              [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

                                کامنت

                                • afshar_yan

                                  • 2013/10/15
                                  • 9
                                  #9
                                  با سلام خدمت کلیه اساتید
                                  در تمام کدهای بالا مسیر و نام فایل ثابت فرض شده
                                  اگه بخواهیم نام و مسیر فایل پویا باشه یعنی با یه فرمی شبه فرم (open ) خود اکسل مسیر و نام فایل انتخاب بشه چکار باید کرد ؟آیا این فرم بعنوان فرم پیش فرض و آماده وجود داره یا اینکه باید اونو طراحی کرد فراموش نکنیم که فرم open موجود در برنامه ها امکانات خوبی برای مسیر یابی فایل ها دارن ؟
                                  ممنون از تمام دوستان
                                  جواب سوالمو تو این آدرس پیدا کردم بازم ممنون
                                  save as worksheet با کد vb
                                  Last edited by afshar_yan; 2014/02/08, 12:31.

                                    کامنت

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