將 PowerPoint 文本框中的數據粘貼到 Excel

Question

我有一個 PowerPoint，我需要將文本框中的數字復制到特定的 excel 文件中。 我決定在 PowerPoint 上使用宏，因為該文件將與多個用戶共享，並且我想將每個文件的數據編譯到電子表格中。 到目前為止，我的代碼工作正常，但只復制到特定行，從而覆蓋現有數據。 我在查找下一個空行的代碼時遇到問題。 到目前為止，我嘗試的似乎只有從 excel 到 excel 時才有效。

rw = Range("A" & Rows.Count).End(xlUp).Offset(1).Select

對於 VBA，我充其量只是個新手。 請幫忙。

Answer 1

While xlsWB.Worksheets(1).Range("A" & row) <> ""
row = row + 1
Wend

這將找到下一個空行並將行號存儲在 integer row中。 xlsWB是一個Object存儲CreateObject("Excel.Application").Workbooks.Open("File Path")

然后，使用以下語法填寫您的單元格。

xlsWB.Worksheets(1).Range("A" & row) = ""

此外，您可以使用For loop來自動化它。