Question

vb创建excel

Answer 1

Excel中的VB语言叫做VBA，在VBE中使用代码新建即可

Excel版本参考：2010

演示：新建一个表名为test的工作表

1、ALT+F11，进入VBE窗口

2、右击工作表标签-插入-模块

3、输入代码：

Sub test()

Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "test"

End Sub

4、按下F5执行，查看工作表，新建的test表 已新建好

Answer 2

试试下面的代码，新建一个空的excel
如果是打开，用下面那句，那个变量是文件的路径。
On Error Resume Next
Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSHEET As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlBook = xlapp.Workbooks.Add
'Set xlBook = xlapp.Workbooks.Open(Str_xls)
Set xlSHEET = xlBook.Worksheets(1)
xlapp.Visible = True

代码运行前注意在引用项里勾选上microsoft excel 11.0 object libary，否则代码不能运行。excel2007为12.0版本
vb操作excel如果深入学习可以有偿咨询我的。一般都能解决。

Answer 3

Private Sub Command1_Click()
Dim VBExcel As Excel.Application
Set VBExcel = CreateObject("Excel.Application")
With VBExcel
.Workbooks.Add
With ActiveWorkbook
.SaveAs "C:\sample.XLS"
.Close
End With
.Quit
End With
End Sub

代码运行前注意在引用项里勾选上microsoft excel 11.0 object libary，否则代码不能运行。excel2007为12.0版本