vb.net导出数据 vb导出数据到excel

vb.net datagridview显示的数据导出到其他数据库

一行一行的insert into到另一个数据库就行了。一般不使用批量写入，字符串太长

相关问答

Q1: VB.NET怎么将DataGridview里的内容导出到EXCEL去

不好意思 现在才看到；Private Sub 导出EXCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim xlApp, xlBook, xlSheet As Object

xlapp = CreateObject("Excel.Application")

xlbook = xlapp.Workbooks.Add

xlsheet = xlbook.Worksheets(1)

'Dim xlapp As New Excel.Application

'Dim xlbook As Excel.Workbook

'Dim xlsheet As Excel.Worksheet

Dim rowindex, colindex As Integer rowindex = 1 '行

colindex = 0 '列

'xlbook = xlapp.Workbooks.Open("c:\EXCEL.xls") '打开EXCEL文件

xlsheet = xlapp.Worksheets("sheet1") '打开sheet1那页 Dim a As New DataSet

Dim table As New System.Data.DataTable table = DataSet11.Tables("INVMATLISTA") '填充表 Dim row As DataRow '定义row为表格的行

Dim col As DataColumn '定义col为表格的列 '把表格的每一列写到EXCEL去

For Each col In table.Columns

colindex = colindex + 1

xlapp.Cells(1, colindex) = col.ColumnName Next

'把表格的每一行写到EXCEL去

For Each row In table.Rows

rowindex = rowindex + 1

colindex = 0

For Each col In table.Columns

colindex = colindex + 1

xlapp.Cells(rowindex, colindex) = row(col.ColumnName)

Next

Next

xlapp.Visible = True

End Sub 前提要先引用一个Microsoft.Office.Interop.Excel.dll然后在最上面先输入Imports Microsoft.Office.Interop； 就可以了

Q2: [vb.net] 怎么把listview中数据 导出保存到成excel文件

我回答你的第一个问题，因为后面的看不懂你的意思

函数：

Public Function ListViewtoExcel(ByVal LV As ListView) As Boolean

Try

If LV.Items.Count = 0 Then '判断记录数,如果没有记录就退出

MessageBox.Show("没有记录可以导出", "没有可以导出的项目", MessageBoxButtons.OK, MessageBoxIcon.Information)

Return False

End If

'如果有记录就导出到Excel

Dim AP_Excel As Object '定义Excel对象

Dim wk As Object '定义Workbook对象

AP_Excel = CreateObject("Excel.Application") '创建Excel对象

wk = AP_Excel.workbooks.add()

Dim i As Integer, u As Integer = 0, v As Integer = 0 '定义循环变量,行变量,列变量

For i = 1 To LV.Columns.Count '把表头写入Excel

wk.worksheets(1).cells(1, i) = LV.Columns(i - 1).Text.Trim

Next

Dim str(LV.Items.Count - 1, LV.Columns.Count - 1) '定义一个二维数组

For u = 0 To LV.Items.Count - 1 '行循环

For v = 0 To LV.Columns.Count - 1 '列循环

If v LV.Items(u).SubItems.Count Then '如果该行该列项存在

str(u, v) = LV.Items(u).SubItems(v).Text.Trim

Else '如果该行该列项不存在

str(u, v) = ""

End If

Next

Next

wk.worksheets(1).range("A2").Resize(LV.Items.Count, LV.Columns.Count).Value = str '把数组一起写入Excel

wk.worksheets(1).Cells.EntireColumn.AutoFit() '自动调整Excel列

' yy.worksheets(1).name = LV.TopLeftHeaderCell.Value.ToString '表标题写入作为Excel工作表名称

AP_Excel.visible = True '设置Excel可见

wk = Nothing '销毁组建释放资源

AP_Excel = Nothing '销毁组建释放资源

Return True '返回真

Catch ex As Exception '错误处理

MessageBox.Show(Err.Description.ToString, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error) '出错提示

Return False '返回假

End Try

End Function

调用函数：如 ListViewtoExcel(Me.ListView1)

关于vb.net导出数据和vb导出数据到excel的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。