经验直达：
- vb创建excel
- vb怎么写入EXCEL
- vb如何新建excel表
一、vb创建excel
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表 已新建好
二、vb怎么写入EXCEL
一个很简单的程序实例
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "msdb.mdb"
Text1.Text = Data1.DatabaseName
End Sub
'按钮，把数据传到Excel中
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
newxls.Visible = True
Set newbook = newxls.Workbooks.Add'创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
'If Not Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
For i = 0 To Data1.Recordset.RecordCount - 1
For j = 0 To Data1.Recordset.Fields.Count - 1
DBGrid1.Row = i
DBGrid1.Col = j
newsheet.Cells(i1, j1) = DBGrid1.Text
Next j
Next i
End Sub
三、vb如何新建excel表
【vb怎么写入EXCEL vb创建excel】分类:电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
目前我只看到，用vb能够对已存在的excel表进行操作，读取和写入 。那么，如果excel表不存在，需要新建一个呢？在vb中如何实现？注意：我只需要新建excel表如何实现的代码，其他的代码不需要 ， 我也不是菜鸟 。问题一旦采用就追加100分 。
解析:
一楼的没有指明
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添加，并保存 。