如何把MSHFexGrid里的数据导出至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 MSFlexGri