Question

我使用以下代码在excel

中选择所选工作表中的特定范围

Sub openWordvanuitWord()

Dim excelApp As Excel.Application
Dim Excel As Excel.Workbook
Dim sht As Excel.Worksheet

Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True

Set Excel = excelApp.Workbooks.Open("C:\Documents and   Settings\aa471714\Desktop\Book1.xls")
Set sht = Excel.Worksheets(1)


With sht

.Range("b3:h5").Select


End With

End Sub

问题是它希望它选择表2.只有当我改变

时

Set sht = Excel.Worksheets(1)

到

Set sht = Excel.Worksheets(2)

我收到错误

有人建议吗？

Answer 1

您只能在活动工作表上设置选择。所以你必须先激活它：

Set sht = Excel.Worksheets(2)
sht.activate
With sht
    .Range("b3:h5").Select
End With

顺便说一句：在大多数情况下，您不必使用选择（例如，您可以不使用它来读取和写入值），但那是另一个主题......

从word打开excel并选择特定表单

1 个答案: