パスワード付のエクセルファイルをアクセスから開く方

質問

アクセスからエクセルのファイルを開きたいのですがうまくできません。

エクセルにはパスワードがかかっています。

なので

Dim xlApp As Object
Dim xlWbk As Object
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWbk = xlApp.Workbooks.Open("C:\2010.xlsx", , , , Password:="0000")

Set xlApp = Nothing
としたのですが、エクセルファイルが立ち上がりパスワード入力画面が表示されます。

, , , , Password:="0000"
が無視されているようです。

パスワード付のエクセルファイルをアクセスから開く方法をご教授ください。

回答No.2

NotFound404 · ベストアンサー

こちら（Office2010）では問題なく開けましたけどねぇ？
ただ、Windows7のCドライブ直下ではExcelが一時ファイルを置けないので読み取り専用になります。

Sub test()
Dim xlApp As Object
Dim xlWbk As Object
Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWbk = xlApp.workbooks.Open("c:\pwd0000.xlsx", , , Password:="0000")
Stop '確認用に停止
xlWbk.Close savechanges:=False '追加
xlApp.Quit '追加
Set xlApp = Nothing
End Sub

問題切り分けのために、
Windowsを再起動のあとで、
Excelを立ち上げて（新規ファイルで構いません）ExcelのVBEのイミディエイトウィンドウで
Workbooks.Open "C:\2010.xlsx", , , , Password:="0000"
と入力してEnterキーで開かれるか。
新規パスワード付き.xlsx ファイルを作成して試すとどうなるか。

お礼

ご回答ありがとうございます。

回答No.1

nanasi3de

ちょっと見た感じ＆不確かな記憶で申し訳ないですが

("C:\2010.xlsx", , , , Password:="0000"　の,（カンマ）が多すぎのような気がします

helpなどで構文を再度チェックすると解決するのでは？（カンマは2ないし3個だったような不確か記憶）

と愚考します。

お礼

ご回答ありがとうございます。