Excel VBA質問箱 IV

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

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


48092 / 76738 ←次へ | 前へ→

【33583】Re:開いているブック名を取得したい
回答  Blue  - 06/1/16(月) 11:01 -

引用なし
パスワード
   2つのBookしか開かないのであれば、

Dim wb As Workbook
Dim s As String

' 全ての開いているブックを調べて
' keisan.xlsでない1つ目のブック名を取得する
For Each wb In Application.Workbooks
  s = wb.Name
  If s <> "keisan.xls" Then
    Exit For
  End If
Next

MsgBox s

として、取得できそうです。

0 hits

【33580】開いているブック名を取得したい ch 06/1/16(月) 10:36 質問
【33583】Re:開いているブック名を取得したい Blue 06/1/16(月) 11:01 回答
【33709】Re:開いているブック名を取得したい ch 06/1/18(水) 17:48 質問
【33710】Re:開いているブック名を取得したい ぱっせんじゃー 06/1/18(水) 17:59 発言
【33712】Re:開いているブック名を取得したい Blue 06/1/18(水) 18:07 回答
【33714】Re:開いているブック名を取得したい ch 06/1/18(水) 18:18 お礼

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