vb中调用excel 中错误429

已经在“工程"引用“中设置Excel1.1
Dim excel_appp As Excel.Application
Dim myWorkBook As Excel.Workbook
Set excel_appp = New Excel.Application”运行到这里提示错误429
操作系统xp，excel2003
请高手帮帮忙

重装下 office

vb操作excel 全面控制 excel 首先创建 excel 对象，使用comobj: dim excelid as excel.application set excelid as new excel.application 1) 显示当前窗口： excelid.visible := true; 2) 更改 excel 标题栏： excelid.caption := \'应用程序调用 microsoft excel\'; 3) 添加新工作簿： excelid.workbooks.add; 4) 打开已存在的工作簿： excelid.workbooks.open( \'c:\\excel\\demo.xls\' ); 5) 设置第2个工作表为活动工作表： excelid.worksheets[2].activate; 或 excelid.worksheets[ \'sheet2\' ].activate; 6) 给单元格赋值： excelid.cells[1,4].value := \'第一行第四列\'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： excelid.activesheet.columns[1].columnswidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： excelid.activesheet.rows[2].rowheight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符： excelid.worksheets[1].rows[8].pagebreak := 1; 参考代码：activesheet.hpagebreaks(1).location = range("a22") 10) 在第8列之前删除分页符： excelid.activesheet.columns[4].pagebreak := 0; 11) 指定边框线宽度： excelid.activesheet.range[ \'b3:d4\' ].borders[2].weight := 3; 1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： excelid.activesheet.cells[1,4].clearcontents; 13) 设置第一行字体属性： excelid.activesheet.rows[1].font.name := \'隶书\'; excelid.activesheet.rows[1].font.color := clblue; excelid.activesheet.rows[1].font.bold := true; excelid.activesheet.rows[1].font.underline := true; 14) 进行页面设置：