| |
gavinabrown
Posts: 1
Score: 0
Joined: 9/3/2007
Status: offline
|
Hi, I have created a very basic script to open up a spreadsheet and to update some cells and delete some columns. However neither action works. Can anybody tell me where I am going wrong? Thanks, Gavin. Option Explicit Dim objExcel Dim objSheet Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts = 0 objExcel.Workbooks. Open "c:\test.xls" Set objSheet = objExcel.ActiveWorkbook.WorkSheets(1) Columns("AD:AH").Select Selection.Delete Shift:=xlToLeft objSheet.Cells(A1) = "software_brand" objSheet.Cells(B1) = "part_type" ' Save, close, and exit. objExcel.Application.DisplayAlerts = False objExcel.ActiveWorkbook.SaveAs stFileNewName objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close objExcel.Application.Quit
|
|