从Excel提取值而不激活工作簿

问题描述 投票:1回答:1

我正在MS Word上工作,需要使用以下代码从Excel Workbook中提取数据:

它将在工作簿中使用Find TICKER,如果找到了它,那么它将使用工作簿中的值设置SECTOR变量。

Set MyXL = GetObject(, "Excel.Application")

If MyXL.ActiveWorkbook.NAME = "LIST.xlsm" Then
Set eXwb = GetObject("C:\Users\dell\Desktop\WEBD\LIST.xlsm")
Else
Set eXwb = MyXL.Workbooks("LIST.xlsm")
eXwb.Activate
End If

eXwb.Worksheets("Sheet4").Cells.Find(What:=TICKER).Offset(0, 2).Activate ' Is there any oneline code to find and set SECTOR variable without activating workbook
Set SECTOR = eXwb.Application.ActiveCell

是否有可能在不激活eXwb工作簿的情况下提取数据的可能性。是否有任何一行代码可以在不激活工作簿的情况下查找和设置SECTOR变量。

excel vba ms-word
1个回答
1
投票
© www.soinside.com 2019 - 2024. All rights reserved.