Excel VBA質問箱 IV

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

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


71079 / 76734 ←次へ | 前へ→

【10153】Re:ウインドウネームを取得できますか?
質問  EMU  - 04/1/9(金) 9:55 -

引用なし
パスワード
   ▼Seraphさんたびたびもうしわけありません。
>私も2000です。
>
>もしかしたら、OSレベルでのウィンドウ名でしょうか?
>その場合は、APIを使う方法しか思いつきません。
>#GetWindowText()とか、、、

私の不勉強のせいで、
「OSレベルでのウィンドウ名」というのがどういうものをさしているのか
わからないのですが、
名前を取りたいのは、ウィンドウズ上のツールバーに表示されている
フォルダー名やアプリケーション名に付随している名前です。
(たとえば、「新しいフォルダ」や「Book1」や「AAAA.TXT」といったものです)


>私のほうで試した手順はこうです。
>#前段のサンプルコードとは少し違いますが、、、
>#こんなんでどうでしょう? (^^;
>
>1,Book1、Book2 というWorkBookを新規作成し同時に開いた状態にする。
> (どちらがアクティブでもよい)
>
>2,Book1のシート上にフォームツールバーからボタンを配置します。
> この時マクロの登録ダイアログで「新規作成」をクリック
>
>3,標準モジュールで以下のようにコードを記述
>
>Sub ボタン1_Click()
>Dim i%
>  For i% = 1 To Windows.Count
>    Sheets("Sheet1").Cells(i%, 1) = Windows(i%).Caption
>  Next
>End Sub
>
>4,シート上のボタンをクリック
> セルに、
> Book1
> Book2
> と表示(されるはず)。
>
>5,ブックの保護やウィンドウを非表示にしても結果は同じでした。
>
上記の手順でおこなった結果、エクセル上のものは取れたのですが
やはり、フォルダー名などはとれませんでした。
私の質問の仕方がまずかったみたいです。
すいませんでした。
0 hits

【10136】ウインドウネームを取得できますか? EMU 04/1/8(木) 16:57 質問
【10138】Re:ウインドウネームを取得できますか? Seraph 04/1/8(木) 17:27 回答
【10141】Re:ウインドウネームを取得できますか? EMU 04/1/8(木) 18:32 質問
【10143】Re:ウインドウネームを取得できますか? Seraph 04/1/8(木) 20:21 回答
【10153】Re:ウインドウネームを取得できますか? EMU 04/1/9(金) 9:55 質問
【10172】Re:ウインドウネームを取得できますか? Seraph 04/1/9(金) 14:48 回答
【10180】Re:ウインドウネームを取得できますか? EMU 04/1/9(金) 17:17 質問
【10185】Re:ウインドウネームを取得できますか? Kein 04/1/9(金) 19:24 回答
【10193】Re:ウインドウネームを取得できますか? EMU 04/1/10(土) 17:46 質問
【10195】Re:ウインドウネームを取得できますか? kein 04/1/10(土) 21:19 回答
【10222】Re:ウインドウネームを取得できますか? EMU 04/1/13(火) 12:22 質問
【10223】Re:ウインドウネームを取得できますか? kein 04/1/13(火) 12:34 回答
【10224】Re:ウインドウネームを取得できますか? EMU 04/1/13(火) 13:45 お礼
【10186】Re:ウインドウネームを取得できますか? Seraph 04/1/9(金) 20:02 回答
【10194】Re:ウインドウネームを取得できますか? EMU 04/1/10(土) 18:35 お礼

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