Question

VB.NET如何导入导出数据

VB.NET如何将MSSQL的数据导出到EXCEL，EXCEL的数据导入MSSQL
求源码，最好代些注释

Answer 1

我有现在的DLL，可以直接调用DLL的方法就解决这些问题。要DLL吗？我不想把源码发出来。有点多。

追问

发邮件行不，学习用的，想看源码

追答

Public Sub DataReaderExcel(ByVal ExcelFilePath As String, ByVal bookindex As Integer, ByRef ReExcel As DataTable)
Dim xlAppExcelFile As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim intColNum As Integer
Dim intRowNum As Integer
'Dim blnAddRow As Boolean
ReExcel.Clear()
ReExcel.Columns.Clear()
'生成新的instance
xlAppExcelFile = New Excel.Application
'在已有的Excel,指定文件路径，打开Book
xlBook = xlAppExcelFile.Workbooks.Open(ExcelFilePath)
'不表示Excel
xlAppExcelFile.Visible = False
'禁止显示对话框和警告消息
xlAppExcelFile.DisplayAlerts = False
'取消任务栏中的窗口选项
xlAppExcelFile.ShowWindowsInTaskbar = False
xlSheet = xlBook.Sheets(bookindex)
intRowNum = xlSheet.UsedRange.Rows.Count
intColNum = xlSheet.UsedRange.Columns.Count
For AddCol As Integer = 0 To intColNum - 1
ReExcel.Columns.Add(Trim(xlSheet.Cells(1, AddCol + 1).value))
Next
For intXlsI As Integer = 2 To intRowNum
Dim Urow As DataRow
Urow = ReExcel.NewRow
For i As Integer = 0 To intColNum - 1
Urow.Item(i) = Trim$(xlSheet.Cells(intXlsI, i + 1).value)
Next
ReExcel.Rows.Add(Urow)
Next intXlsI
'Excel 终了(关闭会有一定的延时)
xlSheet = Nothing
xlBook.Close()
xlBook = Nothing
xlAppExcelFile.Quit()
xlAppExcelFile = Nothing

End Sub

这是读取电子表格内容的函数，遇到大文件时，效率不高。

追问

280681273@qq.com
能不能把全部发给我，导入和导出都要，最好详细点，谢谢先