エクセル ＶＢＡ パスの記述方法を教えてください。

質問

Sub フォルダ作成()
Dim UserName As String
UserName = Environ("USERNAME")
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算"
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\売掛金元帳"
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\買掛金元帳"
MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\管理表"
End Sub

上記のようなマクロを記述してありますが、
Ｃ：ドライブ以外（Ｄ：ドライブやＺ：ドライブ）で使用する場合が発生しましたので、
どのドライブでも使用出切る記述方法があれば御教示お願い致します。

回答No.5

Wendy02 · ベストアンサー

こんにちは。

少し、見直してみました。

今回は、このようなマクロは経験はありません。私は、決算期のフォルダは年に一度しかないので、マクロでは作りません。手動で行います。他人に作ってもらうならいいけれども、ある程度エラーを出さないマクロにするには、面倒で手数が多いかもしれません。

一応、年度決算ですから、現在の年の数でフォルダ名にします。
このようにしてあります。
Format$(DateSerial(Year(Date), M, 1), "yyyy年mm") & "決算"
'-------------------------------------------

''Option Explicit

Sub MacroTest1()
　　Dim UserName As String
　　Dim myDest As String
　　Dim myDrv As Variant
　　Dim myFolder As String
　　Dim myFolder2 As String
　　Dim objFS As Object
　　Dim objDrv As Object
　　Dim flg As Boolean
　　Const M As Integer = "7" '決算月

　　flg = False

　　UserName = VBA.Environ("USERNAME")
　　myDest = "C:\Documents and Settings\" & UserName & "\My Documents\"
　　myFolder = "販売管理"

　　myDrv = Application.InputBox("ドライブ名を入れてください。" & vbCrLf & "99を入れると自フォルダになります。", "ファルダ作成", Type:=2)

　　If VarType(myDrv) = vbBoolean Or myDrv = "" Then Exit Sub
　　Set objFS = CreateObject("Scripting.FileSystemObject")
　　If Not myDrv Like "99" And InStr(1, Left(Application.Path, 3), myDrv, 1) = 0 Then

