如何将数据添加到 Excel 工作表中使用 OLE 自动化

文章翻译 文章翻译
文章编号: 142193 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

OLE 自动化提供一种可视 FoxPro Windows 的与其他 OLE 兼容应用程序进行交互的方式。使用 OLE 可视化 FoxPro 程序可以启动 Microsoft Excel 会话、 打开的工作簿、 工作簿中选择一个工作表、 将数据放置到一个单元格或单元格区域、 打印工作表、 保存在更新工作簿和关闭 Microsoft Excel 会话。这篇文章的示例演示如何做到这一点。

更多信息

分步示例

  1. 这样将处理程序示例,本文中的,Microsoft Excel 5.0 或 Microsoft Excel 7.0 (Office 95 的一部分) 或 Microsoft Excel 97 (Office 97 的一部分) 中打开一个新的工作簿。
  2. 通过单击底部的该的工作表选项卡中选择工作表 3 和电子表格中输入以下数据:
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. 在 Microsoft Excel 数据菜单上单击分类汇总。随后出现的对话框应显示在每个更改中部件号,函数 'SUM 添加到分类汇总销售本年迄今并显示在数据下方的摘要。如果是这样,单击确定。
  4. 单击底部的工作表中的 Sheet 1 还原到工作表 1 的工作簿的默认页选项卡。
  5. 保存工作簿。然后关闭该的工作簿,并从 Microsoft Excel 中退出。下面的示例代码的工作簿已保存为
          C:\XLSheets\Testbook.xls.
    					
  6. 在 Microsoft 可视 FoxPro Windows,创建名为 oleExcel.prg 以下程序:
    *** Program oleExcel.prg *****
    #DEFINE xlLandscape 2
    #DEFINE xlDoNotSaveChanges 2
    
    DIMENSION laDemoData(4)      && For some Visual FoxPro users, data
    laDemoData(1)= 1024          && could come from table or view
    laDemoData(2)= 2048
    laDemoData(3)= 5120
    laDemoData(4)= "The Sample Message"
    
    loExcel = CREATEOBJECT("Excel.application") 
    
    WITH loExcel
       .Application.Workbooks.Open("C:\XLSheets\testbook.xls")
       .Application.Worksheets("Sheet3").Activate  && Select sheet
       
       .Range("b2").Value = 14444          && constants as data
       .Range("b3").Value = 25555
       .Range("b4").Value = 30001
    
       .Range("b6").Value = laDemoData(1)  && variables as data
       .Range("b7").Value = laDemoData(2)
       .Range("b8").Value = laDemoData(3)
       .Range("a12").Value = laDemoData(4)
    
       .Worksheets("Sheet3").PageSetup.Orientation = xlLandscape
       .ActiveSheet.PrintOut  && Example of printing the worksheet
    
       .Visible = .t. && See the results
       =MESSAGEBOX("Click OK to close Excel.") && Keep the program running, 
                                               && so Excel isn't stranded
    
       .ActiveWindow.Close(xlDoNotSaveChanges)
       .Quit()
    ENDwith
    					

参考

检查"应用程序对象"的 Microsoft Excel 帮助主题和主题的属性和方法列表中引入了许多主题。

有关的概念示例程序的很多关于的详细信息,请参阅下面 Microsoft 知识库中相应的文章:
139051如何在 Excel 中的单元格选择通过使用 OLE 自动化
132535PRB: 发布对象变量会未关闭的 Microsoft Excel
138398PRB: 版本可能不删除 OLE 对象从内存

属性

文章编号: 142193 - 最后修改: 2004年7月13日 - 修订: 3.3
这篇文章中的信息适用于:
  • Microsoft Visual FoxPro 3.0 标准版
  • Microsoft Visual FoxPro 3.0b 标准版
  • Microsoft Visual FoxPro 5.0 标准版
  • Microsoft Visual FoxPro 6.0 专业版
关键字:?
kbmt kbcode kbhowto kbinterop KB142193 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 142193
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com