判断本机的excel是哪个版本

https://bbs.csdn.net/topics/350170669

yyoinge https://my.csdn.net/yyoinge




OleObject   xlapp

Integer     li_row

String      ls_filename, ls_version, ls_info

 

xlapp = Create oleobject

li_row = xlapp.ConnectToNewObject( "Excel.Application" )

If li_row < 0 Then

    Messagebox( "系统提示" , "不能运行Excel程序,请检查是否已安装Microsoft Excel软件!" ,Stopsign!)

Else

    ls_version = String(xlapp.Version)

    Choose Case ls_version

       Case  '9.0'

          ls_info =  "Excel 2000"

       Case  '10.0'

          ls_info =  "Excel 2002/XP"

       Case  '11.0'

          ls_info =  "Excel 2003"

       Case  '12.0'

          ls_info =  "Excel 2007"

       Case  '14.0'

          ls_info =  "Excel 2010"

       Case Else

          ls_info =  "未知版本"

    End Choose

    Messagebox( "系统提示" , ls_info +  " 版本号："  + ls_version +  "~t" )

    xlapp.DisconnectObject()

End If

哦，我知道我的问题在哪了，应该是连接字符串有问题，之前的是这样： 
 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _
                            "Data Source=" & txtFile.Text & ";Extended Properties='Excel 8.0;HDR=No;IMEX=1'"

请教如果是excel2007的文件，这个字符串应该如何写？

百度到答案了，
      cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=True;" & _
                            "Data Source=" & txtFile.Text & ";Extended Properties='Excel 12.0;HDR=Yes;IMEX=1'"

多谢楼上各位