ExcelのVBAでアクセスファイルをopen

質問

エクセル2002（win）のVBAについて質問します。

Workbooks.OpenDatabase Filename:= _
\file.mdb, CommandText:=Array( _
"table1"), CommandType:=xlCmdTable

というコマンドでaccessのファイルを開きたいと
思っています。しかしアクセスのファイルには
パスワードが設定されていて、
「データベースパスワード」というパスワード
入力のダイアログが表示されます。

今は、事前にパスワードをクリップボードに
コピーしておき、CTRL+Vでペーストして、「OK」を
押しているのですが、このペースト＋OKの
作業を自動化することはできないでしょうか？

試しにVBA中の上記openコマンドの直後に
Application.SendKeys "^V"
を記入してみたのですが 動きませんでした。

以上よろしくお願いいたします。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

>今は、事前にパスワードをクリップボードにコピーしておき、CTRL+Vでペーストして、

ということは、バッファに入れればよいのだから、以下のようにして、一旦、パスワードをためておけば開くはずです。

　CreateObject("Wscript.Shell").SendKeys "password{Enter}"
　Workbooks.OpenDatabase ～

お礼

wendy02様
早速のアドバイスありがとうございました。
教えていただいた通りの記述で実行してみました
ところ、思ったとおりの動作をいたしました。
ありがとうございました。