07-03-2005, 13:27
|
|
|
|
חבר מתאריך: 20.06.03
הודעות: 5,616
|
|
ניתן לקשר את אקסל כאובייקט....
הנה דוגמת קוד שמסבירה את מה שאתה רוצה, אתה יוצר אובייקט מסוג Excel.Application, וכן אובייקט מסוג Excel.Workbook שהוא המסמך שלך ולאחר מכן, אתה יכול להוסיף למסמך זה מידע באיזה תא שתרצה:
קוד:
oSheet.Cells(17, 83).Value = "Any Data"
דוגמאות ומידע נוסף תוכל למצא ב-msdn...
http://msdn.microsoft.com
קוד:
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
' Start Excel and get Application object.
Set oXL = CreateObject("Excel.Application")
oXL.Visible = True
' Get a new workbook.
Set oWB = oXL.Workbooks.Add
Set oSheet = oWB.ActiveSheet
Add table headers going cell by cell.
oSheet.Cells(1, 1).Value = "First Name"
oSheet.Cells(1, 2).Value = "Last Name"
oSheet.Cells(1, 3).Value = "Full Name"
oSheet.Cells(1, 4).Value = "Salary"
|