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

Question

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

Wendy02 · Accepted Answer

こんにちは。

少し、見直してみました。

今回は、このようなマクロは経験はありません。私は、決算期のフォルダは年に一度しかないので、マクロでは作りません。手動で行います。他人に作ってもらうならいいけれども、ある程度エラーを出さないマクロにするには、面倒で手数が多いかもしれません。

一応、年度決算ですから、現在の年の数でフォルダ名にします。
このようにしてあります。
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 · Answer

こんにちは。

#5のコードは、
>「ドライブ名」を調べましたがわか無いので、数字やアルファベットをを入力したり、試行錯誤がしましたが何を入力すれば良いのか判りませんでした。

ドライブ名というのは、A,C,Z, などの、「C:\.....」のC の部分です。

コードの内容的には、#3さんの考え方を発展したものです。A,C,Z などのドライブ名を入れた後に、それが存在し、なおかつ使える状態かチェックしなければなりません。

でも、実用化するには、その先の部分も必要だと思います。その組み合わせは、それほど難しくはありませんが、あまり、最初の部分でつまずいてしまうと、その先は、難しいかもしれません。

cistronezk · Answer

MsgBox CreateObject("WScript.Shell").SpecialFolders("MyDocuments") 
として、ご希望のパスが表示されないのでしょうか？もしそうなら、不思議な環境に思いますが。

まあ、環境変数で「マイドキュメント」を拾うなら
Environ("HomeDrive") & "\ & Environ("Path") & "\My Documents"
とでもなるのでしょうか。「SystemDrive」とは別だと思います。

いずれにしても、いきなり正解を教えてもらう（鵜呑みにする）より、実際にご自分でいろいろ試された方がいいでしょう。
天才でもない限り、試行錯誤を繰り替えて壁にぶつかりながなら前進した方が身に付きますから。

Wendy02 · Answer

こんにちは。

最初に、
>☆　質問者や回答者も自力で答えを見つけようとする人たちが、減ってきた・・・。☆

Google 検索すると、真っ先に、ここのサイトがヒットしますが、その割りに、質問者側が質問だけで、そのままになってしまうことが多いです。

さて、#9様と反応は違いますが、#5の補足の内容は良く分からないです。
何か、誤解されているような気がしています。一度、それぞれの方のコードをチェックしていただくしかないと思います。一応、こちらのコードも完成形になっていますから、そのまま動かしていただければよいはずです。

私のコードが、どのドライブでも、物理的に存在するドライブなら可能なはずで作りましたが、それで、こちらのコードでエラーが出ているというなら、その箇所を示してもらう必要がありますが、書いたコードの全面的なダメ出しされるとなるとさっぱり分かりません。

定数を登録したとして、現実に、そういうパスが見当たらなければ、エラーが出て意味がありませんから、フォルダを作成する前に、事前にチェックしていく必要があって、#5のコードを書いたわけです。

>●　この時の　("USERNAME")　のように、どのようなケースでも対処出来る記述方法があるのかを、ご教示いただきたいのです。

具体的に、環境変数から取り出すような方法はないと思います。そのために予め環境変数を登録するというような、バッチプログラムのような古い書き方をする必要性もありません。私は、VBAが分からない方でも見ただけで分かるようなユーザー本意のコードは書きません。

今回の場合は、「どのドライブ」という条件では、必ず、その前に、ドライブの存在、次に、フォルダの存在のチェックをしてから、新たなフォルダを作る方法をとりました。

#9様の
>「C:\・・・」とハードコードするのはちょっと危険な方法です。

危険ではなく、単にVBA上で、エラーが発生するだけだと思います。
単に、Evniron("SystemDrive")　で、システムドライブを取ればよいだけだと思いますが、そこまでは、こちらは考えてはいません。「どのようなドライブにでも」であっても、「どのPCにでも」とは書いていません。

これを組み込みで使っていくので、おそらくは、サブルーチン型などにするのか、いろいろと手を加えなくてはなりませんが、現在の問題が解決しない限りは、二の矢は継げません。

