使用文本框中的文本自动/合并许多Excel工作簿中的数据

使用文本框中的文本自动/合并许多Excel工作簿中的数据,excel,vba,automation,textbox,Excel,Vba,Automation,Textbox,我从前任继承了一组Excel文件。这些文件由一个表单组成,其中包含许多包含已由其他用户完成的部分的工作表。用户的输入由输入到单元格和文本框中的数据组成。有很多数据和带有文本框的不同表格,我想将它们总结成一种我可以轻松使用的格式 我不太熟悉Excel中的宏,但我编造了一个宏,可以在一个空的、打开的Excel文档上运行,它: 询问要打开的文件 获取“数据”表及其副本 并将其粘贴到打开的活动工作簿中 关闭我从中获取数据的文件 这涵盖了输入单元格的所有数据 我还想用文本框中的文本填充新工作簿中的一些单元

我从前任继承了一组Excel文件。这些文件由一个表单组成,其中包含许多包含已由其他用户完成的部分的工作表。用户的输入由输入到单元格和文本框中的数据组成。有很多数据和带有文本框的不同表格,我想将它们总结成一种我可以轻松使用的格式

我不太熟悉Excel中的宏,但我编造了一个宏,可以在一个空的、打开的Excel文档上运行,它:

  • 询问要打开的文件
  • 获取“数据”表及其副本 并将其粘贴到打开的活动工作簿中
  • 关闭我从中获取数据的文件
  • 这涵盖了输入单元格的所有数据

    我还想用文本框中的文本填充新工作簿中的一些单元格。最后,我在一张纸上总结了每个用户的所有数据。然而,我在如何从文本框中成功收集信息的在线解决方案方面遇到了问题

    我尝试了基于此线程建议的解决方案,但收到错误运行时错误“438”:对象不支持此属性或方法:

    理想情况下,我希望在文件关闭之前,在这行代码下面添加一些附加代码:

    wshT.Range("A1:L88").Value = wshS.Range("A1:L88").Value
    
    我想将wbkS.Worksheets(“第1节”)中的文本框值添加到指定的单元格中。但我的尝试没有成功,例如:

    wshT.Range("J3").Value = wshS1.TextBox1_1.Value
    
    我假设我在宏的工作方式上有一个逻辑缺陷,但我很难找到解决方案。如有任何建议,将不胜感激

    wshT.Range("J3").Value = wshS1.TextBox1_1.Value