@frswataru (本石渉)posted at 2021-11-19

実行時エラー 5 プロシージャの呼び出し、または引数が不正です

Q&A

Closed

解決したいこと

任意のExcelブックを開くコードを作成したところ下記のエラーが立ちます。
解決法をご教示お願いします。

発生している問題・エラー

実行時エラー 5 プロシージャの呼び出し、または引数が不正です

該当するソースコード

Dim OpenWb As String
Dim wb As Workbook
Dim objExcel

'エクセルオブジェクトを作成します
Set objExcel = CreateObject("Excel.Application")
'エクセル画面を表示します
objExcel.Visible = True

OpenWb = ThisWorkbook.Path & "\" & "メイン18.xlsx"


Set wb = objExcel.Workbooks.Open(OpenWb)
AppActivate wb.Name

0 likes

1Answer

@Yamazin posted at 2021-11-19

記載されているソースコードを参考に
自身の環境でExcelに設定して実行したところ
エラーも出ず動きました。

下記が、その時のコードです。

テストコード

Sub test()
  Dim OpenWb As String
  Dim wb As Workbook
  Dim objExcel

  'エクセルオブジェクトを作成します
  Set objExcel = CreateObject("Excel.Application")
  'エクセル画面を表示します
  objExcel.Visible = True

  OpenWb = ThisWorkbook.Path & "\" & "Book1.xlsx"

  Set wb = objExcel.Workbooks.Open(OpenWb)
  AppActivate wb.Name
End Sub

ただ、ThisWorkbookやActiveWorkbookはExcel上で動かさないと
エラーになると思いますので
Access等のVBAで実装されたのであれば、エラーになると思います。

1Like

Comments

@frswataru
Questioner
ありがとうございます。検証します。

Are you sure you want to delete the question?