オブジェクトを関数またはサブプロシージャに渡す

Question

作業手順書を開いて閉じなくても、サブプロシージャに渡してExcelを実行しようとしています。

私はこの

Public Function CheckForMutipleUIC(ByVal ws As Excel.Workbook) As Boolean 
' Dim ExcelApp As New Excel.Application 
' DataFleet = CurrentProject.Path & "\Extract\Fleet.xls" 
' Set ws1 = ExcelApp.Workbooks.Open(DataFleet).Sheets(1) 
UICCheck = ws.Range("GD2").Value 
For Each Cell In ws.Range("GD2:GD10000").cells 
    If Cell.Text <> "" Then 
     If Cell.Value <> UICCheck Then 
      Err.Raise 513, "VICILauncher-DataValidation-CheckForMultipleUIC", "Multiple UICS Found in extract. Please Make sure the correct UIC is being Extracted" 
     End If 
    End If 
Next 
CheckForMutipleUIC = True 
Exit Function 

に機能が表示されます。この

Dim ExcelApp As New Excel.Application 
Dim ws As Object 

Public Function cert() 
Set ws = ExcelApp.Workbooks.Open(FileDir).Sheets(1) 
If CheckForMutipleUIC(ws) = True Then <---- this is where I call the Function 
.... 

を試してみました。しかし、私は適切にExcelオブジェクトを渡していませんよね。アプリケーションオブジェクトは、閉じて再オープンすることなく、どのようにsubに渡されますか？

Answer 1

へ

Public Function CheckForMutipleUIC(ByVal ws As Excel.Workbook) As Boolean

、以下のコードのコメント内の説明をコードしてみてください：あなたは ByRefのを使用する必要があり

Option Explicit 

Dim ExcelApp As New Excel.Application 
Dim wb As Workbook 
Dim ws As Worksheet 
Dim FileDir As String 

'======================================================================  
Public Function cert() '<-- NOT SURE why this is a Function and not a Sub ? 

' set the workbook object 
Set wb = ExcelApp.Workbooks.Open(FileDir) 
Set wb = Workbooks.Open(FileDir) ' <-- why not use this if this is inside Excel VBA ? 

' set the worksheet object 
Set ws = wb.Sheets(1) 
If CheckForMutipleUIC(ws) = True Then ' pass the worksheet object to the Function 
    '.... 

End If 

End Function 

'======================================================================  
Public Function CheckForMutipleUIC(ByVal ws As Worksheet) As Boolean 

Dim Cell As Range 
Dim UICCheck 

UICCheck = ws.Range("GD2").Value 
For Each Cell In ws.Range("GD2:GD10000").Cells 
' If Cell.Text <> "" Then 
    If Cell.Value2 <> "" Then ' <-- use Value 2 instead of Text 
     If Cell.Value <> UICCheck Then 
      Err.Raise 513, "VICILauncher-DataValidation-CheckForMultipleUIC", "Multiple UICS Found in extract. Please Make sure the correct UIC is being Extracted" 
     End If 
    End If 
Next 
CheckForMutipleUIC = True 

End Function 

Answer 2

エラーメッセージは表示されません。しかし、ちょうど投稿されたコードを見て、それはワークブックを期待しているCheckForMutipleUIC関数にワークシート 'ws'を渡すように見えます。以下を変更してみてください。

Public Function CheckForMutipleUIC(ByVal ws As Excel.Worksheet) As Boolean

Answer 3

（と正しい申告すでに述べたように）：

Public Function CheckForMutipleUIC(ByRef ws As Excel.Worksheet) As Boolean