如何在Excel中查看PowerPoint值

Question

我在PowerPoint中有一个人员列表的演示文稿。每个人都有姓名，部门和职位。

名称保持不变，但部门和职位发生变化。

我想在PowerPoint中使用某种vlookup来动态更新部门和位置以及Excel文件。

我正在使用2010 PP和Excel。

我该怎么做？

Answer 1

  

我该怎么做？

获取Excel应用程序和指定文件的句柄，然后从中执行VLOOKUP。

Dim lookupValue as String
Dim xlApp as Object, xlWB as Object, xlWS as Object, xlRange as Object

lookupValue = ActivePresentation.Slides(1).Shapes(1).TextRange.Text '## Modify as needed

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open("C:\your\file.xlsx") '## Modify as needed
Set xlWS = xlApp.Worksheets("your sheet name")       '## Modify as needed
Set xlRange = xlWS.Range("A1:F1000")                 '## Modify as needed, the Vlookup range

然后，您可以使用VBA中的VLOOKUP或MATCH函数，以及应从中提取数据的xlWS.Range对象。

' print the value from column 3 in the range, etc.
Debug.Print xlApp.Vlookup(lookupValue, xlRange, 3, False)