یکی کردن شیتهای اکسل

[karamooz1400]

با سلام و احترام
من تعدادی فایل اکسل دارم که هر فایل حاوی تعدادی sheet هست میخوام sheet شماره 1 تمام فایلها رو در یک جدول اکسل جداگانه یکجا داشته باشم .
لطفا اساتید که تجربه این کار رو داررند راهنمایی کنند.
با تشکر

[binyaz2003]

شما باید اکسل رو نصب داشته باشید و با اتوماسیون هر تغییری که نیاز دارید روی فایل اکسل انجام بدید. البته خیلی ساله فاکس پرو کار نمیکنم نمیدانم با ویرایش های جدید آفیس هم این کار شدنی هست یا خیر. یک کد ساده:

LOCAL cell1,cell2

STORE "b1" TO cell1

STORE "b7" TO cell2

oExcel=CREATEOBJECT("Excel.application")

oWorkBook=oExcel.Workbooks.Open("c:\book1.xls")

oSheet=oWorkBook.Sheets("sheet1")

oSheet.Range(cell1,cell2).Merge

oExcel.visible =.t.

[karamooz1400]

شما باید اکسل رو نصب داشته باشید و با اتوماسیون هر تغییری که نیاز دارید روی فایل اکسل انجام بدید. البته خیلی ساله فاکس پرو کار نمیکنم نمیدانم با ویرایش های جدید آفیس هم این کار شدنی هست یا خیر. یک کد ساده:

LOCAL cell1,cell2

STORE "b1" TO cell1

STORE "b7" TO cell2

oExcel=CREATEOBJECT("Excel.application")

oWorkBook=oExcel.Workbooks.Open("c:\book1.xls")

oSheet=oWorkBook.Sheets("sheet1")

oSheet.Range(cell1,cell2).Merge

oExcel.visible =.t.

تشکر از لطف شما . تست می کنم .