机房管理系统——vb与excel链接2

    因为我之前找的文档让我以为在创建表里面走了非常大的误区,所以当时我直接就在学生管理系统的目录里建了张表,执行时候直接打开这样表即可了。

可是这里面还是存在着非常大的误区。

     后来我看了周坤的博客感觉他比我的代码优化了好多。

我代码里面的好多问题都在他这里面得到解决。

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中的启动宏

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:https://www.heiqu.com/zgfdsf.html