VBA 代码基于输入框搜索已关闭工作簿的匹配项并将整行拉到活动工作簿

Question

四处搜索并发现一些关于 VBA 导入已关闭工作簿的第一张工作表的线程，我正在尝试在已关闭工作簿的工作表中搜索已使用输入框键入的设置单词。一旦找到该值，就可以拉出整行并粘贴到第二个处于活动状态的工作簿中。

以下是我一直在努力的代码，任何帮助将不胜感激。

    Dim srcWorkbook As Workbook
    Dim destWorkbook As Workbook
    Dim srcWorksheet As Worksheet
    Dim destWorksheet As Worksheet
    Dim SearchRange As Range
    Dim destPath As String
    Dim destname As String
    Dim destsheet As String
    Set srcWorkbook = ActiveWorkbook
    Set srcWorksheet = ActiveSheet
    Dim vnt_Input As String

    vnt_Input = Application.InputBox("Please Enter Client Name", "Client Name")

    destPath = "C:\test\"
    destname = "Test2.xlsm"
    destsheet = "Sheet1"

    On Error Resume Next
    Set destWorkbook = Workbooks(destname)
    If Err.Number <> 0 Then
    Err.Clear
    Set wbTarget = Workbooks.Open(destPath & destname)
    CloseIt = True
    End If

    For Each c In Range("A2:W100").Cells

    If InStr(c, "vnt_Input") > 0 Then

    c.EntireRow.Copy
    destWorkbook.Activate
    destWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset     (1)     .EntireRow.Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,SkipBlanks:= _
    False, Transpose:=False
srcWorkbook.Activate

亲切的问候，

Answer 1

您需要进行一些更改。请参阅下面的完整代码。我将评论更改：

Dim srcWorkbook As Workbook
    Dim destWorkbook As Workbook
    Dim srcWorksheet As Worksheet
    Dim destWorksheet As Worksheet
    Dim SearchRange As Range
    Dim destPath As String
    Dim destname As String
    Dim destsheet As String
    Set srcWorkbook = ActiveWorkbook
    Set srcWorksheet = ActiveSheet
    Dim vnt_Input As String

    vnt_Input = Application.InputBox("Please Enter Client Name", "Client Name")

    destPath = "C:\test\"
    destname = "Quick Test.xlsm"
    destsheet = "Sheet1"

    On Error Resume Next
    Set destWorkbook = ThisWorkbook
    If Err.Number <> 0 Then
    Err.Clear
    Set wbTarget = Workbooks.Open(destPath & destname)
    CloseIt = True
    End If

    For Each c In wbTarget.Sheets("Companies").Range("A2:W100") 'No need for the .Cells here

       If InStr(c, vnt_Input) > 0 Then 'vnt_Input is a variable that holds a string, so you can't put quotes around it, or it will search the string for "vnt_Input"

          c.EntireRow.Copy
          destWorkbook.Sheets("Master").Range("A" & Rows.Count).End(xlUp).Offset(1,0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,SkipBlanks:= _
    False, Transpose:=False 'Please don't use Select and Activate. There is almost never a need for it.
       End if
    Next c