excel - 从 Word 打开 excel 并执行操作

Question

我想创建一个 marco，它使我能够在 Word 中工作时在 Excel 表中添加一些内容。我设法得到一些工作，从 word 打开一个 excel 文件:

  Dim excelApp As Excel.Application
  Dim openExcel As Workbook
  Dim var1 As Integer


  Set excelApp = New Excel.Application
  Set openExcel = excelApp.Workbooks.Open("C:\Documents and Settings\aa471714\Desktop\Book1.xls")
  excelApp.Visible = True

但现在我想添加应该在 excel 之后发生的代码。但是当我添加相关代码时:

Sheets("Sheet2").Select
Range("A4").Select

这似乎不起作用。我忽略了什么吗？

亲爱的问候，

马克

Answer 1

请记住，在 Word 默认应用程序中创建的宏中始终是 Word 应用程序。因此，每次您想在 Excel 中进行任何操作时，您都需要通过添加对 Excel 应用程序(或如下所示的其他 Excel 对象)的完整引用来声明它。

还要记住，在这种情况下，您将需要添加扩展的对象层次结构。

回到您的代码 - 添加这种对象引用应该可以解决问题:
(包括一些额外的再版)

'comments referring to Object hierarchy
openExcel.Sheets("Sheet2").Select   'OK because sheet is an object below Workbook
excelApp.Range("A4").Select    'NEW, Range is object below Application or...
openExcel.Sheets("Sheet2").Range("A4").Select   'IMPROVED, Range is object below sheet
'general- Range.Select works only for activesheet!!

对象 openExcel保持对由 excelApp 表示的 Excel 应用程序的引用.