VBA – 将信息从一个工作簿拉到另一个工作簿

我不是最大的VBA,并没有触及它在多年,所以我诉诸教程,所以我希望有人可以帮助!

从长远来看,我试图按以下顺序:

  • 通过一个button打开一个Excel文档的资源pipe理器窗口(完成!)
  • select一个Excel文档(希望长期select多个文档)
  • 从一张表格的某一行/列拉取信息到原来的Excel书籍

到目前为止,我search/切碎,并发现以下(感谢这个网站上的JMax)

Sub test() Dim wb As Workbook, wb2 As Workbook Dim ws As Worksheet Dim vFile As Variant 'Set source workbook Set wb = ActiveWorkbook 'Open the target workbook vFile = Application.GetOpenFilename("Excel-files,*.xls", _ 1, "Select One File To Open", , False) 'if the user didn't select a file, exit sub If TypeName(vFile) = "Boolean" Then Exit Sub Workbooks.Open vFile 'Set targetworkbook Set wb2 = ActiveWorkbook 'For instance, copy data from a range in the first workbook to another range in the other workbook wb2.Worksheets("Sheet1").Range("C3:D4").Value = wb.Worksheets("Sheet3").Range("A1:B2").Value End Sub 

对我来说,这看起来顺序,但是当它打开Excel文档它回来'下标超出范围'的消息。

我在想什么 单元格和命名似乎是正确的:(我。

谢谢,

戴夫

由于工作表集合中不存在工作表名称,所以正在抛出错误。

wb2.Worksheets( “工作表Sheet”)

工作表(“工作表Sheet 3”)


在这里输入图像说明