vb 数据怎么写入excel?

'在工程中添加对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是非常慢的，如果数据量太大，很有可能会造成机。

'要在VB中 *** 作Excel，需要引用Excel对象模型

'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library

'其中，XX.X取决于你安装的Office的版本号

'在你的显示按钮中加入以下代码。

'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要带双引号

'Sheet1也可以改为你的工作表的名字，要带双引号

Dim excel_App As Excel.Application

Dim excel_Book As Excel.Workbook

Dim excel_sheet As Excel.Worksheet

Dim CarWeight

'启动Excel

Set excel_App = CreateObject("Excel.Application")'引用程序对象实例

'设置Excel为不可见

excel_App.Visible = False

'打开文件

Set excel_Book = excel_App.Workbooks.Open("地址")'工作簿实例

Set excel_sheet = excel_Book.Worksheets("Sheet1")'数据表实例

'这里需要先将你的车号存入valuesearch变量才能搜索

'如 valuesearch = Form1.TextBox1.text

'进行搜索，存入carweight变量

CarWeight = Application.WorksheetFunction.VLookup(valuesearch, Range("C:C"), 2, False)

'然后将CarWeight赋值给你的皮重文本框

'如Form1.TextBox2.Text = CarWeight

'''''''''''''''''''''''''''''''''''

'关闭Excel文件

Set excel_sheet = Nothing

Set excel_Book = Nothing

excel_App.Quit

Set excel_App = Nothing

---