当前位置:编程学习 > VB >>

excle 导出数据问题

通过Vb将数据库表中数据导出到excle中,但是EXcle有版本的问题,2003以前的,每个工作簿只能到6.5万条数据,但2007以后可以导100多万。
在程序中怎么判断本地计算机excle版本问题

1、如果本机安装2003前,大于6.5万时就要分页;
2、安装2007以后的,大于100万时分页;
3、即安装2003前的,又安装2007以后,大于100万时分页

看了网上的说法,可以判断excle的版本,感觉不靠谱,我开始引用的excle的DLL就决定了,还要判断什么?

        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
    
        Set xlApp = CreateObject("excel.application")
        Set xlBook = xlApp.Workbooks.Add
        xlBook.SaveAs m_file
        Set xlBook = xlApp.Workbooks.Open(m_file)
        Set xlSheet = xlBook.Worksheets(1)
        xlSheet.Activate
    '    xlApp.Visible = True
        Select Case xlApp.Application.Version
             Case "12.0", "14.0"
               ....
             case "11.0"
               ....
        end select 

大家有什么建议,怎么处理这个问题?

难道存放在ACCESS里面不好么? 非要导出到EXCEL呢. 使用起来也不是很方便吧.

你这个EXCEL对象在引用的时候应该就确定版本了, 所以再在程序里面判断不是很有意义.
或者你不管三七二十一统统当成低版本的限制来导出就好了么. 

实在难以想象这么大一个excel文件, 直接阅读肯定是不可能的, 无非也就是用作一个引用数据来用, 这样的话还不如直接在EXCEL里面联接ACCESS数据库. xlApp.Application.Version = 11 是03版的。
xlApp.Application.Version = 12 是07版的。 Val(excel_app.Application.Version) >= 12 '07的 不用导,直接将Access转换为Excel即可
http://download.csdn.net/detail/veron_04/1483928
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,