vbaマクロの作成に関する問題

Question

別のブックを使用する1つのブックでマクロを作成すると問題が発生します。

これは私が使用していますコードです：

Private Sub CommandButton21_Click() 
Set wb1 = Workbooks.Open(" 
    http://europort/it_division/ITAC/Portal/Documentations/Proba 1.xlsx" 
         ) 
With wb1 
    FinalRow = .Worksheets("Sheet1") 
       .Cells(.Worksheets("Sheet1").Rows.Count, 1) 
       .End(xlUp).Row 
    For i = 1 To FinalRow 
    If TextBox21.Text = .Worksheets("Sheet1").Cells(i, 1).Value Then 
     MsgBox .Worksheets("Sheet1").Cells(i, 2).Text 
    Next i 
End With 
wb1.Close 
End Sub 

をそれが正常に動作していますが、それは別のワークブックを開き、私は[OK]ボタンをクリックした場合にのみ、それはそのワークブックを閉じます。私はこのワークブックを開こうとせず、結果を見るだけで、全体のExcelブックを見ることはしません。どうやってやるの？助けてください。

Answer 1

これは、あなたの質問に基づいて、あなたは後にしている何をすべき：

Private Sub CommandButton21_Click() 
Application.ScreenUpdating = False 
msg = "" 
Set wb1 = Workbooks.Open("http://europort/it_division/ITAC/Portal/Documentations/Proba 1.xlsx") 
With wb1 
    FinalRow = .Worksheets("Sheet1").Cells(.Worksheets("Sheet1").Rows.Count, 1).End(xlUp).Row 
    For i = 1 To FinalRow 
     If TextBox21.Text = .Worksheets("Sheet1").Cells(i, 1).Value Then 
     msg = msg & .Worksheets("Sheet1").Cells(i, 2).Text & vbCr 
    Next i 
End With 
wb1.Close 
Application.ScreenUpdating = True 
If msg <> "" Then MsgBox msg 
End Sub 

を全部を片付け、あなたがなどを宣言する必要がある必要がありますが、あなたのコードはこれも動作するはず動作するかどうか、それが今立っているよう。