如何把MSFlexGrid里的数据导出至Excel.doc

《如何把MSFlexGrid里的数据导出至Excel.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如何把MSHFlexGrid里的数据导出至Excel？用Adodc1做了查询语句，结果显示在一个MSHFlexGrid里面。现在要求做一个按钮（Command1），点击它就把MSHFlexGrid里显示的数据导出至Excel表中。就是一点这个按钮，就会自动打开Excel，然后数据就已经进去了，方便编辑和打印。要求：代码详细，直接复制到Command1下就能用。这块我不懂，所以不要搞什么子程序调用之类的，要有子程序也给直接调用好。直接复制代码成功后，再追加100分。把这个弄完工程就结了，再不用受罪了，哈哈！以下是精简后的代码,

2、不清楚你工作中的一些细节,所以如有问题与我讨论PrivateSubCommand1_Click()MSFlexGrid1.Redraw=False'关闭表格重画，加快运行速度SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象SetxlBook=xlApp.Workbooks.Open(App.Path&"对账模板.xls")'打开已经存在的EXCEL工件簿文件xlApp.Visible=True'设置EXCEL对象可见（或不可见）Setxlsheet=xlBook.Wo

3、rksheets("Sheet1")'设置活动工作表ForR=0ToMSFlexGrid1.Rows-1'行循环ForC=0ToMSFlexGrid1.Cols-1'列循环MSFlexGrid1.Row=RMSFlexGrid1.Col=CxlBook.Worksheets("Sheet1").Cells(R+1,C+1)=MSFlexGrid1.Text'保存到EXCELNextCNextRMSFlexGrid1.Redraw=True'xlsheet.PrintOut'打印工作表xlApp.DisplayAlerts=F

4、alse'不进行安全提示'xlBook.Close(False)'关闭工作簿Setxlsheet=NothingSetxlBook=NothingxlApp.QuitSetxlApp=NothingEndSub下面的代码就也能导出到EXCELDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim i As Long, J As LongOn Error GoTo ErrorHandleSet xlA

5、pp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets(1)    For i = 0 To MHFGrid.Rows - 1        For J = 0 To MHFGrid.Cols - 1            xlSheet.Cells(i + 1, J + 1).Value = MHFGrid.TextMatrix(i, J)        Next J    N

6、ext i    xlSheet.Application.Visible = True    Set xlSheet = Nothing    Set xlBook = Nothing    Set xlApp = Nothing    Exit SubErrorHandle:MsgBox "错误：" & Err.Number & vbCrLf & Err.Description, vbOKOnly, "运行错误"如何将表中的数据导出到电子表格中作者：施进兵有很多方法都可将数据库中某个表的数据导出到电子表格中，例如通过创建A

7、ccess.Application，可以利用Access本身的导出功能实现将表中的数据导出到电子表格中。但是这种方法会占用较多的系统资源，并且缺乏通用性。如果一个数据库没有导出的功能怎么办？下面的这段程序代码利用记录集实现导出的功能，这种做法的好处是显而易见的：你可以控制要导出的数据，而不用将整个表的内容都导出到电子表格中。为简单起见下面的程序代码仍将整个表的数据导出到电子表格中。如果你有兴趣的话，对下面的代码稍加改动就可做成更为通用的一个类或是一个控件。 首先在窗体上添加一个标签控件和一个命令按钮，然后在工程中添加对DAO

8、引用。利用下面的程序代码就可将表中的数据导出到电子表格中。Option ExplicitPrivate Sub Command1_Click()        Dim tempDB As Database        Dim i As Integer           ' 循环计数器