如何将数据添加到 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 2DIMENSION laDemoData(4)      && For some Visual FoxPro users, datalaDemoData(1)= 1024          && could come from table or viewlaDemoData(2)= 2048laDemoData(3)= 5120laDemoData(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 对象从内存
互操作性打印

警告:本文已自动翻译

属性

文章 ID:142193 - 上次审阅时间:12/04/2015 12:56:03 - 修订版本: 3.3

Microsoft Visual FoxPro 3.0 标准版, Microsoft Visual FoxPro 3.0b 标准版, Microsoft Visual FoxPro 5.0 标准版, Microsoft Visual FoxPro 6.0 专业版

  • kbnosurvey kbarchive kbmt kbcode kbhowto kbinterop KB142193 KbMtzh
反馈