Excel的第一栏和第二栏数据写入到Word解决思路

Excel的第一栏和第二栏数据写入到Word
大家好，我有一个Excel文件，里面有一个工作表。大概2000多行，几栏。
我想要把这个工作表从第二行开始，第一栏和第二栏都写入到Word文件。
写到Word文件的格式如下：
The code for "B2" is "A2".
The code for "B3" is "A3".
...
以此类推。


大家能否帮我看看，下面的代码有什么问题？我连把一个Excel单元格的值写到Word都还没有弄对。唉。

下面的这个宏是写在Word中的。

Sub test()
  Dim MyExcelData As Object
  Set MyExcelData = CreateObject("Excel.Application")
  MyExcelData.Visible = True
   
  MyExcelData.Workbooks.Open FileName:="C:\A.xlsm"
   
   
   
  Dim i As Integer
  For i = 2 To 2436
   
  ActiveDocument.Paragraphs(i).Range.Text = Worksheets(1).Cells(i, 1).Value
  ActiveDocument.Paragraphs.Add
  Next i
End Sub

[解决办法]

VB code

Sub test()  Dim MyExcelData As Object  Set MyExcelData = CreateObject("Excel.Application")  MyExcelData.Visible = True      MyExcelData.Workbooks.Open FileName:="C:\A.xls"              Dim i As Integer  For i = 2 To 2436    ActiveDocument.Paragraphs.Add    ActiveDocument.Paragraphs(i).Range.Text = MyExcelData.Worksheets(1).Cells(i, 1).Value  Next iEnd Sub
[解决办法]
这样写代码运行效率应该比较低吧？