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

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

标题：dbf转换excel求助继续

只看楼主

杂七杂八

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

第 11 楼

得分:0

请求版主出手，谢谢。

2018-04-05 04:12

schtg

来　自：https://t.me/pump_upp
等　级：贵宾
威　望：67
帖　子：1355
专家分：2534
注　册：2012-2-29

第 12 楼

得分:0

回复 9楼杂七杂八

一般加在程序的末尾，即关闭、退出、释放excel之后暂时不再使用excel之处。

2018-04-05 06:37

杂七杂八

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

第 13 楼

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

杂七杂八

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

第 14 楼

得分:0

回复 12楼 schtg

2018-04-05 07:36

杂七杂八

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

第 15 楼

得分:0

请求版主出手，谢谢。

2018-04-06 07:50

杂七杂八

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

第 16 楼

得分:0

求助高手啦。

2018-04-06 16:14

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 17 楼

得分:0

oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
关闭退出释放了就看不到EXCEL了，要就不要执行这几句。

2018-04-07 08:04

杂七杂八

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

第 18 楼

得分:0

回复 17楼吹水佬

不执行这几句后，出现

2018-04-07 09:36

杂七杂八

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

第 19 楼

得分:0

我想删除b123.xls,出现了

[此贴子已经被作者于2018-4-7 09:44编辑过]

2018-04-07 09:42

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 20 楼

得分:0

转换完成之后保存不就可以了吗？
ASTACKINFO(a程序)
cPath = ADDBS(JUSTPATH(a程序[2]))
SET DEFAULT TO (cPath)
SET SAFETY OFF
COPY FILE a123.xls TO 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
oExcel.ActiveWorkbook.Save
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
MESSAGEBOX("导出完成")

2018-04-07 16:45

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-485719-1-1.html