Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Basic
Dear Experts,
I have problem in the excel visual basic when I €˜Add workbooks it will show error €˜-2147023067 with description €˜Automation Error. This error occurred in few computers with windows 98 OS only. Part of my source code for excel basic here. What could be the problem? Please kindly guide me how to rectify the error. Dim ExcelWorkbook As Excel.Workbook Dim ExcelSheet As Excel.Worksheet Set ObjExcel = GetObject("Excel.Application") If ObjExcel Is Nothing Then Set ObjExcel = CreateObject("Excel.Application") End If If ObjExcel Is Nothing Then MsgBox "You must have Microsoft Excel 97 or 2000 loaded on this machine to use this sample", vbOKOnly + vbCritical, "Error" Exit Function End If Set ExcelWorkbook = ObjExcel.Workbooks.Add 'error occured here Set ExcelSheet = ExcelWorkbook.Worksheets(1) ObjExcel.Visible = True ExcelSheet.Visible = xlSheetVisible ExcelSheet.Cells.Font.Name = "Arial" ExcelSheet.Cells(1 + j).ColumnWidth = 3 'Line Number ExcelSheet.Cells(2 + j).ColumnWidth = 7 'Model Number I would appreciate if I get the guidance . Thanks and Regards with Ganesan Thirumavalavan. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Basic
Ganesan,
Declare the application variable... Dim ObjExcel as Excel.Application Insert the missing comma... Set ObjExcel = GetObject(, "Excel.Application") Regards, Jim Cone San Francisco, CA '******************* "Ganesan Thirumavalavan" wrote in message ... Dear Experts, I have problem in the excel visual basic when I €˜Add workbooks it will show error €˜-2147023067 with description €˜Automation Error. This error occurred in few Dim ExcelWorkbook As Excel.Workbook Dim ExcelSheet As Excel.Worksheet Set ObjExcel = GetObject("Excel.Application") If ObjExcel Is Nothing Then Set ObjExcel = CreateObject("Excel.Application") End If If ObjExcel Is Nothing Then MsgBox "You must have Microsoft Excel 97 or 2000 loaded on this machine to use this sample", vbOKOnly + vbCritical, "Error" Exit Function End If Set ExcelWorkbook = ObjExcel.Workbooks.Add 'error occured here Set ExcelSheet = ExcelWorkbook.Worksheets(1) ObjExcel.Visible = True ExcelSheet.Visible = xlSheetVisible ExcelSheet.Cells.Font.Name = "Arial" ExcelSheet.Cells(1 + j).ColumnWidth = 3 'Line Number ExcelSheet.Cells(2 + j).ColumnWidth = 7 'Model Number I would appreciate if I get the guidance . Thanks and Regards with Ganesan Thirumavalavan. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel Basic
(1) you are missing one important issue...IF excel isn't installed then the
two DIM's that you have will fail since the Excel Object Library will not be installed. (2) The Workbooks.Add method syntax is incorrect...see Help -- Patrick Molloy Microsoft Excel MVP ---------------------------------- "Ganesan Thirumavalavan" wrote in message ... Dear Experts, I have problem in the excel visual basic when I 'Add' workbooks it will show error '-2147023067' with description 'Automation Error'. This error occurred in few computers with windows 98 OS only. Part of my source code for excel basic here. What could be the problem? Please kindly guide me how to rectify the error. Dim ExcelWorkbook As Excel.Workbook Dim ExcelSheet As Excel.Worksheet Set ObjExcel = GetObject("Excel.Application") If ObjExcel Is Nothing Then Set ObjExcel = CreateObject("Excel.Application") End If If ObjExcel Is Nothing Then MsgBox "You must have Microsoft Excel 97 or 2000 loaded on this machine to use this sample", vbOKOnly + vbCritical, "Error" Exit Function End If Set ExcelWorkbook = ObjExcel.Workbooks.Add 'error occured here Set ExcelSheet = ExcelWorkbook.Worksheets(1) ObjExcel.Visible = True ExcelSheet.Visible = xlSheetVisible ExcelSheet.Cells.Font.Name = "Arial" ExcelSheet.Cells(1 + j).ColumnWidth = 3 'Line Number ExcelSheet.Cells(2 + j).ColumnWidth = 7 'Model Number I would appreciate if I get the guidance . Thanks and Regards with Ganesan Thirumavalavan. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel basic quiz | Excel Worksheet Functions | |||
excel 2007 basic help | Charts and Charting in Excel | |||
Visual BASIC in Excel | Excel Worksheet Functions | |||
Very Basic Excel Tutorial | Excel Discussion (Misc queries) | |||
Excel and Visual Basic | Excel Discussion (Misc queries) |