| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4529 人关注过本帖, 3 人收藏
标题:VFP导入EXCEL探讨
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
Bottom,我打错字,底的英文是buttom

授人以渔,不授人以鱼。
2012-05-25 01:52
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
再发一点新资料:

*----------------------
* Word 常量
*----------------------
#DEFINE wdNewBlankDocument                 0
#DEFINE wdNewWebPage                       1
#DEFINE wdNewEmailMessage                  2
#DEFINE wdNewFrameset                      3

#DEFINE wdFormatDocument                   0
#DEFINE wdFormatDOSText                    4
#DEFINE wdFormatDOSTextLineBreaks          5
#DEFINE wdFormatEncodedText                7
#DEFINE wdFormatFilteredHTML               10
#DEFINE wdFormatHTML                       8
#DEFINE wdFormatRTF                        6
#DEFINE wdFormatTemplate                   1
#DEFINE wdFormatText                       2
#DEFINE wdFormatTextLineBreaks             3
#DEFINE wdFormatUnicodeText                7
#DEFINE wdFormatWebArchive                 9
#DEFINE wdFormatXML                        11
#DEFINE wdFormatDocument97                 0
#DEFINE wdFormatDocumentDefault            16
#DEFINE wdFormatPDF                        17
#DEFINE wdFormatTemplate97                 1
#DEFINE wdFormatXMLDocument                12
#DEFINE wdFormatXMLDocumentMacroEnabled    13
#DEFINE wdFormatXMLTemplate                14
#DEFINE wdFormatXMLTemplateMacroEnabled    15
#DEFINE wdFormatXPS                        18

授人以渔,不授人以鱼。
2012-05-26 22:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 22楼 TonyDeng
拜托你了,能否注释下。

坚守VFP最后的阵地
2012-05-26 22:17
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
两大块:第一块是创建Word文档的类型,分别是普通文档、网页文档和电子邮件文档,最后一个框架集还不知道怎么用,在调用Add()方法新建文档时用,语法为oWord.Documents.Add(,,文件类型编码);第二块是文件存盘的格式码,分别对应“另存为”那若干种格式,看单词大致就能猜到是什么,最有用的莫过于Text(文本文件)、html(网页)和97(兼容Office 97)、PDF、XPS格式了,这个在SaveAs2()方法中使用,语法格式为oDoc.SaveAs2(文件名,格式编码)。

[ 本帖最后由 TonyDeng 于 2012-5-26 22:28 编辑 ]

授人以渔,不授人以鱼。
2012-05-26 22:23
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
补一个示例代码:

程序代码:
*
* 用 Microsoft Word 编辑文章
*
PROCEDURE EditDocument(tcFileName)
    LOCAL loWord, loDoc, lbNewFile
   
    lbNewFile = !FILE(tcFileName)
    WAIT "正在启动Microsoft Word,请稍候……" WINDOW NOWAIT
    loWord = CREATEOBJECT("Word.Application")        && loWord 是Word进程
    WAIT CLEAR
    WITH loWord
        loDoc = IIF(!lbNewFile, .Documents.Open(tcFileName), .Documents.Add(,,wdNewWebPage))        && loDoc 是进程文件集中文档之一
        .Visible = .T.
        .Activate
        [....]
        IF !lbNewFile
            loDoc.Save
        ELSE
            loDoc.SaveAs2(tcFileName, wdFormatHTML)
        ENDIF
        * Save保存的是文档,故要用loDoc,Quit退出Word进程,是loWord的方法
        .Quit
    ENDWITH
   
ENDPROC

授人以渔,不授人以鱼。
2012-05-26 22:38
lishuo9913
Rank: 1
等 级:新手上路
帖 子:15
专家分:8
注 册:2013-3-2
收藏
得分:0 
有没有把比较大的DBF数据导成XLS格式的小程序啊????
2013-03-02 14:13
sgzhn
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-7-1
收藏
得分:0 
向你们学习
2013-03-12 21:36
ljyjitan
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2015-3-1
收藏
得分:0 
学些了!!!
2015-04-30 15:39
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
收藏
得分:0 
2017-03-06 14:16
快速回复:VFP导入EXCEL探讨
数据加载中...
 
   



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

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