如何正确地将数据从Excel导入到Powerpoint中

我有一个幻灯片上有几个标签的幻灯片演示文稿。 我需要从位于与PowerPoint演示文件文件夹相同的文件夹中的Excel表中拉取标签的值。

到目前为止，我用来填充标签的代码是这样的：

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow) If Wn.View.CurrentShowPosition = 1 Then 'load variable values? Dim xlApp As Object Dim xlWorkBook As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False Set xlWorkBook = xlApp.Workbooks.Open(ActivePresentation.Path & "\QSheet.xlsx", True, False) BrownRetail = xlWorkBook.Sheets(1).Range("B3").Value lblBrownTruckRetail.Caption = "$" & CCur(BrownRetail) Set xlApp = Nothing Set xlWorkBook = Nothing End If End Sub 

这工作，除非是非常缓慢的加载（10-15秒开始演示文稿）和标签显示白色背景，而不是透明的。 另外，即使在devise视图中，标签值仍然保持不变，这对我来说似乎很奇怪。

有没有更好的方法来从excel表单中填充标签？