ファイル名は取得できているはずなのですが。
エラー75「パス名が無効です」とエラーになり止まってしまうのですが、
ファイルはできているんです。
何がいけないんでしょうか?
'------------------------------------
Private Sub コマンド35_Click()
Set db = CurrentDb
Set rs = db.OpenRecordset("Q_03_管理票_YES")
Dim var1 As String
var1 = rs.[管理番号]
Dim var2 As String
var2 = rs.[関連作業依頼]
Dim NewFolderName1 As String
Dim FileName1 As String
NewFolderName1 = CurrentProject.Path & "\作業依頼対応\" & var1 & "\" & "回答分" & "\" & var2
FileName1 = Dir$(NewFolderName1, vbDirectory) 'ファイル名を得る
'---ファイルを作成
If (FileName1 = "") Then
'ない場合は、作成する。
Dim myFileSystem As New Scripting.FileSystemObject
myFileSystem.CreateFolder NewFolderName1
MkDir NewFolderName1
MsgBox "ファイル作成"
Else
'---ファイルが存在する場合
MsgBox "ファイルはあります"
End If
End Sub
No.1ベストアンサー
- 回答日時:
> 'ない場合は、作成する。
> Dim myFileSystem As New Scripting.FileSystemObject
> myFileSystem.CreateFolder NewFolderName1
>
> MkDir NewFolderName1
同じ場所に同じ名前のフォルダを2つ作ろうとしています。
そうですね。でも自分ではわからなかったです。よくわかっていなかったので勉強になりました。
助かりました。ありがとうございます。
また宜しくお願いします。
先にご回答いただいたのでこちらをベストアンサーにさせて頂きます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelでVBAを使用した際に、『パス名が無効です』とエラーになります。
Excel(エクセル)
-
「パス名が無効です」の発生原因
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
VB実行時エラー75:「パス名が無効です」について
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
7
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
8
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
9
【VBA】ファイルパスに半角スペースが入ると、VBAが動かない
Excel(エクセル)
-
10
MkDir関数
Visual Basic(VBA)
-
11
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
12
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
テキストファイルから最終行の抽出
Windows Me・NT・2000
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
17
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
18
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
19
《エクセルVBA》「他の人が該当ファイルを使用中の場合」の処理
Excel(エクセル)
-
20
エクセル if文で偽判定のとき、何も起こらないようにしたいのですが・・・
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダに格納されている...
-
PCに保存していた写真を見られ...
-
OpenFileDialogを使った後にも...
-
<a href="file:///フォルダ名/...
-
Excelで外部のファイルの場所を...
-
ExcelVBAでリンク先の対象のフ...
-
拡張子をつくる
-
同名フォルダを作成し、そのフ...
-
VBSでメール送信
-
ファイルの作成日時について
-
ExcelのVBProjectがExcelを開く...
-
MkDir パス名が無効です
-
50Mってどのくらいですか・・...
-
Mac Excel VBAについて
-
「~$ファイル名.doc」というフ...
-
インターネットエクスプローラ...
-
Outlookで添付ファイルの貼り付...
-
Excelファイルにリンク→シート...
-
HTMLのサイト検索について
-
秀丸のタグジャンプがうまくで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PCに保存していた写真を見られ...
-
同名フォルダを作成し、そのフ...
-
拡張子をつくる
-
Excelで外部のファイルの場所を...
-
Excelの関数について教えてくだ...
-
OpenFileDialogを使った後にも...
-
ExcelVBAでリンク先の対象のフ...
-
<a href="file:///フォルダ名/...
-
MkDir パス名が無効です
-
秀丸のタグジャンプがうまくで...
-
ファイルの作成日時について
-
EXCEL VBAのDir関数について
-
参照元Excelファイルをバックグ...
-
Outlookで添付ファイルの貼り付...
-
Mac Excel VBAについて
-
「~$ファイル名.doc」というフ...
-
VBSでメール送信
-
スマホでHTMLファイルを開いて...
-
ファイルとフォルダのセキュリ...
-
Excelファイルにリンク→シート...
おすすめ情報