Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9035 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【29694】ドライブ文字の汎用性 nossori 05/10/11(火) 22:47 質問[未読]
【29695】Re:ドライブ文字の汎用性 [名前なし] 05/10/12(水) 0:25 発言[未読]
【29697】Re:ドライブ文字の汎用性 nossori 05/10/12(水) 6:57 お礼[未読]
【29694】ドライブ文字の汎用性
質問  nossori  - 05/10/11(火) 22:47 -
引用なし
パスワード
   こんばんは。

Moを使用しています。

会社で使用するパソコンにより、DドライブやEドライブを使う事になり、必要に応じて
時にはマクロのドライブ文字をDやEに変更をしています。

DにもEドライブにも適応させるコードはあるのでしょうか。

マクロの記述の一部ですが、このDを使わずに対応する方法･･･は無いものなのでしょうか。

Dim str As String
Const PFol As String = "D:\"
str = PFol & "BBB" & Format(dt, "e-m") & "月”

（フォルダーの中のファイルは下記の記述で対応できそうなのですが
ThisWorkbook.SaveAs Filename:ThisWorkbook.Path & "\AAA.xls"）

この類の方法で対応できる方法が有りましたら教えてください。
This Drive 文字･･･云々のような記述は無いのでしょうか？
【29695】Re:ドライブ文字の汎用性
発言  [名前なし]  - 05/10/12(水) 0:25 -
引用なし
パスワード
   ▼nossori さん：
>（フォルダーの中のファイルは下記の記述で対応できそうなのですが
>ThisWorkbook.SaveAs Filename:ThisWorkbook.Path & "\AAA.xls"）
>
>この類の方法で対応できる方法が有りましたら教えてください。
>This Drive 文字･･･云々のような記述は無いのでしょうか？

　　PFol = Left(ThisWorkbook.Path, 3)
　　MsgBox PFol

ということとは違うのですか？
【29697】Re:ドライブ文字の汎用性
お礼  nossori  - 05/10/12(水) 6:57 -
引用なし
パスワード
   ▼[名前なし] さん：

おはようございます。
早速ご返答ありがとうございます。
コードを入れ替え、マクロ実行しました。上手く行きました。
ありがとうございます。自宅と会社はUSBメモリーを
使っています。USBメモリーはドライブ文字を固定させていて、
このマクロの実行が上手く行きました。
会社での、MOを使ってテストします。

Left関数で文字列を返していると言う事ですね。
ありがとうございました。
>　　PFol = Left(ThisWorkbook.Path, 3)
>　　MsgBox PFol
>
>ということとは違うのですか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9035 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free