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，则自动生成文件。但是如果文件已经存在，则会d出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。

'在工程中添加对Excel的引用

DimxlsAppAsExcel.Application

DimxlsBookAsExcel.Workbook

PrivateSubCommand1_Click()

DimIAsInteger

SetxlsApp=Excel.Application

xlsApp.Visible=False

SetxlsBook=xlsApp.Workbooks.Open("D:\11.xls")

I=1

DoWhilexlsApp.Sheets(1).cells(I,1)<>""

I=I+1

Loop

xlsApp.Sheets(1).cells(I,1)=Text1.Text

xlsBook.Close(True)

xlsApp.Quit

SetxlsApp=Nothing

MsgBox"数据写入成功！"

EndSub

方法一：可以试着用VB书写一段调用SQLServer数据库DTS的代码，然后就可以像直接使用DTS进行数据导入一样就行Excel与SQLServer数据之间的迁移了。

方法二：可以用VB来 *** 作EXCEL，然后一条数据一条数据的插入到数据库中，这种方法不推荐使用，因为VB *** 作EXCEL是非常慢的，如果数据量太大，很有可能会造成机。

---