| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 902 人关注过本帖
标题:dbf转换excel求助继续
只看楼主 加入收藏
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分:0 
请求版主出手,谢谢。
2018-04-05 04:12
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:18
帖 子:527
专家分:686
注 册:2012-2-29
  得分:0 
回复 9楼 杂七杂八
一般加在程序的末尾,即关闭、退出、释放excel之后暂时不再使用excel之处。
2018-04-05 06:37
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分: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
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分: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
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分:0 
请求版主出手,谢谢。
2018-04-06 07:50
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分:0 
求助高手啦。
2018-04-06 16:14
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:169
帖 子:6385
专家分:27952
注 册:2014-5-20
  得分:0 
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
关闭退出释放了就看不到EXCEL了,要就不要执行这几句。
2018-04-07 08:04
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分:0 
回复 17楼 吹水佬
不执行这几句后,出现
附件: 您没有浏览附件的权限,请 登录注册
2018-04-07 09:36
杂七杂八
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2018-2-20
  得分:0 
我想删除b123.xls,出现了



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

附件: 您没有浏览附件的权限,请 登录注册
2018-04-07 09:42
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:169
帖 子:6385
专家分:27952
注 册:2014-5-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







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

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