首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

初学者请问:vb操作excel的有关问题

2013-04-07 
菜鸟请教:vb操作excel的问题Option Explicitdim beginrow DIM EXCEL,workBook,dirSheet set EXCEL CREAT

菜鸟请教:vb操作excel的问题
Option Explicit
   
 dim beginrow
 DIM EXCEL,workBook,dirSheet
 set EXCEL = CREATEOBJECT("Excel.Application")
 excel.visible=true
 set workBook=EXCEL.workbooks.add(-4167)'新建工作簿
 
workBook.sheets(1).name ="表结构"
 'set dirSheet = workBook.sheets("表结构")
 
workBook.Sheets.Add After:=Worksheets(Worksheets.count)
 'worksheets("表1").Move after:=worksheets("表结构")
 
以上代码,我是想将新建的工作表放到最后,但运行代码始终报错,
 还望高手指点啊,多谢!! 
[解决办法]
vbs 中应该是不支持命名参数的语法的。

workBook.Sheets.Add After:=Worksheets(Worksheets.count)
'要更改为
workBook.Sheets.Add , Worksheets(Worksheets.count)

[解决办法]
楼上所说正确  但代码可能要改改

workBook.Sheets.Add After:=Worksheets(Worksheets.count)
'改为
Workbook.Sheets.Add Null, Workbook.Sheets(Workbook.Sheets.Count), Null, Null
'或者
workBook.Sheets.Add , Workbook.Sheets(Workbook.Sheets.count)

热点排行