運行時錯誤'438'

我知道有幾個關於這個運行時錯誤'438'的帖子，但我仍然無法弄清楚如何解決這個問題。這是我的全部代碼：https://pastebin.com/S6LigcWz但有問題的部分是這樣的：運行時錯誤'438'

With c.ChartData 
    .Activate 
    .Workbooks.Sheets(1).UsedRange.Clear 
    .Workbooks.Sheets(1).Range(A2).Select 
    .Selection.PasteSpecial xlPasteValues 
    .Workbooks.Close 
End With

代碼啓動以ppt然後進入Excel和拷貝的範圍內，那麼「嘗試」，以粘貼到PPT圖表。這是代碼中試圖粘貼到圖表的部分，以及發生錯誤的部分。它錯誤.Workbooks.Sheets(1).UsedRange.Clear

任何幫助表示讚賞。

來源

2017-09-21 Pinlop

你在PowerPoint或Excel執行呢？ – jcarroll

你的對象引用到Powerpoint在哪裏？ – braX

我正在執行ppt。所以這個宏代替了對excel的引用。 @jcarroll – Pinlop

我想借此點關閉Workbooks的開始，因爲ChartData沒有一個Workbooks成員

來源

2017-09-21 19:25:23 DaBeau96

這應該做到這一點。還要注意''Sheets'集合可以返回'Chart'對象，而不僅僅是'Worksheet'實例 - 代表那些表示使用'Worksheet'的代碼應該使用'Worksheets'集合，否則當你試圖將'UsedRange'從'Chart'中取出。 –

就像@ Mat's Mug說的那樣，我剛剛刪除了句點時確實發生了錯誤。但我似乎無法弄清楚如何將工作表添加到我的代碼中......它仍會在'With'語句中嗎？這是我能想到的最好的：https://pastebin.com/jfMv7NMd，但我也嘗試了'Workbooks.Worksheets.Sheets（1）.UsedRange.Clear'和'Workbooks.Worksheets.UsedRange.Clear'無效：（「方法或數據成員找不到」 – Pinlop

你似乎不知道你在做什麼...'工作表（1）.UsedRange.Clear'。智能感知告訴你什麼成員可用。聽聽它！沒有'Workbooks'集合中的'Worksheets'成員找出需要首先處理的'Workbook' –

運行時錯誤'438'

回答

相關問題