Question

我希望执行以下操作：

目标工作表中的CommandButton打开一个源文件（用于选择哪一个的对话框）
在源文件中查找工作表（始终使用相同的名称 - ＆＃34; Performance＆＃34;）
复制一系列单元格（实际上是几个单独的范围 - 要添加）
确保目的地表（与源表中的单元格I2同名）存在
将值粘贴到目标工作表中的相同范围
关闭源文件

到目前为止，我有这个：

Private Sub CommandButton1_Click()

Dim SourceFile As String
Dim SourceBook As Workbook
Dim DestinationBook As Workbook
Dim desiredName As String

Set DestinationBook = ThisWorkbook

SourceFile = Application.GetOpenFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")

Set SourceBook = Workbooks.Open(SourceFile)

SourceBook.Sheets("Performance").Activate
desiredName = ActiveSheet.Range("I2")
Application.CutCopyMode = True
SourceBook.ActiveSheet.Range("E25:I64").Copy
DestinationBook.Activate

If WorksheetExists = False Then

        MsgBox "Couldn't find " & desiredName & " sheet within destination workbook"

    Call SourceBook.Close(False)

    Exit Sub

Else


Range("E25:I64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Application.CutCopyMode = False

Call SourceBook.Close(False)

End If

End Sub

Function WorksheetExists() As Boolean

Dim sh As Object

    For Each sh In DestinationBook.Worksheets
      If sh.Name = desiredName Then WorksheetExists = True: sh.Activate
      Exit For
    Next

End Function

我收到运行时错误＆＃39; 424＆＃39;：需要对象

有任何建议......？

提前致谢！

Answer 1

以下是对您最新代码的修改。请注意这些添加：1）“Option Explicit”确保您已正确声明所有变量，2）变量已分配给重要的工作簿，工作表和范围，3）所需的变量传递给WorkSheetExists函数。要使其工作，DestinationBook中应该有名为“Performance”和“testSheet”的工作表，I2的{{1}}中应该有“testSheet”。请记住，这只是“让你前进”的尝试，所以我希望你需要修改。

SourceBook

VBA从外部工作表导入数据 - 变量工作表名称

1 个答案: