| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 636 人关注过本帖
标题:dbf转换excel求助继续
只看楼主 收藏
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
回复 20楼 吹水佬
真心感谢,b123不能在程序中直接打开浏览吗?
我想这样:

    if   导出完成了,确定要打开吗
       打开这个表
     elsel
        结束
      endif

吹佬:这样可行吗?
2018-04-07 17:14
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
IF MESSAGEBOX("完成,数据转换。要导出EXCEL吗?.",1+256,'提示')=6
        eole=creatobject("excel.appltcation")
        oExcel.Workbooks.Open(cPath+"b123.xls")  && 打开指定工作簿
        oExcel.Visible=.T.
      ELSE
       RETURN
     ENDIF  
加了上面几句,没有看到打开b123.xls,
这样不行吗,问题在哪儿呢?
2018-04-07 18:12
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:145
帖 子:5923
专家分:25849
注 册:2014-5-20
  得分:0 
回复 22楼 杂七杂八
可以
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
IF MESSAGEBOX("完成数据转换导出,要打开吗?",1+256,'提示')==1
    oExcel.Visible = .T.
    RETURN
ENDIF
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel
2018-04-07 20:21
杂七杂八
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2018-2-20
  得分:0 
回复 23楼 吹水佬
学习了,真心感谢版主。这个贴子现在可以真正的完美结贴了。
2018-04-07 20:42







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

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