[RaggiTech]

[SIZE=4]1-فتح البرنامج و فتح صفحة جديدة أو موجودة
[/SIZE]

ويتم ذلك من خلال انشاء 3 متغيرات
الأول يخص برنامج الإكسل ككل
الثاني يخص ملف الإكسل
الثالث يخص ورقة البيانات أو Sheet

كود :

Dim ReportApp As New Excel.Application
Dim ReportWB As Workbook
Dim ReportWS As Worksheet

ومن ثم إسناد قيمة كل من الثاني للثالث والثالث للثاني

كود :

[b][SIZE=3] ReportWB =ReportApp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)[/SIZE][/b]

'لانشاء ملف اكسل جديد

كود :

[SIZE=3][b] ReportWS = ReportWB.Sheets.Add(, ReportWB.Worksheets(1)) [/b][/SIZE]

'لفتح صفحة جديدة في ملف الإكسل
الآن الملف أصبح موجود وإن لم تصدق فجرب إضافة هذا السطر بعد الاسطر السابقة

كود :

[SIZE=3][b] ReportApp.Visible = True [/b][/SIZE]

فستلاحظ أنه قد تم فتح ملف أكسل جديد بورقة واحدة (ولكن نصيحتي ألا تستخدم هذا السطر في برامجك في هذا الوقت على الاقلوستعرف لماذا لاحقا)
سؤال:كيف نفتح ملف محفوظ من الأساس
الإجابة بتغيير السطرين إلى

كود :

[SIZE=3][b] ReportWB = ReportApp.Workbooks.Open("Put The Source of the File Here")[/b][/SIZE]
[SIZE=3][b]ReportWS = ReportWB.Worksheets("حدد الصفحة لو كان فيه أكثر من صفحة في نفس الملف") [/b][/SIZE]