如何使用其他工作簿中的信息自动填充电子表格？

Question

我有两本工作簿。

一个表单中包含自由格式文本作为答案框的问题。这些表格由不同的人提交。

第二种形式是列表格式的电子表格，我希望将表格1中的信息自动复制/填写到表格2上。

我认为在以前版本的Excel中有一种简单的方法可以做到这一点，但我似乎无法在2010版本中执行此操作。

Answer 1

您应该在表单上创建/创建一个按钮，为您执行导出。

按钮后面会有一些VBA代码可以实现这一点。

Answer 2

您可以使用以下公式语法引用其他工作簿中的单元格：

=[Source.xlsx]Sheet1!$A$2

其中“Source”是工作簿的名称，“Sheet1”是工作表的名称。

Answer 3

这并不难。您需要做的是为要复制到的工作簿创建一个对象。获得该对象后，您可以根据需要进行引用。

示例：

Dim wb As Excel.Workbook
Set wb = Workbooks.Open("form2.xls")

然后你可以访问它来写这样的数据（“25”将被表格中的值替换）：

wb.Sheets("Sheet1").Cells(1, 1).Value = 25

只需在表单上创建一个打开form2的按钮，然后将相关信息复制到该按钮即可。如果您愿意，可以随后关闭form2：

Wb.Close savechanges:=True

我注意到你是新来的，所以欢迎！请记住接受最能帮助你的答案并提出任何其他有用的答案。