Copy data to Excel
I need to be able to copy a text file to a specific sheet in an .xls file without Excel actually installed.
I have a VBSCRIPT that works perfectly if Excel is installed, but it does not work at all if Excel is not installed.
Here is the code:
Option Explicit
Dim objApp, objWbs, objWorkbook, objWorkbook2, objSheet, WshShell, objSheet2
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /C copy \\aragorn\Phx\Wksetup\Design\TESTING\750.WK1 \\aragorn\Phx\Wksetup\Design\TESTING\750.csv", 0, True
Set objApp = CreateObject("Excel.Application")
Set objWbs = objApp.WorkBooks
objApp.Visible = False
Set objWorkbook = objWbs.Open("\\aragorn\Phx\Wksetup\Design\TESTING\ 750.wk1")
Set objWorkbook2 = objWbs.Open("\\aragorn\Phx\Wksetup\Design\TESTING\ PhxAmpBlkswk1stocsvs.xls")
Set objSheet = objWorkbook2.Sheets("750_wk1")
Set objSheet2 = objWorkbook2.Sheets("750 sort")
objWorkbook.Sheets(1).UsedRange.Copy objSheet.Range("A1")
objSheet2.PrintOut
objWorkbook2.Save
objWorkbook.Close False
objWbs.Close
objApp.Quit
Set objSheet = Nothing
Set objWorkbook = Nothing
Set objWbs = Nothing
Set objApp = Nothing
Sincerely,
George Jackson
|