Vfp表如何导出到不同Excel版本 - VFP论坛

第 11 楼

得分:0

回复 10楼 taifu945

你很着著嘛

第 12 楼

得分:0

以下是引用TonyDeng在2015-11-8 21:18:34的发言：

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

真心想向版本请教，脚本写在哪？如何写相应的脚本？

第 13 楼

得分:0

以下是引用wangzhiyi在2015-11-9 14:12:04的发言：

真心想向版本请教，脚本写在哪？如何写相应的脚本？

Office都帶vbs可編程脚本，我們用vfp調Word、Excel都是使用對方自帶的vbs脚本，那是繞了一圈。Office的脚本叫宏，用錄製宏菜單就打開vbs編程環境，代碼存儲在Office文檔中。

授人以渔，不授人以鱼。

第 14 楼

得分: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()

真的非常棒，学习了，谢谢

第 15 楼

得分:0

用VBA这是一个很不错的思路！

第 16 楼

得分:0

識別本機Office版本是一回事，需要讀寫的文檔是什麽版本又是另一回事。能用vfp導入導出的Office版本，不可能跟得上Office的更新步伐，不是xls8就夠的。原則上說，與Office文檔的交換，讀入之後不會再導出，生成Office文檔是用於輸出最終報表，不是給Excel再做數據處理。

[此贴子已经被作者于2015-11-10 14:14编辑过]

授人以渔，不授人以鱼。

第 17 楼

得分:0

学习了！