　　　　If InStr(myDrv, ":") = 0 Then myDrv = myDrv & ":"
　　　　If InStr(myDrv, "\") > 0 Then myDrv = Replace(myDrv, "\", "")

　　　　If objFS.DriveExists(myDrv) = False Then
　　　　　　MsgBox myDrv & " :ドライブがありません。"
　　　　　　Exit Sub
　　　　Else
　　　　　　Set objDrv = objFS.GetDrive(myDrv)
　　　　　　If objDrv.IsReady = False Then
　　　　　　　　MsgBox myDrv & "ドライブが可能ではありません。"
　　　　　　　　Exit Sub
　　　　　　End If
　　　　　　If objDrv.freespace < 1000 Then
　　　　　　　 MsgBox myDrv & "ドライブが書き込み可能ではありません。"
　　　　　　　 Exit Sub
　　　　　　End If
　　　　　　ChDrive myDrv
　　　　End If
　　Else
　　　　flg = True
　　End If

　　If flg Then
　　　　If objFS.FolderExists(myDest & myFolder & "\") = False Then
　　　　　　MkDir myDest & myFolder
　　　　End If
　　Else
　　　　myDest = myDrv & "\"
　　　　If InStr(1, myDest, "Z", 1) Then 'Zの場合
　　　　　　myDest = myDest & "\5TM\"
　　　　　　If objFS.FolderExists(myDest & "\") = False Then
　　　　　　　　MkDir myDest
　　　　　　End If
　　　　End If
　　　　If objFS.FolderExists(myDest & "\" & myFolder & "\") = False Then
　　　　　　MkDir myDest & "\" & myFolder
　　　　End If
　　End If

If objFS.FolderExists(myDest & myFolder & Format$(DateSerial(Year(Date), 1, 1), "yyyy年mm") & "決算") Then
　　MsgBox myDest & myFolder & Format$(DateSerial(Year(Date), M, 1), "yyyy年mm") & "決算" & vbCrLf & "は既に存在するかと思われます。", vbInformation
　　Exit Sub
Else
　　'既に決算フォルダがある場合は、無視する
　　On Error Resume Next
　　MkDir myDest & myFolder & "\" & Format$(DateSerial(Year(Date), M, 1), "yyyy年mm") & "決算" & "\"
　　On Error GoTo 0
　　MkDir myDest & myFolder & "\" & Format$(DateSerial(Year(Date), M, 1), "yyyy年mm") & "決算" & "\売掛金元帳"
　　MkDir myDest & myFolder & "\" & Format$(DateSerial(Year(Date), M, 1), "yyyy年mm") & "決算" & "\買掛金元帳"
　　MkDir myDest & myFolder & "\" & Format$(DateSerial(Year(Date), M, 1), "yyyy年mm") & "決算" & "\管理表"
End If
'以下を置かないと、ドライブに、ApplicationのCurDrive が残ることがある。
ChDrive Left(Application.Path, 3)
Set objFS = Nothing
End Sub

補足

Wendy02様
ご無沙汰いたしております。

久方ぶりの質問をさせていただきました。
お目に留めていただき、ありがとうございます。

＞私は、まだ書いています。
ご指導いただけることは、私にとっては大変ありがたい事です。
その他の大勢の方々もそう思っていらしゃることと思います。
どうか、今後もご指導いただけますようお願い申し上げます。

●　私の質問の要領が悪く、枝葉の質問から入ってしまったようで申し訳ございません。
再質問のようになってしまい申し訳ございませんが、宜しくお願い申し上げます。
(1)My Documentsに\販売管理　を保存して、ＶＢＡで絶対パス（"C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算"）　で記述した場合、Ｃドライブでは思い通り作業が出来ます。

(2)　そのまま、Ｃ：ドライブ以外（例えばＤ：ドライブやＺ：ドライブ）に保存し、作業しますと、エラーが発生します。

(3)　ＶＢＡの中で、絶対パスを多用しておりますので、修正が大変な作業になります。

(4)　どのようなドライブに\販売管理を保存しても、エラーが発生しないように、絶対パス（"C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算"）　で記述した部分を、記述する方法があるのでしょうか？
もし、有るならば御教示下さい。

●　「フォルダ名の記述方法について御教示ください。」と質問（2008/11/30 質問番号：4518725）いたしましたら、
下記のようなご回答、ご指導（回答日時：08/12/04 　回答番号：No.4）をいただきました。

>どのパソコンでも使用できるような記述方法があるのでしょうか。

それは、こんな方法です。

Dim myFolder As String
Dim UserName As String
UserName = Environ("USERNAME")
myFolder = "C:\Documents and Settings\" & UserName & "\My Documents\￥販売管理\2009年11月決算\売掛金元帳\"

>Environ("USERNAME")
これは、単に環境変数を読んでいるだけです。
コマンド・プロンプトで、>Set とすれば、出てきます。

●　この時の　("USERNAME")　のように、どのようなケースでも対処出来る記述方法があるのかを、ご教示いただきたいのです。

☆　質問者や回答者も自力で答えを見つけようとする人たちが、減ってきた・・・。☆

お叱りを受けるかもしれませんが、宜しくお願い申し上げます。

回答No.1

cistronezk

＞Ｃ：ドライブ以外（Ｄ：ドライブやＺ：ドライブ）で使用する場合が発生しましたので、

よくわらないのですが、
MkDir "D:\Documents and Settings\" & UserName & ・・・
MkDir "Z:\Documents and Settings\" & UserName & ・・・
ということ？それともD:\、Z:\内のどこかのフォルダということですか？

ちなみに、
"C:\Documents and Settings\" & UserName & "\My Documents"
は、

Dim shl
Set shl = CreateObject("WScript.Shell")
WScript.Echo shl.SpecialFolders("MyDocuments")

とう方法でも取得可能です。

補足

cistronezk様
早速の御教示ありがとうございます。

申し訳ございません下記ご指摘の場合です。
＞それともD:\、Z:\内のどこかのフォルダということですか？

具体的に表示しますと
Ｚ：ドライブの場合
Z:\5TM\販売管理\0000年00月決算

Ｄ：ドライブの場合
Ｄ:\販売管理\0000年00月決算

上記のように階層が一定していません。
この様な表現でご理解いただけますでしょうか。
宜しくお願い申し上げます。

＞Dim shl
Set shl = CreateObject("WScript.Shell")
WScript.Echo shl.SpecialFolders("MyDocuments")

\販売管理\0000年00月決算の部分の記述はどのようにすればよろしいのでしょうか

恐縮ですが、そのものずばりの記述を、併せて御教示お願い申し上げます。

oguno