将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

这将找到下一个空行并将行号存储在整数row中。 xlsWB是存储Object

的CreateObject("Excel.Application").Workbooks.Open("File Path")

然后，使用以下语法填写您的单元格。

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

此外，您可以使用For loop使其自动化。