Question

vb如何新建excel表

目前我只看到，用vb能够对已存在的excel表进行操作，读取和写入。那么，如果excel表不存在，需要新建一个呢？在vb中如何实现？
注意：我只需要新建excel表如何实现的代码，其他的代码不需要，我也不是菜鸟。问题一旦采用就追加100分。

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

dim oexcel as new excel.application '定义对像 需引用excel 11.0
dim o as excel.worksheet
dim row as integer
dim col as integer
oexcel.workbooks.add
'add是新增，如果是原来有文件，就可以用打开 open(完整文件名)
set o= oexcel.worksheets("sheet1") '选择表
o.worksheets("sheet1").activate
'set o = oexcel.activeworkbook.activesheet
'oexcel.visible = true
msgbox o.cells(1, 1).value '读取值
‘可以用循环来读取

Answer 3

方法1：
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlbook = xlapp.workbooks.Add
Set xlsheet = xlbook.worksheets(1)
End Sub

方法2，用SHELL函数：
Private Sub Command2_Click()
Dim crkdt
crkdt = Shell("D:\Program Files\Microsoft Office\office\Excel.exe", 1)
End Sub

Answer 4

一楼的没有指明
Dim xlBook As Excel.WorkBook
Set xlBook = App.Workbooks.Open("文件名")
这种语法同样要求excel已经存在才能操作。

Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlChar As New Excel.Chart
Public xlSheet As New Excel.Worksheet

Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Cells(1, 1) = "测试" '写入内容
xlBook.SaveAs ("FILENAME") '保存文件
xlApp.Quit
Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。

Answer 5

Dim App As Object
Dim xlshet As Excel.Worksheet
Dim Name As String
Screen.MousePointer = vbHourglass
Set App = CreateObject("Excel.Application")
App.Visible = True
App.Workbooks.Add
Set xlshet = App.ActiveWorkbook.Sheets(1)
xlshet.Cells(1) = "AA"
xlshet.Cells(2) = "BB"
.......

Screen.MousePointer = vbDefault
Exit Sub