Excel VBA質問箱 IV

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

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


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

【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
>
>ということとは違うのですか?

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