cistronezk · Answer

＞4)　どのようなドライブに\販売管理を保存しても、エラーが発生しないように、絶対パス（"C: \Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算"）　で記述した部分を、記述する方法があるのでしょうか？

どうもお互いに意思疎通がうまくいなないようですね。おっしゃる意味がピンときません。もしかしたら、以下の作業でご希望に叶うでしょうか？

（１）Publicのモジュール変数を宣言します
例）
Public RootFolder As String

（２）マクロの起動時に、設定値シートから「販売管理パス」値を取得し、RootFolderに設定します。
rootFolder = WorkSheets(＜アプリ設定値専用シート＞).Range(＜販売管理のパスを記述したセル＞).Value & "\販売管理\0000年00月決算"

以上を既存のマクロに追加します。

（３）VBEにおいて置換をします。
検索する文字列："C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算
検索後の文字列：RootFolder & "\販売管理\0000年00月決算" & "
対象：カレントプロジェクト
として「すべて置換」を実行すれば、「 "C:\Documents and Settings\" &　・・・」の呪縛から開放されると思いますが、如何でしょう？


ちなみに、「マイドキュメント」への保存が圧倒的に多いのでしたら、セルに何も記述されていない場合は「マイドキュメント」をデフォルトにします。つまり（２）を以下のようにします。
If WorkSheets(＜アプリ設定値専用シート＞).Range(＜販売管理のパスを記述したセル＞).Value = "" Then
rootFolder = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
Else
rootFolder = WorkSheets(＜アプリ設定値専用シート＞).Range(＜販売管理のパスを記述したセル＞).Value & "\販売管理\0000年00月決算"
End If

＃「"C:\Documents and Settings\" & UserName & "\My Documents"」は、「マイドキュメント」のパスです。これは、システムで決められいる特別なフォルダです。上記の方法でそのパスを取得できます。「マイドキュメント」は、Dドライブなどにも設定可能なので、「C:\・・・」とハードコードするのはちょっと危険な方法です。CreateObject("WScript.Shell").SpecialFolders("MyDocuments")などの方法で取得した方が安全です。

rivoisu · Answer

＞まだ、テストをさせていただいておりませんが、御指導いただきましたＶＢＡは、作成した、「\0000年00月決算」の自動保存と理解してよろしいでしょうか。

私が示したVBAの上部を実行すると
1.通常の｛ファイルを開く」みたいな窓が開いて
2　ユーザーがフォルダを選択し「開く」ボタンをクリックする
3変数fnameにユーザーが選んだフォルダへのパスを示す 文字列 が代入される。

といいうものです。
通常のフォルダもネットワークじょうのドライブでも、マイドキュメントでも何でも選択できます。
例えばユーザーがマイドキュメントを選択すれば
"C:\Docyument and Settings\abc\My Document”
(XPでユーザーがabcのとき）
という文字列がfnameに代入されます。
この文字列を使ってMkdirなりを使ってフォルダを作るコードを書いたらどうでしょうかといってるのです・
上記のコードで取得できるのはユーザーが選んだフォルダへのパスを示す　”文字列”　だけであることをご理解ください

cistronezk · Answer

＞●「\" & UserName &」　のように、プログラム側で他の条件を見て判断 し、「販売管理」の次の階層に「\0000年00月決算」　を作成する事が可能な記述があるのでしょうか 

一番気がかりなのはこの点のようですので、参考URLを紹介します。
・存在しないパスのフォルダを一発で作成する
http://officetanaka.net/other/extra/tips07.htm


＞●「販売管理」を保存する場所は、ユーザが決めます。 　

こちらの聞き方が悪かったですね、私が確認したいことは、変更頻度でした。
頻繁に保存場所？が変更されるのなら、ダイアログを表示させた方がユーザにとって親切です。
一方、一旦保存場所が決まった後は変更することは滅多にないのでしたら、
シートのどこかに保存しおいて、通常はそこから読み込んだほうがいいと思います。
たまーにある変更時には、そのシートの値を変更するという管理方法です。

後者の場合の例です。


Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" ( _
                                                                  ByVal hwnd As Long, _
                                                                  ByVal pszPath As String, _
                                                                  ByVal psa As Long) As Long

