یکی کردن شیتهای اکسل [بایگانی]

karamooz1400

دوشنبه 27 تیر 1401, 11:01 صبح

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

binyaz2003

پنج شنبه 30 تیر 1401, 21:24 عصر

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

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

چهارشنبه 05 مرداد 1401, 22:18 عصر

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

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.

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