| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2683 人关注过本帖
标题:Vfp表如何导出到不同Excel版本
取消只看楼主 加入收藏
hgxsyhb
Rank: 2
等 级:论坛游民
帖 子:6
专家分:10
注 册:2008-6-19
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:2 
Vfp表如何导出到不同Excel版本
Vfp写的程序中将dbf表如何导出到Excel2003版本没有问题,但是现在计算机中很多安装高版本的excel,就无法运行,能否首先判断电脑中的excel版本,然后导出表数据
搜索更多相关主题的帖子: 计算机 excel Excel 如何 
2015-11-08 12:11
hgxsyhb
Rank: 2
等 级:论坛游民
帖 子:6
专家分:10
注 册:2008-6-19
收藏
得分:0 
以下是引用sdta在2015-11-8 12:35:18的发言:

Clear
oExcel = Createobject([Excel.Application])

Do Case
    Case oExcel.Version = "2.0"  && 1987年
        ? "MS Excel 2 版"
    Case oExcel.Version = "3.0"  && 1990年
        ? "MS Excel 3 版"
    Case oExcel.Version = "4.0"  && 1992年
        ? "MS Excel 4 版"
    Case oExcel.Version = "5.0"  && 1993年
        ? "MS Excel 5 版"
    Case oExcel.Version = "6.0"  && None
        ? "没有"
    Case oExcel.Version = "7.0"  && 1995年
        ? "MS Excel 95 版"
    Case oExcel.Version = "8.0"  && 1997年
        ? "MS Excel 97 版"
    Case oExcel.Version = "9.0"  && 1999年
        ? "MS Excel 2000 版"
    Case oExcel.Version = "10.0" && 2001年
        ? "MS Excel XP 版"
    Case oExcel.Version = "11.0" && 2003年
        ? "MS Excel 2003 版"
    Case oExcel.Version = "12.0" && 2006年
        ? "MS Excel 2007 版"
    Case oExcel.Version = "13.0" && None
        ? "没有"
    Case oExcel.Version = "14.0" && 2010年
        ? "MS Excel 2010 版"
    Case oExcel.Version = "15.0" && 2013年
        ? "MS Excel 2013 版"
    Otherwise
        ? "本机没有安装EXCEL"
Endcase

? oExcel.Version

oExcel.quit()

真的非常棒,学习了,谢谢
2015-11-09 20:09
hgxsyhb
Rank: 2
等 级:论坛游民
帖 子:6
专家分:10
注 册:2008-6-19
收藏
得分:0 
以下是引用TonyDeng在2015-11-8 21:18:34的发言:

其實我現在發覺,與其用vfp控制Excel導入導出數據,還不如直接在Excel中寫導入導出脚本然後在vfp中打開並運行該文檔,簡單得多。

用VBA这是一个很不错的思路!
2015-11-09 20:25
快速回复:Vfp表如何导出到不同Excel版本
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027455 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved