エクセルでマクロ。他のパソコンではエラーになる。

Question

セル値からフォルダー名を取得して、ある場所にフォルダーを作成するというものです。
下記を私のPCでは問題なく動作するのですが、
別のPCからは「パスが見つかりません」とエラーになります。
デバッグは「MkDir mydir」を指しています。
すべてのPCから実行可能にするためにはどの様にすればよろしいのでしょうか？
ご教授願います。
win10、excel2013

Sub フォルダー作成()

Dim mydir As String
Dim i As Integer

For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
mydir = "C:\Users\user\Desktop	est" & Cells(i, 17).Value
If Dir(mydir, vbDirectory) = vbNullString Then MkDir mydir
Next i
MsgBox "完了しました"

End Sub

TH69 · Accepted Answer

ファイルやフォルダを扱うなら、FileSystemObjectが便利と思います。
作成したいフォルダのパスをmydirとして、それが存在しなければ作成します。
これでもだめでしょうか？

Sub test()
    Dim mydir As String, i As Long
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
        mydir = "C:/Google ドライブ/T/01_T/02_受注/" & Cells(i, 17).Value
        If FSO.FolderExists(mydir) = False Then
            FSO.CreateFolder mydir
        End If
    Next i
    MsgBox "完了しました"
    Set FSO = Nothing
End Sub

TH69 · Answer

実際に私のPCで同じフォルダ構成でやってみましたが、フォルダ作成は問題なしでした。

fumi23_o様のPCだけということなので、フォルダ名か何か、パスが間違っていないでしょうか？

WindFaller · Answer

こんばんは。

>すべてのPCから実行可能にするためにはどの様にすればよろしいのでしょうか？
こんなふうにしてみたらいかがでしょうか？
Shell(command prompt)からも取る方法はあったはずですが、
CreateObject("Wscript.Shell").SpecialFolders
この方法がメジャーだと思います。

'//
Sub フォルダー作成R()
Dim myDir As String
Dim i As Integer
myDir = CreateObject("Wscript.Shell").SpecialFolders(4) & "\Test"
If Dir(myDir, vbDirectory) = "" Then
MsgBox "Testフォルダーがありません。", vbCritical
Exit Sub
End If
For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
myDir = myDir & "\" & Cells(i, 17).Value
If Dir(myDir, vbDirectory) = "" Then
　MkDir myDir
End If
Next i
MsgBox "完了しました"
End Sub

TH69 · Answer

デスクトップだと、それぞれのPCのユーザー名はどうなるのかな？

ユーザー名に左右されないCドライブ直下などにフォルダを作って試してみては…？

外してたらごめんなさい。

neKo_deux · Answer

> 何故なんでしょうか？！

エラーの原因を探ってみては。

Sub フォルダー作成()

Dim mydir As String
　　Dim i As Integer

On Error Goto myErr
　　For i = 4 To Range("A" & Rows.Count).End(xlUp).Row
　　mydir = "C:\Users\user\Desktop	est" & Cells(i, 17).Value
　　If Dir(mydir, vbDirectory) = vbNullString Then MkDir mydir
　　Next i
　　MsgBox "完了しました"
　　Exit Sub

myErr:
　　MsgBox "エラー番号:" & Err.Number & vbCrLf & _
　　　　　　"エラーの種類:" & Err.Description, vbExclamation

End Sub

で、エラーが発生すると、エラーの番号、エラーの種類が取得できるハズなので、

MkDir 関数
https://msdn.microsoft.com/ja-jp/library/k1d22wfh(v=vs.90).aspx

エラー番号が70ならアクセス権が無いとか。
エラー番号が75ならディレクトリが既に存在してるって事で、Ifの条件判断を確認とか。

neKo_deux · Answer

MkDirは階層のあるフォルダを一気に作成できません。

> 別のPCからは「パスが見つかりません」とエラーになります。

"C:\Users\user\Desktop	est"
のフォルダを予め作っといてください。

あるいは、下記のサイトのような方法で逐次フォルダを作るとか。

MkDirで階層の深いフォルダーを作成する:エクセルマクロ・Excel VBAの使い方-VBA関数
http://www.relief.jp/docs/excel-vba-mkdir-folder-structure.html

エクセルでマクロ。他のパソコンではエラーになる。

ファイルやフォルダを扱うなら、FileSystemObjectが便利と思います。

実際に私のPCで同じフォルダ構成でやってみましたが、フォルダ作成は問題なしでした。

こんばんは。

デスクトップだと、それぞれのPCのユーザー名はどうなるのかな？

> 何故なんでしょうか？！

MkDirは階層のあるフォルダを一気に作成できません。

このQ&Aを見た人はこんなQ&Aも見ています

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

このQ&Aを見た人がよく見るQ&A

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

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