dbf转换excel求助继续 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → dbf转换excel求助继续

我的收件箱(0)

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

共有 3305 人关注过本帖

标题：dbf转换excel求助继续

取消只看楼主加入收藏

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20
结帖率：96%

楼主

已结贴√ 问题点数：20 回复次数：15

dbf转换excel求助继续

*第一步1.建立了 a123.xks 模表
*第二步2.将 a123.xks 模表另存为 b123+"年月（201804）" 如:b123^201804
*第三步3.把a123.dbf 的内容转换到 b123^201804.xls 中去.
*第四步4.选择打开b123^201804.xls 后可以浏览并决定是否打印.
*第五步5.关闭xls表.程序结束.

新建文件夹.rar (4.19 KB)

*附代码如下: 试了,不完善.请予以指导.

ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
SET DEFAULT TO (cPath)
SET SAFETY OFF
COPY FILE a123.xls TO cPath+"b123.xls"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open(cPath+"b123.xls")
USE a123
nColCount = FCOUNT()
SCAN
    FOR nCol=1 TO nColCount
        oExcel.Cells[RECNO()+1,nCol].Value = EVALUATE(FIELD(nCol))
    ENDFOR
ENDSCAN

    IF MESSAGEBOX("完成，数据转换。要导出EXCEL吗？.",1+256,'提示')=6

    eole=creatobject("excel.appltcation")
    oExcel.Workbooks.Open(cPath+"b123.xls")  && 打开指定工作簿
    oExcel.Visible=.T.
    ELSE
      RETURN
    ENDIF

搜索更多相关主题的帖子: dbf　转换　 excel　继续　 xls　

2018-04-01 23:27

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 2 楼

得分:0

回复2、3楼

图片附件: 游客没有浏览图片的权限，请登录或注册

2018-04-02 22:18

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 3 楼

得分:0

生成的EXCEL表：没有显示在窗口前,从文件夹中找到后.双击不能打开,2.也不能直接删除.

2018-04-03 20:21

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 4 楼

得分:0

生成的EXCEL表：没有显示在窗口前,从文件夹中找到后.双击不能打开,2.也不能直接删除.

2018-04-03 20:21

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 5 楼

得分:0

回复 8楼 schtg

谢谢你。我以为也是这个原因。
oExcel.Workbooks.Close
objexcel.activeworkbook.Close(.F.)
oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭
是不是要加上上面几个命令，若要加应加在哪里。请指教。

2018-04-04 18:12

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 6 楼

得分:0

请求版主出手，谢谢。

2018-04-05 04:12

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 7 楼

得分:0

请求版主出手，谢谢。

2018-04-05 04:12

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 8 楼

得分:0

回复 12楼 schtg

ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
SET DEFAULT TO (cPath)
SET SAFETY OFF
COPY FILE a123.xls TO cPath+"b123.xls"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = .F.
oExcel.WorkBooks.Open(cPath+"b123.xls")
USE a123
nColCount = FCOUNT()
SCAN
     FOR nCol=1 TO nColCount
         oExcel.Cells[RECNO()+1,nCol].Value = EVALUATE(FIELD(nCol))
     ENDFOR
ENDSCAN

     IF MESSAGEBOX("完成，数据转换。要导出EXCEL吗？.",1+256,'提示')=6

     eole=creatobject("excel.appltcation")
     oExcel.Workbooks.Open(cPath+"b123.xls")  && 打开指定工作簿
    oExcel.Visible=.T.
     ELSE
       RETURN
     ENDIF

oExcel.Workbooks.Close
oExcel.Quit
Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭
加了之后并没有在窗口中看到EXCEL 表

2018-04-05 07:36