我用的是dao 将data中的数据导入到自己创建的excel 对象中去
frmquartertable.mousepointer = 11 【程序编程相关:翻译TIPatterns--太多(Too】sub tabletoexcel(ntablename as integer, ntabledata() as integer) 【推荐阅读:C语言陷阱和缺陷】
dim i as integer 【扩展信息:如何监测内存泄漏(zt)】 on error resume next dim j as integer dim stryear as string dim strseason as string dim xlapp, xlbook, xlsheet as object on error resume next set xlapp = createobject("excel.application") set xlbook = xlapp.workbooks.add set xlsheet1 = xlbook.worksheets(1) xlapp.activewindow.tabratio = 0.9 select case ntablename case 11: xlbook.worksheets("sheet1").select xlapp.activesheet.range("b1:h1").select xlapp.activecell.formular1c1 = "表1-1 " ... 下一页