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 , 基础类