فراخواندن اکسلی دیگر از فرم

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

    • 2014/06/30
    • 55
    #1

    فراخواندن اکسلی دیگر از فرم

    با سلام
    آقا من با کد زیر یه ورک بوک دیگرو(kol.xlsm) از فرم فرامیخونم...
    کد:
    Dim ADDRESS As String
ADDRESS = ThisWorkbook.Path
Workbooks.Open (ADDRESS + "\kol.xlsm")
    ولی وقتی ورک بوک (kol.xlsm) باز میشه قابل ویرایش نیست،مثلا نمیتونم با کیبورد چیزی توش تایپ کنم.
    دلیلش چیه؟
    برچسب ها: فرم, فراخواندن, اکسلی, از, دیگر
    • Amir Ghasemiyan

      • 2013/09/20
      • 4598
      • 100.00
      #2
      نوشته اصلی توسط majidartoor
      با سلام
      آقا من با کد زیر یه ورک بوک دیگرو(kol.xlsm) از فرم فرامیخونم...
      کد:
      Dim ADDRESS As String
ADDRESS = ThisWorkbook.Path
Workbooks.Open (ADDRESS + "\kol.xlsm")
      ولی وقتی ورک بوک (kol.xlsm) باز میشه قابل ویرایش نیست،مثلا نمیتونم با کیبورد چیزی توش تایپ کنم.
      دلیلش چیه؟
      سلام دوست عزيز
      شما بدون كد فايل رو كه باز ميكني مشكلي نداري؟
      پسوردي براش ست نشده؟
      پيغامي برات نمياد كه بگه ماكرو رو فعال كن؟

        کامنت

        • majidartoor

          • 2014/06/30
          • 55
          #3
          بدون کد که فایلو باز میکنم هیچ مشکلی نداره.
          پسوردی هم براش ست نکردم،پیغامی هم نمیده.

            کامنت

            • Javid Mokhtari
              مدير تالار ويژوال بيسيك

              • 2012/01/16
              • 1212
              • 73.00
              #4
              شما چرا از کدهای
              کد PHP:
              ThisWorkbook.FullName
              ThisWorkbook              .FullNameURLEncoded
              ThisWorkbook              .Name 
              استفاده نمیکنین.
              برای مثال:
              کد PHP:
              Workbooks.Open (ThisWorkbook.FullName)
              Workbooks.Open (ThisWorkbook.FullNameURLEncoded) 
              من تست کردم مشکلی نبود.
              میشه فایلو بذارین ...؟
              فایلتون که با Read Only ذخیره نشده ...!!؟
              [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
              بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

              شرکت در دوره:
              [/FONT][/SIZE]
              [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
              [/B][/FONT][/SIZE]
              [/CENTER]
              [/INDENT]
              [/FONT]

                کامنت

                • majidartoor

                  • 2014/06/30
                  • 55
                  #5
                  امتحان کردم بازم نشد.
                  اینم فایلم.

                  majid
                  http://s5.picofile.com/file/8137306950/majid.rar.html

                    کامنت

                    • Javid Mokhtari
                      مدير تالار ويژوال بيسيك

                      • 2012/01/16
                      • 1212
                      • 73.00
                      #6
                      فایل kol ایراد داره.با نامی دیگر Save As کنید حل میشه.بعد از Save As کردن دوباره میتونید به نام kol برگردونید.
                      [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                      بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                      شرکت در دوره:
                      [/FONT][/SIZE]
                      [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                      [/B][/FONT][/SIZE]
                      [/CENTER]
                      [/INDENT]
                      [/FONT]

                        کامنت

                        • majidartoor

                          • 2014/06/30
                          • 55
                          #7
                          انجام دادم بازم نشد.

                            کامنت

                            • Javid Mokhtari
                              مدير تالار ويژوال بيسيك

                              • 2012/01/16
                              • 1212
                              • 73.00
                              #8
                              نوشته اصلی توسط majidartoor
                              انجام دادم بازم نشد.
                              هنگامی که نام kol رو عوض می کنید تو کد هم عوض میکنید...؟
                              من انجام دادم مشکلی نبود ...
                              شاید یه جایی دارین اشتباه می کنید
                              [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                              بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                              شرکت در دوره:
                              [/FONT][/SIZE]
                              [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                              [/B][/FONT][/SIZE]
                              [/CENTER]
                              [/INDENT]
                              [/FONT]

                                کامنت

                                • majidartoor

                                  • 2014/06/30
                                  • 55
                                  #9
                                  آره تو کد هم عوضش کردم،اگه رو فایل من تصحیحش کردید لطفا آپلود کنید.
                                  ممنون از توجهتون.

                                    کامنت

                                    • Javid Mokhtari
                                      مدير تالار ويژوال بيسيك

                                      • 2012/01/16
                                      • 1212
                                      • 73.00
                                      #10
                                      مشکل یوزرفرمتون هست .
                                      به شکل زیر بنویسید:
                                      کد PHP:
                                      Dim ADDRESS As String
                                      ADDRESS                                       = ThisWorkbook.Path
                                      Me                                      .Hide
                                      Workbooks                                      .Open (ADDRESS + "\kol.xlsm") 
                                      [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                                      بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                                      شرکت در دوره:
                                      [/FONT][/SIZE]
                                      [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                                      [/B][/FONT][/SIZE]
                                      [/CENTER]
                                      [/INDENT]
                                      [/FONT]

                                        کامنت

                                        • majidartoor

                                          • 2014/06/30
                                          • 55
                                          #11
                                          دوست عزیز واقعا نمیدونم چه جوری ازت تشکر کنم،مشکلم حل شد.بازم ممنون.
                                          راستی اگه بخوام دوباره از لیست کل برگردم به فرم چه کنم؟
                                          یعنی فایل kol رو به کلی ببنده و برگرده به فرم forooshgah

                                            کامنت

                                            • majidartoor

                                              • 2014/06/30
                                              • 55
                                              #12
                                              سلام دوستان
                                              طبق فایلی که پیوست کردم،از فرمی که در ورک بوک فروشگاه (forooshgah.xlsm) وجود داره،ورک بوک کل (kol.xlsm) رو باز میکنم،
                                              سوالم اینه که با چه کدی میتونم از ورک بوک کل برگردم به فرمم؟
                                              یعنی وقتی باتون خروج رو که در فایل کل (kol.xlsm) وجود داره زدم ورک بوک کل (kol.xlsm) کاملا بسته بشه و برگرده به فرم فروشگاهم.

                                              majid
                                              http://s5.picofile.com/file/8138195834/majid.rar.html

                                                کامنت

                                                • majidartoor

                                                  • 2014/06/30
                                                  • 55
                                                  #13
                                                  دوستان اگه سوالم روشن نیست بگید.
                                                  اگه هم خیلی سوالم ابتداییه بازم بگید.
                                                  بی تفاوت رد نشید...

                                                    کامنت

                                                    • Javid Mokhtari
                                                      مدير تالار ويژوال بيسيك

                                                      • 2012/01/16
                                                      • 1212
                                                      • 73.00
                                                      #14
                                                      نوشته اصلی توسط majidartoor
                                                      سلام دوستان
                                                      طبق فایلی که پیوست کردم،از فرمی که در ورک بوک فروشگاه (forooshgah.xlsm) وجود داره،ورک بوک کل (kol.xlsm) رو باز میکنم،
                                                      سوالم اینه که با چه کدی میتونم از ورک بوک کل برگردم به فرمم؟
                                                      یعنی وقتی باتون خروج رو که در فایل کل (kol.xlsm) وجود داره زدم ورک بوک کل (kol.xlsm) کاملا بسته بشه و برگرده به فرم فروشگاهم.

                                                      http://s5.picofile.com/file/8138195834/majid.rar.html
                                                      خب دوست عزیز برعکس اون کدی رو که برای مخفی شدن نوشتی برا نمایش بنویس دیگه ...
                                                      تو شیت kol ، ماکرو "خروج" کد زیر رو بنویسید...:
                                                      کد PHP:
                                                      Dim ADDRESS As String
                                                      ADDRESS                                                       = ThisWorkbook.PathWorkbooks.Open (ADDRESS + "\Forooshgah.xlsm")
                                                      Application.Quit 
                                                      [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                                                      بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                                                      شرکت در دوره:
                                                      [/FONT][/SIZE]
                                                      [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                                                      [/B][/FONT][/SIZE]
                                                      [/CENTER]
                                                      [/INDENT]
                                                      [/FONT]

                                                        کامنت

                                                        • Javid Mokhtari
                                                          مدير تالار ويژوال بيسيك

                                                          • 2012/01/16
                                                          • 1212
                                                          • 73.00
                                                          #15
                                                          نوشته اصلی توسط majidartoor
                                                          دوستان اگه سوالم روشن نیست بگید.
                                                          بی تفاوت رد نشید...
                                                          هیچکس بی تفاوت رد نمیشه ...:stop:
                                                          [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
                                                          بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

                                                          شرکت در دوره:
                                                          [/FONT][/SIZE]
                                                          [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
                                                          [/B][/FONT][/SIZE]
                                                          [/CENTER]
                                                          [/INDENT]
                                                          [/FONT]

                                                            کامنت

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