CreateObject関数 引数にパスワード

質問

CreateObject関数を使ってエクセルを開く際に、
引数にパスワードを設定することは可能ですか？

新規Microsoft Excel ワークシート.xlsと言うファイルには、
読み足りパスワードとして0000と言うパスワードが設定されているのですが

Sub Sample()
Dim MyPath As String
Dim MyFile As String
Dim xlApp As Object
Dim xlBook As Object

MyPath = "C:\"
MyFile = "新規Microsoft Excel ワークシート.xls"

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(MyPath & MyFile)
xlApp.Visible = True

Set xlApp = Nothing
Set xlBook = Nothing
End Sub

このようなvbaコードで開く時に、
どうやってパスワードを設定すればいいでしょうか？

Set xlBook = xlApp.Workbooks.Open(MyPath & MyFile),"0000"
こうすると構文エラーになります。

Sub Sample02()
Dim MyPath As String
Dim MyFile As String
MyPath = "C:\"
MyFile = "新規Microsoft Excel ワークシート.xls"

Workbooks.Open Filename:=MyPath & MyFile, Password:="0000"
End Sub

これのCreateObjectバージョンが知りたいです。

回答No.1

keithin · ベストアンサー

何にぶら下がっていても、openの書き振りは一緒です。

Set xlBook = xlApp.Workbooks.Open(filename:=MyPath & MyFile, password:="0000")

お礼

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

回答No.2

WindFaller

質問が良く分からない部分がありますね。
CreateObjectをどこで使用するか、ということです。
まさか、Excel内ということはないと思います。

>これのCreateObjectバージョンが知りたいです。
関数にバージョンがあるのかしらね？？？
製造者側にはあるはずだとは思いますが、内部のバージョンなどは調べたことがないです。
例えば、SUM関数に、バージョンがあるかと言えば、あるでしょうけれども、Userには知らされていません。

>MyFile = "新規Microsoft Excel ワークシート.xls"
パスワード付きで保存した、ということでしょうか？

>CreateObject関数を使ってエクセルを開く
名前付き引数が、CreateObjectで出来るのでしょうか？

>Workbooks.Open Filename:=MyPath & MyFile, Password:="0000"
CreateObjectでは、名前付き引数が使えないような気がします。

以下は、Excel 2003では試していませんので、どうなるか分かりません。

'//
Sub Sample1()
　Dim MyPath As String
　Dim MyFile As String
　Dim xlApp As Object
　Dim xlBook As Object

　MyPath = "C:\"
　MyFile = "新規Microsoft Excel ワークシート.xls"

　Set xlApp = CreateObject("Excel.Application")
　Set xlBook = xlApp.Workbooks.Open(MyPath & MyFile, , , , "0000", "")
'"0000"の後はなくてもよいかも？
　xlApp.Visible = True
　Set xlApp = Nothing
　Set xlBook = Nothing
End Sub

お礼

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