excel - マクロを使用してxlsファイルを開くときに書き込み権限を取得する方法

Question

Sub test()
Dim objXL
Set objXL = CreateObject("Excel.Application")
Dim FileName As Variant
Dim UpdateLinks As Variant
Dim ReadOnly As Variant
With objXL
    .Workbooks.Open(FileName:= "test.xls",UpdateLinks:=0,ReadOnly:=False)
    .Visible = True
End With
Set objXL = Nothing
End Sub

マクロで Excel ファイルを開くために使用したコードを次に示しますが、8 行目の Workbooks.Open() 関数で構文エラーが報告されました。試してみましたが、どこが間違っているのかわかりませんでした。Workbooks.Open() 関数の詳細については、http://msdn.microsoft.com/en-us/library/office/ff194819(v=office.15) .aspxを参照してください。

ご清聴ありがとうございました！

Answer 1

メソッド呼び出しでは必要ありません()(結果を代入する場合を除きます)。使用する

.Workbooks.Open(FileName:= "test.xls",UpdateLinks:=0,ReadOnly:=False)

とはいえ、なぜアプリケーション オブジェクトを作成しているのですか? これがExcelでコーディングされている場合、これは機能します

Dim wb As Workbook
Set wb = Workbooks.Open(FileName:="test.xls", UpdateLinks:=0, ReadOnly:=False)

あるいは単に

Workbooks.Open FileName:="test.xls", UpdateLinks:=0, ReadOnly:=False

ただし、ファイルへのフル パスを指定することをお勧めします。

Answer 2

.Workbooks.Open FileName:="test.xls", UpdateLinks:=0, ReadOnly:=False