请教一个VB操作excel的问题
Option Explicitdim 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("表结构")
以上代码,我是想将新建的工作表放到最后,但运行代码始终报错,
还望高手指点啊,多谢!! --------------------编程问答-------------------- 没人知道吗???!! --------------------编程问答-------------------- 试试看:
set workBook=EXCEL.workbooks.add()'新建工作簿 --------------------编程问答-------------------- Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = Nothing
Set xlSheet = Nothing
xlApp.Workbooks.Add
Set xlBook = xlApp.Workbooks(1)
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate
xlSheet.Cells(1, 1)="赋值"
....
参考:
http://blog.csdn.net/linjimu/article/details/2521110
http://blog.csdn.net/linjimu/article/details/6656405 --------------------编程问答-------------------- 不行,还时报错
Option Explicit
dim beginrow
DIM EXCEL,workBook,dirSheet
set EXCEL = CREATEOBJECT("Excel.Application")
excel.visible=true
set workBook=EXCEL.workbooks.add() '新建工作簿
'workBook.sheets(1).name ="目录"
'workBook.sheets(2).name ="tab1"
'workBook.sheets(3).name ="tab2"
workbook.sheets.add.name="tab3"
'set dirSheet = workBook.sheets("表结构")
workSheets("tab3").move after:=worksheets("sheet1")
'workBook.Sheets.Add After:=Worksheets(Worksheets.count)
报错信息:
错误:缺少语句
代码:800A0400
源:Microsoft VBScript 编译器错误 --------------------编程问答-------------------- 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:=workBook.Sheets(workBook.Sheets.Count)
'worksheets("表1").Move after:=worksheets("表结构")
--------------------编程问答--------------------
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)
Public Function AddSheet(ByVal SheetName As String) As Excel.Worksheet
'添加一个工作表
Dim s As Excel.Worksheet = DirectCast(wb.Worksheets.Add(Type.Missing, Type.Missing, Type.Missing, Type.Missing), Excel.Worksheet)
s.Name = SheetName
Return s
End Function
补充:.NET技术 , VB.NET