Sub GetActiveWorkbook
Set xlApp = GetObject(,”Excel.Application”)
xlApp.visible = true
Set xlBook = xlApp.ActiveWorkbook
end sub

Thanks,

Carl

How in VB Script do I reference that already open workbook?

Thanks.

Carl

xlBook.Worksheets.Add

(where xlBook is the object reference for your workbook object)

To open another book:

Set xlBook2 = xlApp.Workbooks.open(filename)

xlBook2 is the new book reference and xlApp is the application reference you used in the CreateObject call to open Excel.

To add a new book:

xlApp.Workbooks.Add

For more help with Excel’s objects see:
http://msdn.microsoft.com/en-us/library/wss56bz7(VS.80).aspx

When using the 3rd method, how could I define another Excel worksheet to be opened and specify one or another, like copying Excel worksheet contents from one to another ? Could be mentioned some lines of code, to clarify this ?

Tks and regards,
Sven

Sub DeleteRows(Sheet,RowStart,RowEnd)
Dim xlSheet
Set xlSheet = xlBook.Worksheets(Sheet)
Rows(RowStart & “:” & RowEnd).Select
Selection.Delete
End Sub

Call it with, e.g.:

VBRun>DeleteRows,Sheet1,2,2