Microsoft VBScriptランタイムエラー

Question

私は自分のコードをVBScriptで書いています。下記のコードの特定の部分でエラーが発生しています。

[ActiveX Script Task] Error: User script threw an exception: Error Code: 0
Error Source= Microsoft VBScript runtime error
Error Description: Object required: 'REGroupSBUOps'

Error on Line 85

'Declaring and connection string statements 
strREGroupSBUOps ="sp_CPVarianceOpsReport6" 
Set REGroupSBUOps = oDBCon.Execute(strREGroupSBUOps) 

Dim arr() 
ReDim arr(6) 

Dim i  
arr(0) = "REGroupSBUOps" 
arr(1) = "DandBSBUOps" 
arr(2) = "Tristate/Central/EastSBUOps" 
arr(3) = "WestSBUOps" 
arr(4) = "EastSBUOps" 
arr(5) = "UKSBUOps" 
If Not (arr(i).EOF) Then ' <--error on this line 
    'followed by other statements 

Answer 1

ストアドプロシージャの実際の実行に伴って、サブにあなたForループ内のコードを置きます。ストアドプロシージャの呼び出しと名前を配列のパラメータとしてサブに渡します。 arr(i)のすべてのオカレンスを、ストアード・プロシージャー呼び出し（以下の例ではrs）によって戻されたレコードを取る変数の名前に置き換えます。さらに最適化として

Sub ExportData(sp, name) 
    Set rs = oDBCon.Execute(sp) 

    If Not rs.EOF Then 
     sFileName1 = "\\CTSC00579895801\ime\MailReports\" & name & ".xls" 
     Set oFSOExcelFile = CreateObject("Scripting.FileSystemObject") 
     Set objExcel = CreateObject("Excel.Application") 
     objExcel.Visible = True 
     ... 
     objExcel.Quit 
     Set objExcel = Nothing 
    End If 
End Sub 

ExportData "sp_CPVarianceOpsReport 1" "Tristate_Central_EastSBUOps" 
ExportData "sp_CPVarianceOpsReport 2" "UKSBUOps" 
... 

あなたはグローバルシングルトンとしてExcelとFileSystemObjectのオブジェクトを作成し、だけではなく、何度も何度もそれらのインスタンスを作成し、破壊のサブ内のファイルを処理することもできます。