Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12036 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12151】ヘッダーにフォルダ名を入れたい みさっぴ 04/3/25(木) 11:59 質問
【12152】Re:ヘッダーにフォルダ名を入れたい IROC 04/3/25(木) 13:15 回答
【12206】Re:ヘッダーにフォルダ名を入れたい みさっぴ 04/3/26(金) 16:04 質問
【12208】Re:ヘッダーにフォルダ名を入れたい IROC 04/3/26(金) 16:28 回答
【12543】Re:ヘッダーにフォルダ名を入れたい みさっぴ 04/4/7(水) 11:06 質問
【12577】Re:ヘッダーにフォルダ名を入れたい よろずや 04/4/7(水) 23:50 回答
【12743】Re:ヘッダーにフォルダ名を入れたい みさっぴ 04/4/13(火) 18:00 お礼
【12151】ヘッダーにフォルダ名を入れたい
質問  みさっぴ  - 04/3/25(木) 11:59 -
引用なし
パスワード
   こんにちは。
またお世話になります。

フォルダの中にファイルが入っています。
そのファイルを加工してプリントアウトするマクロを作っています。
プリントアウトする際に、ヘッダーにフォルダ名を入れたいのですが、
どうすればいいのでしょうか。
「パス」だと長すぎるのです。
【12152】Re:ヘッダーにフォルダ名を入れたい
回答  IROC  - 04/3/25(木) 13:15 -
引用なし
パスワード
   ヘッダーの設定であれば、マクロの自動記録で出来ると思います。

フォルダの取得であれば、パスを取得して、
InStrRev 関数で \ の位置を調べて

Dim myStr As String
　　myStr = ThisWorkbook.Path
　　
　　Debug.Print Right(myStr, Len(myStr) - InStrRev(myStr, "\"))
【12206】Re:ヘッダーにフォルダ名を入れたい
質問  みさっぴ  - 04/3/26(金) 16:04 -
引用なし
パスワード
   ▼IROC さん：
早速のお返事ありがとうございます。
マクロの記録でヘッダーを設定した後、教えていただいたものを使ってみました。
しかし、やっぱりパス名が全部入ってしまいます。
プログラミングには全く詳しくないため、最後の１行の意味を教えていただけませんか？

> Dim myStr As String
>　　myStr = ThisWorkbook.Path
>　　
>　　Debug.Print Right(myStr, Len(myStr) - InStrRev(myStr, "\"))
【12208】Re:ヘッダーにフォルダ名を入れたい
回答  IROC  - 04/3/26(金) 16:28 -
引用なし
パスワード
   >プログラミングには全く詳しくないため、最後の１行の意味を教えていただけません

>>　　Debug.Print Right(myStr, Len(myStr) - InStrRev(myStr, "\"))

Debug.Print は VBE　のイミディエイトウィンドウに
結果を出力する構文です。

ヘッダーの文字 = Right(myStr, Len(myStr) - InStrRev(myStr, "\"))

のようにしてみて下さい。
【12543】Re:ヘッダーにフォルダ名を入れたい
質問  みさっぴ  - 04/4/7(水) 11:06 -
引用なし
パスワード
   ▼IROC さん：
こんにちは。お世話になっております。
IROCさんに教えていただいたのを試してみたのですが、
ちょっと変なことが起きてしまいました。

マクロの記録を使ってパスをヘッダーに設定すると、
ファイルが入っているフォルダ名が含まれるパスが出てきます。

しかし、ThisWorkbook.Pass　で設定すると、
C:\Documents and Settings\ユーザー名\Application Data\Microsoft\Excell\XLSTART
というパスが出てきてしまいます。

マクロの記録で設定すると、&Zという特殊なものでパスが設定されるので、
これに手を入れることは無理そうです。
同じパスでもなぜ違うものが出てくるのでしょう？？
もし、お気づきの点がございましたら、教えてください。
【12577】Re:ヘッダーにフォルダ名を入れたい
回答  よろずや  - 04/4/7(水) 23:50 -
引用なし
パスワード
   ▼みさっぴ さん：
>▼IROC さん：
>こんにちは。お世話になっております。
>IROCさんに教えていただいたのを試してみたのですが、
>ちょっと変なことが起きてしまいました。
>
>マクロの記録を使ってパスをヘッダーに設定すると、
>ファイルが入っているフォルダ名が含まれるパスが出てきます。
>
>しかし、ThisWorkbook.Pass　で設定すると、
>C:\Documents and Settings\ユーザー名\Application Data\Microsoft\Excell\XLSTART
>というパスが出てきてしまいます。
>
>マクロの記録で設定すると、&Zという特殊なものでパスが設定されるので、
>これに手を入れることは無理そうです。
>同じパスでもなぜ違うものが出てくるのでしょう？？
>もし、お気づきの点がございましたら、教えてください。

個人用マクロブック内に書いてますね。
そのことを先に書かないと、回答者にはわかりません。
ThisWorkbook　というのは、マクロが書いてあるブックのことです。
代わりに、ActiveWorkbook としましょう。
【12743】Re:ヘッダーにフォルダ名を入れたい
お礼  みさっぴ  - 04/4/13(火) 18:00 -
引用なし
パスワード
   ▼よろずや さん：

こんにちは。お礼が遅くなってすみません。
質問のしかたもまずかったみたいで、申し訳ありません。
さっそく試してみたいと思います。
皆様、色々ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12036 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free