マクロでoracleセットアップ後、エラー発生

質問

win10　
office2016
oracle12c

りースパソコンや新規パソコンでのoracleソフト更新用に、下記の様なマクロファイル(setting.xlsm)を作成し、oracleソフトやその他アプリソフトインストールの簡略化を図ろうとしています。

１．共有ドライブからORACLEソフトをc:\client32フォルダへコピー
２．oracleのsetup.exe起動
３．tnsnames.oraファイルを所定のフォルダへ登録
４．パソコンのハード管理番号をoracleへ登録
５．その他のアプリソフトインストール

上記を順番に実行していくと、４の内容実施時にエラー（OraOLEDBpus12.dll:指定されたモジュールが見つかりません）が発生してしまいます。
原因が、２の内容らしく、何かのコマンドを実行したまま開放されていないみたいな状況になっています。
上記の判断をした理由は下記の結果からです。

VBAでなく、手動で１から３の内容を実施すると４は実行可能。
１と３を手動、２をvbaで実施すると、４の実行でエラーになる。
４の実行でエラーになった後、setting.xlsmのファイルを閉じて、再度開きなおして４を実行すると動作可能。

２のマクロの内容は
Dim wdApp As Variant
Set wdApp = CreateObject("Wscript.Shell")
With wdApp
.Run "C:\client32\setup.exe", 5
End With
Set wdApp = Nothing

４のマクロは参考までに下記
Sub PC_save()

'ハード管理番号を登録

Application.ScreenUpdating = False

Sheets("hardnumber").Select

On Error GoTo ERR_HANDLER

'ADO用のオブジェクト変数の宣言
Dim cn As New ADODB.Connection 'コネクション
Dim rs As New ADODB.Recordset 'レコードセット
Dim rownum As Long
Dim colnum As Integer

'ADOコネクションの生成

cn.Open "Provider=OraOLEDB.Oracle;Data Source= source ;User ID=source;Password=pass;", "source", "pass"

'ADOレコードセットの生成（全データを返すレコードセットの生成）

rs.Open "select * from hardnumber ", cn, adOpenDynamic, adLockOptimistic, adCmdText

'データの挿入
'固定で2行目から100行目までのデータを転送

For rownum = 2 To 100
If ActiveSheet.Cells(rownum, 1) = "" Then
Exit For
End If
rs.AddNew
For colnum = 0 To rs.Fields.Count - 1
Select Case rs(colnum).Type
Case 10 'varchar
rs(colnum).Value = ActiveSheet.Cells(rownum, colnum + 1)
Case 8 'date
rs(colnum).Value = CDate(ActiveSheet.Cells(rownum, colnum + 1))
Case Else 'その他
rs(colnum).Value = ActiveSheet.Cells(rownum, colnum + 1)
End Select
Next
rs.Update
Next
' 'オブジェクトのクローズ
rs.Close
cn.Close

'
Sheets("MENU").Select

Worksheets("hardnumber").Visible = False

QUIT_OPER:
'オブジェクト変数用に確保したメモリの開放
Set rs = Nothing
Set OraDatabase = Nothing
Set OraSession = Nothing

Exit Sub

ERR_HANDLER: 'エラー処理
'エラー番号とエラー内容の表示
MsgBox Err.Number & ")" & Err.Description
Err.Clear
GoTo QUIT_OPER

Application.ScreenUpdating = True

End Sub

何か、回避方法あれば教えていただきたく。

回答No.1

oboroxx

試したわけではないですが、Oracleのインストールには時間がかかります。
それが終わらないうちに4番目が走ってエラーになっているとかはないでしょうか？

お礼

回答ありがとうございます。
４番目の実行は手動で実施します。
oracleインストール後１分くらい経過しても同じ状況なので、時間での問題ではない模様です。