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

**MEYTI** · 2013/12/02, 23:27

با سلام دوست عزیز آقای دادور با توجه به پرسشو پاسخهای که در سوال قبل که خودتون اشاره کردید و نمونه های که قرار داده شد فکر نمیکنم درست کردن این فایل هم براتون مشکل باشه
پس لطفا خودتون دست بکار بشین و کد نویسی رو شروع کنید و هر جا به مشکل خوردید سوال کنید

**Amin_D** · 2013/12/03, 18:18

نوشته اصلی توسط 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

تا همین مورد اومدم

**Amir Ghasemiyan** · 2013/12/03, 20:15

نوشته اصلی توسط 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** · 2013/12/03, 22:29

نوشته اصلی توسط amir ghasemiyan

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

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

این دستور رو نوشتم ولی خطا میگره!
Activate Workbooks sheet1.Range("b1:b10").PasteSpecial(xlPasteValues)

**Amin_D** · 2013/12/03, 22:43

کد 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** · 2013/12/04, 09:23

نوشته اصلی توسط amir ghasemiyan

خطا ميده؟

سلام
خطایی که نمیده ولی بعد از کلیک کردن روی باتوم
فایل 1 باز میشه
ستون b فایل Book1 انتخاب میشه
و چیزی Paste نمیشه

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

**Amin_D** · 2013/12/04, 12:41

نوشته اصلی توسط 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 میشوند ولی باز پاک میشوند

**Amin_D** · 2013/12/04, 16:42

نوشته اصلی توسط amir ghasemiyan

من امتحان كردم جواب داد كه

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

کامنت

کامنت

کامنت

کامنت

کامنت

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