求助，vba代码翻译成 vfp 的几个问题

主题：求助，vba代码翻译成 vfp 的几个问题

pzszdy [专家分：0] 发布于 2008-07-16 03:21:00

这是vba代码：

Attribute VB_Name = "模块1"

Sub Macro5()
    Sheets("sb1").Select
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False     Range("C2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""s"",MID(RC[-1],4,6),"".xls"")"

    wjm = ActiveCell.FormulaR1C1
    lj = "d:\LqzTyGlxt\sqbtool\excel\ywj\" & ActiveCell.Value
    ActiveWorkbook.SaveAs Filename:="d:\LqzTyGlxt\sqbtool\excel\ywj\" & ActiveCell.Value, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
         Range("C2").Select
    Selection.ClearContents
    ActiveWorkbook.Save

End Sub

最后更新于：2008-07-16 03:41:00

本帖地址： http://bbs.pfan.cn/post/280729.html

回复列表（共6个回复）

沙发

pzszdy [专家分：0] 发布于 2008-07-16 03:23:00

选择性粘贴数值这个很麻烦

板凳

pzszdy [专家分：0] 发布于 2008-07-16 03:24:00

     fname = ALLTRIM(GETFILE('xls'))
    IF LEN(fname)=0
      =MESSAGEBOX("文件未选择!",64,"提示")
      RETURN
    ENDIF
    ew = CREATEOBJECT("Excel.Application") &&调用Excel程序
    ew.Application.Caption="打开您曾经录入的申请表数据以继续您的工作！" && 指定标题栏名称
    ew.Application.Visible=.T. && 置EXCEL可见
    ew.Application.WorkBooks.Open("&fname") && 打开现有EXCEL工作簿


    ew.Application.Worksheets("sb1").Activate  &&激活第一个工作表
    ew.Application.Cells.Select&&选择整张表
    ew.Application.Selection.copy &&复制整张表
    ew.Application.Workbooks.add&&添加工作簿
    ew.Application.Worksheets("sheet1").Activate&&激活第一个工作表
    ew.Application.Range("A1").Select
    ew.Application.Range("a1")._PasteSpecial():=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

这里写不下去了

RELEASE ew

3 楼

pzszdy [专家分：0] 发布于 2008-07-16 03:40:00

或者用vfp 执行 excel的宏也可以

4 楼

琅拿度 [专家分：2820] 发布于 2008-07-16 08:25:00

你的几个问题在哪里？

5 楼

alpen [专家分：1140] 发布于 2008-07-16 13:04:00

选择性粘贴数值这个很麻烦,.问题在哪里？我不是很明白.
但我想能否考虑直接将先将excel表导入成vfp的dbf表,这个功能的vfp命令是比较简单的.再根据需要做其他的事情

6 楼

pzszdy [专家分：0] 发布于 2008-07-16 21:18:00

如何用vfp执行excel的宏啊，请高手赐教

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：求助，vba代码翻译成 vfp 的几个问题

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助，vba代码 翻译成 vfp 的几个问题

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求助，vba代码翻译成 vfp 的几个问题

回复列表（共6个回复）