将ACCESS表中的数据记录导入到EXCEL文件中，用VB2005如何实现

来源：百度知道 编辑：UC知道 时间：2024/06/15 23:31:59
我用VB2005编程,在界面建了个DataGridView控件,绑定ACCESS数据库DataBase,现在加入一个导出按钮,想将其中的数据导出成EXCEL文件,如何完成呀????
或者说如何把其字段引入到EXCEL中的相应列呀????

谢谢各位,帮帮忙呀

读取DataGridView里的每一个单元格，对应写到EXCEL里。
我这里有个模块
myDVW是你要导出Datrgrivview控件
JDT是窗口下方状态上的一个进度条控件
xlspath是EXCEL的放置路径（我导出的是xlt的模板文件）
startrow是EXCEL模板里，要从哪一行开始写数据
EndColumn是Datrgridview控件里的列数
如果有问题就加我QQ吧：20963389

Public Sub ToExcel(ByVal myDVW As DataGridView, ByVal JDT As ToolStripProgressBar, ByVal xlsPath As String, ByVal StartRow As Integer, ByVal EndColumn As Integer)

If myDVW.Rows.Count <= 0 Then '如果没有记录就退出
Exit Sub
End If

If MsgBox("导出EXCEL将要耗费较多的时间，是否继续？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "提示") = MsgBoxResult.No Then
Exit Sub
End If

Dim ExApp As Excel.Application '定义EXCEL对象
Dim ExBook As Excel.Workbook '定义工作簿
Dim ExSheet As Excel.Worksheet '定主工作表

ExApp = CreateObject("Excel.Application") '创建EXCEL应用类
'ExBook = ExApp.Wo