使用VBA从Word编辑Excel数据表

Question

如何使用VBA从单词编辑Excel电子数据表？

Answer 1

首先，您需要设置对正在运行的Excel版本的引用。在VBE中，转到工具>参考，然后单击Microsoft Excel 12.0对象库（2007年为12.0，2003年为11.0）等。

然后，您可以编写这样的代码（打开Excel的新实例，打开，编辑并保存一本新的工作手册）。您将使用GetObject访问正在运行的Excel实例：

Sub EditExcelFromWord() 

Dim appExcel As Excel.Application 
Dim wb As Excel.Workbook 
Dim ws As Excel.Worksheet 

Set appExcel = CreateObject("Excel.Application") 
With appExcel 
    .Visible = True 
    Set wb = .Workbooks.Add 
    Set ws = wb.Worksheets(1) 
    ws.Range("A1").Value2 = "Test" 
    wb.SaveAs ThisDocument.Path & Application.PathSeparator & "temp.xls" 
    Stop 'admire your work and then click F5 to continue 
    Set ws = Nothing 
    Set wb = Nothing 
    Set appExcel = Nothing 

End With 

End Sub