مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.

انا لله و انا الیه راجعون

( وارد کردن به فایل)Import Data

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

    • 2010/12/22
    • 399
    #1

    ( وارد کردن به فایل)Import Data

    با سلام


    در سوالی قبلی ( http://forum.exceliran.com/showthread.php?t=3075&p=14900#post14900 )

    که مطرح شده بود نکاتی رو از دوستان در خصوص نحوه آدرس دهی آموزش داده شد


    در این تاپیک سوال برعکس مطرح شده


    در فایل ضمیمه توضیحات لازم داه شده است

    با تشکر
    فایل های پیوست شده
    [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]
    برچسب ها: data, فایل)import, کردن, وارد, به
    • MEYTI

      • 2010/11/11
      • 362
      #2
      با سلام دوست عزیز آقای دادور با توجه به پرسشو پاسخهای که در سوال قبل که خودتون اشاره کردید و نمونه های که قرار داده شد فکر نمیکنم درست کردن این فایل هم براتون مشکل باشه
      پس لطفا خودتون دست بکار بشین و کد نویسی رو شروع کنید و هر جا به مشکل خوردید سوال کنید
      [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

        کامنت

        • Amin_D

          • 2010/12/22
          • 399
          #3
          نوشته اصلی توسط MEYTI
          با سلام دوست عزیز آقای دادور با توجه به پرسشو پاسخهای که در سوال قبل که خودتون اشاره کردید و نمونه های که قرار داده شد فکر نمیکنم درست کردن این فایل هم براتون مشکل باشه
          پس لطفا خودتون دست بکار بشین و کد نویسی رو شروع کنید و هر جا به مشکل خوردید سوال کنید
          سلام چشم دوست بزرگوار:
          فرضاً یک فولدر در Desktop دارم و دارای دو تا فایل اکسل داره.فایل شماره 1 و Book1 و میخوام اطلاعات Range ("a1:a10") از فایل 1 رو به همین آدرس در Book1 بیاورم.

          Private Sub CommandButton1_Click()

          Workbooks.Open Filename:="C:\Users\Dell\Desktop\test importdata\1.xlsx"
          Range("a1:a10").Select
          Range("a1:a10").Copy

          End Sub

          تا همین مورد اومدم
          [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4600
              • 100.00
              #4
              نوشته اصلی توسط dadvar
              سلام چشم دوست بزرگوار:
              فرضاً یک فولدر در Desktop دارم و دارای دو تا فایل اکسل داره.فایل شماره 1 و Book1 و میخوام اطلاعات Range ("a1:a10") از فایل 1 رو به همین آدرس در Book1 بیاورم.

              Private Sub CommandButton1_Click()

              Workbooks.Open Filename:="C:\Users\Dell\Desktop\test importdata\1.xlsx"
              Range("a1:a10").Select
              Range("a1:a10").Copy

              End Sub

              تا همین مورد اومدم
              سلام.
              كپيش كردين. نميخواين paste كنيد؟ :D

              اول فايل رو عوض كنيد. بعد دستور paste رو اجرا كنيد

                کامنت

                • Amin_D

                  • 2010/12/22
                  • 399
                  #5
                  نوشته اصلی توسط amir ghasemiyan
                  سلام.
                  كپيش كردين. نميخواين paste كنيد؟ :D

                  اول فايل رو عوض كنيد. بعد دستور paste رو اجرا كنيد
                  این دستور رو نوشتم ولی خطا میگره!
                  Activate Workbooks sheet1.Range("b1:b10").PasteSpecial(xlPasteValues)
                  Last edited by Amin_D; 2013/12/03, 23:29. دلیل: درج فرمول
                  [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

                    کامنت

                    • Amir Ghasemiyan

                      • 2013/09/20
                      • 4600
                      • 100.00
                      #6
                      نوشته اصلی توسط dadvar
                      این دستور رو نوشتم ولی خطا میگره!
                      Activate Workbooks sheet1.Range("b1:b10").PasteSpecial(xlPasteValues)

                      اينطوري بنويسيد. (درضمن لطف كنيد كد هاتون رو داخل تگ بذارين)

                      کد:
                      Windows("Book1").Activate
Sheets("Sheet1").Select
Range("B1").Select
ActiveSheet.Paste

                        کامنت

                        • Amin_D

                          • 2010/12/22
                          • 399
                          #7
                          کد PHP:
                          Private Sub CommandButton1_Click()

                          Workbooks.Open Filename:="C:\Users\Dell\Desktop\test importdata\1.xlsx"

                          Range("a1:a10").Copy

                          Windows                          ("Book1").Activate
                          Sheets                          ("Sheet1").Select
                          Range                          ("B1").Select
                          ActiveSheet                          .Paste
                          End Sub 
                          ولی جواب نداد
                          [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

                            کامنت

                            • Amir Ghasemiyan

                              • 2013/09/20
                              • 4600
                              • 100.00
                              #8
                              نوشته اصلی توسط dadvar
                              کد PHP:
                              Private Sub CommandButton1_Click()

                              Workbooks.Open Filename:="C:\Users\Dell\Desktop\test importdata\1.xlsx"

                              Range("a1:a10").Copy

                              Windows                              ("Book1").Activate
                              Sheets                              ("Sheet1").Select
                              Range                              ("B1").Select
                              ActiveSheet                              .Paste
                              End Sub 
                              ولی جواب نداد
                              خطا ميده؟

                                کامنت

                                • Amin_D

                                  • 2010/12/22
                                  • 399
                                  #9
                                  نوشته اصلی توسط amir ghasemiyan
                                  خطا ميده؟
                                  سلام
                                  خطایی که نمیده ولی بعد از کلیک کردن روی باتوم
                                  فایل 1 باز میشه
                                  ستون b فایل Book1 انتخاب میشه
                                  و چیزی Paste نمیشه
                                  فایل های پیوست شده
                                  [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

                                    کامنت

                                    • Amir Ghasemiyan

                                      • 2013/09/20
                                      • 4600
                                      • 100.00
                                      #10
                                      نوشته اصلی توسط dadvar
                                      سلام
                                      خطایی که نمیده ولی بعد از کلیک کردن روی باتوم
                                      فایل 1 باز میشه
                                      ستون b فایل Book1 انتخاب میشه
                                      و چیزی Paste نمیشه

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

                                      کد:
                                      Private Sub CommandButton1_Click()
Windows("1.xlsx").Activate
Range("A1:A10").Copy
Windows("11.xlsm").Activate
Range("b1").Select
ActiveSheet.Paste
End Sub

                                        کامنت

                                        • Amin_D

                                          • 2010/12/22
                                          • 399
                                          #11
                                          نوشته اصلی توسط amir ghasemiyan

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

                                          کد:
                                          Private Sub CommandButton1_Click()
Windows("1.xlsx").Activate
Range("A1:A10").Copy
Windows("11.xlsm").Activate
Range("b1").Select
ActiveSheet.Paste
End Sub
                                          سلام
                                          این کد هم جواب نداد برای یک لحظه range انتخاب شده copy میشوند ولی باز پاک میشوند
                                          [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

                                            کامنت

                                            • Amir Ghasemiyan

                                              • 2013/09/20
                                              • 4600
                                              • 100.00
                                              #12
                                              نوشته اصلی توسط dadvar
                                              سلام
                                              این کد هم جواب نداد برای یک لحظه range انتخاب شده copy میشوند ولی باز پاک میشوند
                                              من امتحان كردم جواب داد كه

                                                کامنت

                                                • Amin_D

                                                  • 2010/12/22
                                                  • 399
                                                  #13
                                                  نوشته اصلی توسط amir ghasemiyan
                                                  من امتحان كردم جواب داد كه
                                                  سلام
                                                  ببخشید میشه فایلتون رو بزارین
                                                  تشکر
                                                  [COLOR=#008000][SIZE=7][FONT=arial][B]خواستن ، توانستن است.[/B][/FONT][/SIZE][/COLOR]

                                                    کامنت

                                                    • Amir Ghasemiyan

                                                      • 2013/09/20
                                                      • 4600
                                                      • 100.00
                                                      #14
                                                      نوشته اصلی توسط dadvar
                                                      سلام
                                                      ببخشید میشه فایلتون رو بزارین
                                                      تشکر
                                                      سلام
                                                      بفرماييد خدمت شما
                                                      فایل های پیوست شده

                                                        کامنت

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