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

Printable View

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

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

با سلام و احترام
من تعدادی فایل اکسل دارم که هر فایل حاوی تعدادی sheet هست میخوام sheet شماره 1 تمام فایلها رو در یک جدول اکسل جداگانه یکجا داشته باشم .
لطفا اساتید که تجربه این کار رو داررند راهنمایی کنند.
با تشکر
پنج شنبه 30 تیر 1401, 21:24 عصر
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.
```
چهارشنبه 05 مرداد 1401, 22:18 عصر
karamooz1400

نقل قول: یکی کردن شیتهای اکسل
نقل قول:
نوشته شده توسط 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.
تشکر از لطف شما . تست می کنم .