未找到Excel CreateObject过程| ＆＃34;运行时错误＆＃39; -2147024769（8007007f）＆＃34;

Question

您好我正在尝试运行一个非常简单的Microsoft Excel宏，代码如下所示：

Set objExcel = CreateObject("Excel.Application")

objExcel.Application.Visible = True

objExcel.Workbooks.Add

objExcel.Cells(1, 1).Value = "Test value"

但是我仍然收到以下错误：

Run-time Error '-2147024769 (8007007f)':

Automation Error

The specified procedure could not be found

有人知道是什么原因引起的吗？经过一番挖掘，它与COM有关。非常感谢你提前！

Answer 1

您已经在Excel中，所以您需要的只是

sub demo
Workbooks.Add()
Range("A1")="Test Value"
End Sub

您的代码可以在Word中运行 - 它将打开Excel，然后打开工作簿，然后写入A1。