Excelの起動

質問

1度に２つのExcelBookを起動させたいのですが、
（1方は計算対象として、もう１方は計算結果を書込み）

Set xlApp = CreateObject("Excel.Application")

Set xlBookS = xlApp.Workbooks.Open(Form1.Text1.Text)

xlApp.Worksheets("シート１").Activate

Set xlSheetS = xlBookS.Worksheets("シート１")

Set xlBookK = xlApp.Workbooks.Open(Form1.Text2.Text)

Workbooks.Open Form1.Text2.Text, Password:="パスワード "

Set xlSheetK = xlBookK.Worksheets("シート２")

としていますが、パスワードのところでエラーが発生
してしまいます。タイミングが悪いのでしょうか？それ
とも全体的に問題があるとか。。。＾＾；

よろしくお願いします。

回答No.2

noname#102878 · ベストアンサー

これってホントのソースを貼り付けてますか？
Text2 に書かれているブックを二重に開くんでしょうか・・・
にしては、2回目に開いているコードは Excel を参照設定しているような書き方だし・・・
名前付き引数って参照設定しないとエラーになりますよ。
きちんと順番どおりにカンマで送ってあげないと。

Dim xlApp
Dim xlBookS
Dim xlSheetS
Dim xlBookK
Dim xlSheetK

Set xlApp = CreateObject("Excel.Application")

Set xlBookS = xlApp.Workbooks.Open("D:\Book1.xls")
Set xlSheetS = xlBookS.Worksheets("シート1")
xlSheets.Select

Set xlBookK = xlApp.Workbooks.Open("D:\Book2.xls", , , , "hogehoge")
Set xlSheetK = xlBookK.Worksheets("シート2")
xlSheetK.Select

xlApp.Visible = True
MsgBox "OK"

'xlBookS.Close
'xlBookK.Close
'xlApp.Quit

Set xlSheetS = Nothing
Set xlBookS = Nothing
Set xlSheetK = Nothing
Set xlBookK = Nothing
Set xlApp = Nothing

なお、Book2.xls には読み取り専用のパスワードが掛かっています。（書き込みパスワードは設定していません）

お礼

ありがとうございました。
解決致しました。ご指摘頂いたように次回より
エラー内容も記述するよう気をつけたいと思います。

またよろしくお願い致します。

回答No.5

you111111

やっとつながったと思ったら・・・既に回答出ていましたね(^^;
忘れてください。

回答No.4

you111111

パスワードの設定のところに問題があります。

>Set xlBookK = xlApp.Workbooks.Open(Form1.Text2.Text)
>
>Workbooks.Open Form1.Text2.Text, Password:="パスワード "

ではなくて

Set Set xlBookK = xlApp.Workbooks.Open(Form1.Text2.Text,,,,"パスワード")

と、Openメソッドの第５引数のところで設定すればできますよ。

お礼

ありがとうございました。
解決しました。せっかく教えて頂いたのに
忘れはしませんよ。

またよろしくお願い致します。

回答No.3

noname#102878

＃２です。

「エラーが発生してしまいます。」って場合は、そのエラー内容も書かないとね。

回答No.1

Hageoyadi

2つを開いたままで、保存時にファイル→作業状態の保存で生成されるショートカットアイコンをダブルクリックすることで、お望みのことが出来るはずですが、VBやVBAでないとダメ？

補足

そーなんです。＾＾；

ＶＢでなければ。。。なんです。