如何把MSHFlexGrid里数据导出至Excel.docVIP

如何把MSHFlexGrid里的数据导出至Excel？用Adodc1做了查询语句，结果显示在一个MSHFlexGrid里面。现在要求做一个按钮（Command1），点击它就把MSHFlexGrid里显示的数据导出至Excel表中。就是一点这个按钮，就会自动打开Excel，然后数据就已经进去了，方便编辑和打印。 要求：代码详细，直接复制到Command1下就能用。这块我不懂，所以不要搞什么子程序调用之类的，要有子程序也给直接调用好。 直接复制代码成功后，再追加100分。把这个弄完工程就结了，再不用受罪了，哈哈！以下是精简后的代码,不清楚你工作中的一些细节,所以如有问题与我讨论 Private Sub Command1_Click() MSFlexGrid1.Redraw = False 关闭表格重画，加快运行速度 Set xlApp = CreateObject(Excel.Application) 创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(App.Path \对账模板.xls) 打开已经存在的EXCEL工件簿文件 xlApp.Visible = True 设置EXCEL对象可见（或不可见） Set xlsheet = xlBook.Worksheets(Sheet1) 设置活动工作表 For R = 0 To MSFlexGrid1.Rows - 1 行循环 For C = 0 To MSFlexGrid1.Cols - 1 列循环 MSFlexGrid1.Row = R MSFlexGrid1.Col = C xlBook.Worksheets(Sheet1).Cells(R + 1, C + 1) = MSFlexGrid1.Text 保存到EXCEL Next C Next R MSFlexGrid1.Redraw = True xlsheet.PrintOut 打印工作表 xlApp.DisplayAlerts = False 不进行安全提示 xlBook.Close (False) 关闭工作簿 Set xlsheet = Nothing Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing End Sub下面的代码就导出到EXCEL Dim ? xlApp ? As ? Excel.Application Dim ? xlBook ? As ? Excel.Workbook Dim ? xlSheet ? As ? Excel.Worksheet Dim ? i ? As ? Long, ? J ? As ? Long On ? Error ? GoTo ? ErrorHandle Set ? xlApp ? = ? CreateObject( Excel.Application ) Set ? xlBook ? = ? xlApp.Workbooks.Add Set ? 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 ? ? ? ? Next ? i ? ? ? ? xlSheet.Application.Visible ? = ? True ? ? ? ? Set ? xlSheet ? = ? Nothing ? ? ? ? Set ? xlBook ? = ? Nothing ? ? ? ? Set ? xlApp ? = ? Nothing ? ? ? ? Exit ? Sub ErrorHandle: MsgBox ? 错误： ? ? Err.Number ? ? vbCrLf ? ? Err.Description, ? vbOKOnly, ? 运行错误 如何将表中的数据导出到电子表格中作者：施进兵 有很多方法都可将数据库中某个表的数据导出到电子表格中，例如通过创建Access.Application，可以利用Access本身的导出功能实现将表中的数据导出到电子表格中。但是这种方法会