Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3530 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61678】他ブックの起動 VBA初心者 09/5/27(水) 15:12 質問[未読]
【61679】Re:他ブックの起動 つん 09/5/27(水) 15:53 発言[未読]
【61682】Re:他ブックの起動 VBA初心者 09/5/27(水) 16:23 発言[未読]
【61685】Re:他ブックの起動 つん 09/5/27(水) 16:31 発言[未読]
【61687】Re:他ブックの起動 VBA初心者 09/5/27(水) 16:57 お礼[未読]
【61681】Re:他ブックの起動 ゆみこん 09/5/27(水) 16:18 発言[未読]
【61683】Re:他ブックの起動 VBA初心者 09/5/27(水) 16:27 発言[未読]
【61688】Re:他ブックの起動 VBA初心者 09/5/27(水) 17:00 お礼[未読]
【61684】Re:他ブックの起動 ワイルドキャッツ 09/5/27(水) 16:28 発言[未読]
【61686】Re:他ブックの起動 VBA初心者 09/5/27(水) 16:34 発言[未読]
【61689】Re:他ブックの起動 VBA初心者 09/5/27(水) 17:01 お礼[未読]
【61678】他ブックの起動
質問  VBA初心者  - 09/5/27(水) 15:12 -
引用なし
パスワード
   VBA初心者です。

質問なのですが、
現在開かれているブックに
　Workbooks.Open Filename:="***.xls"
と書き、その開いているブックを同時に閉じる処理を行うには
どう書いたらよいでしょうか？
　workbooks.Open Filename:="***.xls"
　thisworkbook.close
でも閉じませんし、前に書いても開きませんでした。
【61679】Re:他ブックの起動
発言  つん  - 09/5/27(水) 15:53 -
引用なし
パスワード
   こんにちは＾＾

>現在開かれているブックに
>　Workbooks.Open Filename:="***.xls"
>と書き、その開いているブックを同時に閉じる処理を行うには
>どう書いたらよいでしょうか？
>　workbooks.Open Filename:="***.xls"
>　thisworkbook.close
>でも閉じませんし、前に書いても開きませんでした。

workbooks.Open Filename:="***.xls"

フルパス指定じゃないからかなあ？
【61681】Re:他ブックの起動
発言  ゆみこん  - 09/5/27(水) 16:18 -
引用なし
パスワード
   開いたＢｏｏｋを閉じたいと言う事で良いのでしょうか？

　Dim wb As Workbook
　Set wb = Workbooks.Open("***.xls")
　'MsgBox wb.Name
　wb.Close
　Set wb = Nothing

と言う事かな？
それとも自Ｂｏｏｋと開いたＢｏｏｋを同時に閉じるのかな・・・？
【61682】Re:他ブックの起動
発言  VBA初心者  - 09/5/27(水) 16:23 -
引用なし
パスワード
   ＞つんさん
　返信ありがとうございます。
　説明不足でした。。。ファイルのオープンは出来るのですが、
　workbooks.Open Filename:="***.xls"
　thisworkbook.close
　と、開いた後にブックを閉じる行為が出来ないのです。
　ファイルを開いたことによって、開いた方の処理に移っているのではないかと
　思うのですが、、、
【61683】Re:他ブックの起動
発言  VBA初心者  - 09/5/27(水) 16:27 -
引用なし
パスワード
   ▼ゆみこん さん：
>開いたＢｏｏｋを閉じたいと言う事で良いのでしょうか？
>
>　Dim wb As Workbook
>　Set wb = Workbooks.Open("***.xls")
>　'MsgBox wb.Name
>　wb.Close
>　Set wb = Nothing
>
>と言う事かな？
>それとも自Ｂｏｏｋと開いたＢｏｏｋを同時に閉じるのかな・・・？

返信ありがとうございます。
新たにブックを開いて、処理を書いているブックを閉じたい
ということなのです。
【61684】Re:他ブックの起動
発言  ワイルドキャッツ  - 09/5/27(水) 16:28 -
引用なし
パスワード
   ▼VBA初心者 さん：
>　Workbooks.Open Filename:="***.xls"
この「***」は、ワイルドカードのつもりですか?
だったら、開く事も閉じる事もできません。
ワイルドカードを使いたいのなら、Dir関数なり
他の方法で、実ファイル名を取得してください。
また、パスが書いてないとルートフォルダしか見ません。
【61685】Re:他ブックの起動
発言  つん  - 09/5/27(水) 16:31 -
引用なし
パスワード
   ▼VBA初心者 さ

>　説明不足でした。。。ファイルのオープンは出来るのですが、
>　workbooks.Open Filename:="***.xls"
>　thisworkbook.close
>　と、開いた後にブックを閉じる行為が出来ないのです。
>　ファイルを開いたことによって、開いた方の処理に移っているのではないかと
>　思うのですが、、、

こちらで

Sub test()

　　 Workbooks.Open Filename:="C:\Documents and Settings\hogehoge\デスクトップ\omtest\Ａ.xls"
　　
　　ThisWorkbook.Close

End Sub

適当なファイルで試してみましたが、マクロを実行しているファイルを閉じることが出来ました。
エラーメッセージなどは出てませんか？
【61686】Re:他ブックの起動
発言  VBA初心者  - 09/5/27(水) 16:34 -
引用なし
パスワード
   ▼ワイルドキャッツ さん：
>▼VBA初心者 さん：
>>　Workbooks.Open Filename:="***.xls"
>この「***」は、ワイルドカードのつもりですか?
>だったら、開く事も閉じる事もできません。
>ワイルドカードを使いたいのなら、Dir関数なり
>他の方法で、実ファイル名を取得してください。
>また、パスが書いてないとルートフォルダしか見ません。

返信ありがとうございます。
ワイルドカードではないです。
普通のファイル名で入れていますが、フルパスを入れているので開くことは出来ます。解りづらくてすいません。。。
【61687】Re:他ブックの起動
お礼  VBA初心者  - 09/5/27(水) 16:57 -
引用なし
パスワード
   >こちらで
>
>Sub test()
>
>　　 Workbooks.Open Filename:="C:\Documents and Settings\hogehoge\デスクトップ\omtest\Ａ.xls"
>　　
>　　ThisWorkbook.Close
>
>End Sub
>
>適当なファイルで試してみましたが、マクロを実行しているファイルを閉じることが出来ました。
>エラーメッセージなどは出てませんか？

返信ありがとうございます。
思っていた処理が出来ました。ありがとうございました。
出来なかった原因は、開いたブックへ処理が移された際に、また他の処理に移っていたことが原因でした。開いたブックの処理を終了させ、
thisworkbook.close
の処理に移動することによって閉じることが出来ました。

私自身少し勘違いしていた部分もあり、勉強になりました。。。（汗
ありがとうございました＾＾
【61688】Re:他ブックの起動
お礼  VBA初心者  - 09/5/27(水) 17:00 -
引用なし
パスワード
   ＞ゆみこんさん
　解決しました！　わかりづらい点もありましたが、
　質問に答えて頂きありがとうございました。<(_ _)>
【61689】Re:他ブックの起動
お礼  VBA初心者  - 09/5/27(水) 17:01 -
引用なし
パスワード
   ＞ワイルドキャッツさん
　解決しました！
　質問に答えて頂きありがとうございました。<(_ _)>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3530 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free