Excel VBA質問箱 IV

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

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


3519 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   開いたBookを閉じたいと言う事で良いのでしょうか?

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

と言う事かな?
それとも自Bookと開いたBookを同時に閉じるのかな・・・?

【61682】Re:他ブックの起動
発言  VBA初心者  - 09/5/27(水) 16:23 -

引用なし
パスワード
   >つんさん
 返信ありがとうございます。
 説明不足でした。。。ファイルのオープンは出来るのですが、
 workbooks.Open Filename:="***.xls"
 thisworkbook.close
 と、開いた後にブックを閉じる行為が出来ないのです。
 ファイルを開いたことによって、開いた方の処理に移っているのではないかと
 思うのですが、、、

【61683】Re:他ブックの起動
発言  VBA初心者  - 09/5/27(水) 16:27 -

引用なし
パスワード
   ▼ゆみこん さん:
>開いたBookを閉じたいと言う事で良いのでしょうか?
>
> Dim wb As Workbook
> Set wb = Workbooks.Open("***.xls")
> 'MsgBox wb.Name
> wb.Close
> Set wb = Nothing
>
>と言う事かな?
>それとも自Bookと開いたBookを同時に閉じるのかな・・・?

返信ありがとうございます。
新たにブックを開いて、処理を書いているブックを閉じたい
ということなのです。

【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\A.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\A.xls"
>  
>  ThisWorkbook.Close
>
>End Sub
>
>適当なファイルで試してみましたが、マクロを実行しているファイルを閉じることが出来ました。
>エラーメッセージなどは出てませんか?

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

私自身少し勘違いしていた部分もあり、勉強になりました。。。(汗
ありがとうございました^^

【61688】Re:他ブックの起動
お礼  VBA初心者  - 09/5/27(水) 17:00 -

引用なし
パスワード
   >ゆみこんさん
 解決しました! わかりづらい点もありましたが、
 質問に答えて頂きありがとうございました。<(_ _)>

【61689】Re:他ブックの起動
お礼  VBA初心者  - 09/5/27(水) 17:01 -

引用なし
パスワード
   >ワイルドキャッツさん
 解決しました!
 質問に答えて頂きありがとうございました。<(_ _)>

3519 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free