在Excel中讀取文件路徑VBA

我使用VBA從Excel中的某些圖表每週創建一個PowerPoint。但是，第一張幻燈片需要來自PowerPoint創建的最後一週。在Excel中讀取文件路徑VBA

文件路徑和名稱都是變量，因爲它們的標題中包含日期。我可以解釋這一點，並用實際的文件名進行檢查。它對我來說看起來是一樣的。然而，當我試圖打開我得到的ActiveX錯誤/運行時錯誤429.任何想法，將不勝感激

Sub CreateNewPres() 
Dim ppApp As PowerPoint.Application 
Dim ppPres As PowerPoint.Presentation 
Dim objPres As PowerPoint.Presentation 
Dim ppSlide As PowerPoint.Slide 
Dim ppTextbox As PowerPoint.Shape 

Set ppApp = New PowerPoint.Application 
ppApp.Visible = True 
ppApp.Activate 

Set ppPres = ppApp.Presentations.Add 

todayDate = Date 
myTextDate = Format(todayDate, "yyyy-mm-dd") 
myFilePath = "C:\Desktop\Main\" & myTextDate 
myFileName = "\Meeting_" & myTextDate & ".pptx" 
myFile = myFilePath & myFileName 
objPres=_ 
    Presentations.Open(myFile) 

objPres.Slides(1).Copy 
ppPres.Slides.Paste (ppPasteEnchancedMetafile) 
Set ppTextbox = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 
    Left:=0, Top:=0, Width:=30, Height:=10) 
    With myTextBox.TextFrame.TextRange.Text = todayDate 
    End With

來源

2017-07-26 Jack Armstrong

改變這一行的文件：

objPres = Presentations.Open(myFile)

這樣：

Set objPres = ppApp.Presentations.Open(myFile)

來源

2017-07-26 14:34:30

這是答案的一半，ppPres.Slides.Paste（ppPasteEnchancedMetafile）'？如果您不參考幻燈片號碼 –

，您也會在此處收到錯誤。未能正常工作。同樣的錯誤。以防萬一，我會發布其餘的代碼。 –

驗證'myFile'是否包含有效的文件名。 –

在Excel中讀取文件路徑VBA

回答

相關問題