vbaでサーバー上に年月の名称のフォルダーがなかったら、作成しその中にエクセルのファイルを保存するものを作成したかったのですが
Sub test()
Dim A,B,C As String
A = Thisworkbook.Path & Format(Now(),”yyyy/mm”)
If (C, vbDirectory) = “” Then
MkDir A
End If
If CDate("6:30") < Time And Time < CDate("16:30") Then
B = Format(Now(), "yyyymmdd") & “_1.xlsm”
Else
B = Format(Now(), "yyyymmdd") & “_2.xlsm”
End If
C = ThisWorkbook.Path & "\" & A & “\” & B
ThisWorkbook.SaveAs FileName:=C
ActiveWorkbook.PrintOut
End Sub
これで実行すると、MkDir Aのところでパスが見つかりませんとなります
ThisWorkbook.Pathのところを”¥¥サーバー名¥フォルダー¥フォルダー¥フォルダー¥”に変えて実行しても結果は同じでした。
サーバー上のフォルダーを操作する場合、この方法ではだめなのでしょうか?
初歩的な質問かと思いますが、どうかよろしくお願いします
No.3ベストアンサー
- 回答日時:
ファイル名やフォルダ名に / が使えないからではないかと。
https://www.itc.u-toyama.ac.jp/el/win7/restricte …
Format(Now(),”yyyy/mm”) を
Format(Now(),”yyyy_mm”) にしてみたらどうでしょう。
No.2
- 回答日時:
おはようございます。
下記で、どうでしょうかね?
A = Thisworkbook.Path & Format(Now(),”yyyy/mm”)
If (C, vbDirectory) = “” Then
↓
A = Thisworkbook.Path & "\" & Format(Now(),”yyyy/mm”)
If Dir(A, vbDirectory) = “” Then の間違えでしょうか?
直接関係ありませんが、Dim A,B,C As String は、
Dim A As String,B As String,C As String と書かないと、
AとBはVariant型になるかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
バッチファイルで以下のような...
-
exeファイルを実行するとコマン...
-
VScodeのエラー解決法 Pythonの...
-
これってパソコンの最適化が完...
-
Excel VBA ステップインが途中...
-
cpadでプログラムが実行できない
-
Windows System32 Security Hea...
-
VBscriptが起動しない?
-
Office2010 Access
-
日時計算について
-
ExcelのVBAが特定のPC上でのみ...
-
DLLの登録をVBで行いたい(VB20...
-
VBScriptでコマンドプロンプト...
-
SendKeysを使いたい。
-
Linux Makefile変数の値をプロ...
-
「読み取りと実行」と「読み取...
-
PDFファイルを開き、印刷し、閉...
-
[teraterm] waitコマンドで停止...
-
大量のフォルダからひとつのフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
exeファイルを実行するとコマン...
-
バッチファイルの内容を表示さ...
-
「読み取りと実行」と「読み取...
-
VBscriptが起動しない?
-
[teraterm] waitコマンドで停止...
-
エクセル フォルダの画像を画...
-
Excel VBA ステップインが途中...
-
PDFファイルを開き、印刷し、閉...
-
バッチファイルで以下のような...
-
VScodeのエラー解決法 Pythonの...
-
VBScriptでコマンドプロンプト...
-
バッチファイルが不正終了して...
-
複数のbatファイルを自動実行し...
-
pythonスクリプトを管理者権限...
-
これってパソコンの最適化が完...
-
ネットワーク名が見つかりません
-
VBS実行時にコマンドプロンプト...
-
メッセージを他のPCに出したい
-
VB.NETでのDOSコマンドを実行に...
おすすめ情報
”¥¥サーバー名¥フォルダー¥フォルダー¥フォルダー¥”
↑
これは、フォルダーを作成したい階層にあるファイルのプロパティからパスをコピーしたものです