Sub フォルダ作成()
    Dim rootFolder As String, newFolder As String
rootFolder=WorkSheets(＜アプリ設定値専用シート＞).Range(＜販売管理のあるフォルダ＞).Value & "\販売管理\0000年00月決算"
    
    On Error GoTo ERR_MKDIR
    newFolder = rootFolder & "\売掛金元帳"
    If Dir(newFolder) = "" Then SHCreateDirectoryEx 0&, newFolder, 0&
    newFolder = rootFolder & "\買掛金元帳"
    If Dir(newFolder) = "" Then SHCreateDirectoryEx 0&, newFolder, 0&
    newFolder = rootFolder & "\管理表"
    If Dir(newFolder) = "" Then SHCreateDirectoryEx 0&, newFolder, 0&
    Exit Sub
ERR_MKDIR:
    MsgBox newFolder & "の作成に失敗！", vbCritical
End Sub

＃Declare Function SHCreateDirectoryEx Lib "shell32" Alias ・・・は、標準モジュールの先頭に貼り付けてください。

rivoisu · Answer

作成するフォルダをどこに作るかはユーザーが選ぶということでしたら

fname=""
   With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = FLDname　'デフォルト
        .AllowMultiSelect = False
        If .Show = True Then
                fname = .SelectedItems(1)
        End If
    End With

これは組み込みダイヤログでexcelで通常の「ファイルを開く]
処理のようにファイルやフォルダを指定できます。
(上記のコードはフォルダ選択)

ユーザーがキャンセルしたらfname＝””となります
選択されていれば
Mkdir=fname & "\販売管理\0000年00月決算"
以下フォルダ作成できると思いますが。

cistronezk · Answer

まだ状況が飲み込めないのですが、

"C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算"
Z:\5TM\販売管理\0000年00月決算
Ｄ:\販売管理\0000年00月決算

「Sub フォルダ作成()」の中で、３ドライブ全部にフォルダを作成する必要があるのですか？
それとも３ドライブのうちのどれか一つだけですか？もしひとつだけなら、それはユーザが決めるのですか？あるいは、プログラム側で他の条件を見て判断しなといけのでしょうか？

rivoisu · Answer

dim tgtdrv as string
dim cdrv as string
dim ddrv as string
dim zdrv as string
dim res as string
cdrv=MkDir "C:\Documents and Settings\" & UserName & "\My Documents\販売管理\0000年00月決算\買掛金元帳"
ddrv="Ｄ:"
zdrv=Z:\5TM
res=inputbox("ドライブは？”
select case res
    case "c"
        tgtdrv=cdrv
    case "d"
        tgtdrv=ddrv
    case "z"
        tgedrv=zdrv
    case else
        msgbox("ドライブが違います”）
end select
Mkdir tgtdrv & "販売管理\0000年00月決算\管理表"

ではいかがですか？

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

こんにちは。

この回答への補足

こんにちは。

MsgBox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

こんにちは。

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

＞まだ、テストをさせていただいておりませんが、御指導いただきましたＶＢＡは、作成した、「\0000年00月決算」の自動保存と理解してよろしいでしょうか。

＞●「\" & UserName &」 のように、プログラム側で他の条件を見て判断 し、「販売管理」の次の階層に「\0000年00月決算」 を作成する事が可能な記述があるのでしょうか

この回答への補足

作成するフォルダをどこに作るかはユーザーが選ぶということでしたら

この回答への補足

まだ状況が飲み込めないのですが、

この回答への補足

dim tgtdrv as string

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

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

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

＞●「\" & UserName &」　のように、プログラム側で他の条件を見て判断し、「販売管理」の次の階層に「\0000年00月決算」　を作成する事が可能な記述があるのでしょうか