因为我之前找的文档让我以为在创建表里面走了非常大的误区,所以当时我直接就在学生管理系统的目录里建了张表,执行时候直接打开这样表即可了。
可是这里面还是存在着非常大的误区。
后来我看了周坤的博客感觉他比我的代码优化了好多。
我代码里面的好多问题都在他这里面得到解决。
(ORZ!!
。我做了一下午,忽然有种白做的感觉。)
“导出为excel”这个button大体就是点击button便创建一张表,然后把myflexgrid写到表格里面。
先看一下我的代码的问题:
Set xlApp = CreateObject("Excel.Application") \'创建EXCEL应用类 xlApp.Visible = True \'设置EXCEL可见 1. Set xlBook = xlApp.Workbooks.Open(App.Path & "\新建 Microsoft Excel 工作表.xls") \'打开EXCEL工作簿 Set xlSheet = xlBook.Worksheets(1) \'打开EXCEL工作表 xlSheet.Activate \'激活工作表 2. xlSheet.Cells(1, 1) = myflexgrid.TextMatrix(0, 0)……\'给单元格1行驶列赋值………… xlBook.RunAutoMacros (xlAutoOpen) \'执行EXCEL中的启动宏