Code:
Dim $wbSource, $wbTarget, $xlApp, $srcWorksheet, $tgtWorksheet
$xlApp = CreateObject("Excel.Application")
$wbTarget = $xlApp.Workbooks.Open("c:\temp\xl\target.xls")
$wbSource = $xlApp.Workbooks.Open("c:\temp\xl\source.xls")
$srcWorksheet = $wbSource.Worksheets(1)
$tgtWorksheet = $wbTarget.Worksheets(2)
; dunno from here right now
cWorksheet.Copy , tgtWorksheet
wbSource.Close=True
wbTarget.Close=True
Set wbSource = Nothing
Set wbTarget = Nothing
Set srcWorksheet = Nothing
Set tgtWorksheet = Nothing
Set xlApp = Nothing


Edited by Björn (2007-12-19 01:33 PM)
_________________________
as long as it works - why fix it?
If it doesn't work - kix-it!