Question

VB.net 如何插入数据到Excel中

我在程序中获取了数据：a=32,b=1,c=90,d=合格（常量，不是固定的）
现在需要把这些数据添加到EXCEL表格中。以为数据不是固定的，所以没添加一次，就等于插入一行。这个程序不需要经过数据库。

Answer 1

现在工程里添加引用Microsoft.Office.Interop.Excel，然后可以使用如下代码输出。

Dim oXl As Excel.Application = New Excel.Application()
Dim oWb As Excel.Workbook
Dim oWs As Excel.Worksheet
On Error GoTo Morn

oWb = oXl.Workbooks.Add()
oWs = oWb.Worksheets(1)

With oWs

.Cells._Default(1, 1).Value ="a"
.Cells._Default(1, 2).Value ="b"
.Cells._Default(1, 3).Value ="c"
.Cells._Default(1, 4).Value ="d"
.Cells._Default(2, 1).Value ="32"
.Cells._Default(2, 2).Value ="1"
.Cells._Default(2, 3).Value ="90"
.Cells._Default(2, 4).Value ="合格"
End With
oWs.Parent.Names.Add("CostRange", "=" & "A1:B39")
oWs.SaveAs(sFileName)
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
If MsgBox("已将数据输出到Excel文件中！ 现在打开该文件?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "已完成") = MsgBoxResult.No Then
oXl.Quit()
Else
oXl.Visible = True
End If
oXl = Nothing
oWs = Nothing
oWb = Nothing

追问

第四行，17行的 Morn在我那里只有0 ， 1 sFileName 直接写文件名？ 那我需不需要先到外面见一张表、其他目前没错

追答

sFileName 直接写文件名

On Error GoTo Morn 这一行不要了

不需要在外面建excel表