用编程的方法可以做到，打开excel表格，然后另存5.0/95格式的excel文档吗，请高手帮忙。tks！ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 用编程的方法可以做到，打开excel表格，然后另存5.0/95格式的excel文档吗，请高手帮忙。tks！

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 5692 人关注过本帖

标题：用编程的方法可以做到，打开excel表格，然后另存5.0/95格式的excel文档吗， ...

只看楼主加入收藏

wengjl

等　级：贵宾
威　望：109
帖　子：2202
专家分：3862
注　册：2007-4-27

第 11 楼

得分:0

这是我每年6月在用的

只求每天有一丁点儿的进步就可以了

2017-03-08 08:02

sdoger

等　级：论坛游民
威　望：1
帖　子：27
专家分：12
注　册：2011-2-15

第 12 楼

得分:0

回复 9楼 sdta

楼主，实测 9楼 ok！~~

目前vfp 6.0 确实只能导入 EXCEL 5.0的 xls文件，其他的都会出现错误，

另外，命令导入还有需要知道 sheet名称的尴尬境地。

不不知道，在sheet名称未知的情况下，如何导入？

2017-03-08 09:30

jjoojj

等　级：新手上路
帖　子：59
专家分：0
注　册：2014-8-12

第 13 楼

得分:0

以下是引用sdta在2017-3-7 18:12:26的发言：

oExcel=CreateObject('Excel.Application')
oExcel.WorkBooks.Open("D:\170230-2.xls")
oExcel.DisplayAlerts = .f.
oExcel.ActiveWorkbook.SaveAs("D:\170230-3.xls",39)
oExcel.DisplayAlerts = .t.
oExcel.Quit
RELEASE oExcel

可以用了，谢谢啊！

2017-03-08 09:55

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9809
专家分：26987
注　册：2012-2-5

第 14 楼

得分:0

回复 12楼 sdoger

3.1.5 获取工作表名称
    oExcel=CreateObject("Excel.Application")   && 创建Excel对象
    With oExcel
        .WorkBooks.Add                         && 添加新工作簿，默认为3个工作表
        * 插入工作表并且命名
        For lnI=1 To 12
            .Sheets.Add
            .ActiveSheet.Name=Transform(lnI)+"月"
        EndFor
        * 获取工作表名称
        For lnI=1 To .Sheets.Count
            ?.Sheets(lnI).Name
        EndFor
　　EndWith

坚守VFP最后的阵地

2017-03-08 10:34