いつも大変お世話になりありがとうございます。
早速ですが、教えてください。
以下のマクロでファイル名を指定して保存させようと思うのですが、デフォルトで表示するフォルダーをたとえば、Cドライブの「AAAAA」という指定はできますでしょうか?
また、そのパソコンに「AAAAA」というフォルダーが無かったら、作るようにしたいのですがどう記述すればよいのでしょうか?
Sub test()
Dim aaa As String
aaa = Format(Now, "MMDDHHmm")
FName = Application.GetSaveAsFilename(InitialFilename:=aaa & ".csv", FileFilter:="CSVファイル(*.csv), *.csv")
'以下略
End Sub
No.2ベストアンサー
- 回答日時:
エラーナンバーで判断してフォルダ追加する方法はいかがでしょう。
Sub test()
Dim aaa As String
Dim ddd As String
On Error Resume Next
bbb = "C:\AAAAA"
ChDir bbb
If Err.Number = 76 Then
response = MsgBox( _
"フォルダ" & bbb & "は存在しません。作成しますか?", _
vbYesNo + vbQuestion, _
"フォルダの追加" _
)
If response = vbYes Then
MkDir bbb
ChDir bbb
End If
End If
aaa = Format(Now, "MMDDHHmm")
fname = Application.GetSaveAsFilename(InitialFilename:=aaa & ".csv", _
FileFilter:="CSVファイル(*.csv), *.csv")
End Sub
最初の、Dim ddd As String は bbb ですね?
そこだけ直してやってみましたら思ったようにできました。
ありがとうございました。
たすかりました。
No.3
- 回答日時:
> 最初の、Dim ddd As String は bbb ですね?
失礼、そのとおりです。
No.1
- 回答日時:
大体こんな感じで。
Dドライブが存在する場合の処理は適当に追加してください。
Sub tmp()
Dim s$, path_org$, path_tgt$
path_org = CurDir
path_tgt = "C:\tmptmp\"
If (Dir(path_tgt, vbDirectory) = "") Then MkDir path_tgt
ChDir path_tgt
s = Application.GetSaveAsFilename
Debug.Print s
ChDir path_org
End Sub
ありがとうございました。
難しすぎてよくわかりませんでしたが、たしかにCドライブに「tmptmp」フォルダーが作成されました。
> Dドライブが存在する場合の処理は
とはどういう意味なのでしょうか?
わかりませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) VBA。複数のChangeイベントをまとめる方法 2 2022/03/31 12:03
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Excel(エクセル) Excel VBA 3 2023/04/22 10:46
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
(マクロ)vlookupの元データを同...
-
エクセルの日付に時差を加算 #V...
-
exselの質問です
-
半角カタカナをヘボン式ローマ...
-
pdfの表をexcelにはりつけて計...
-
Excelのデーターを消して保存し...
-
Excelの関数について教えてくだ...
-
Excelにいついて質問です。
-
VBAについての質問です
-
エクセルの「赤」の印刷がうま...
-
Excelの数式について教えてくだ...
-
一つのセルに(例えばA1)入力...
-
エクセル おすすめフォント
-
棒グラフの縦軸目盛線の間隔変更
-
エクセルで特定のセルに入力が...
-
エクセルの「入力規則」のプル...
-
[オプション]の[アクセスビリテ...
-
CSVファイルについて質問です。
-
関数の説明
-
Excelについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】300万件越えCSVか...
-
ダブルコーテーション付きでCSV...
-
Excelマクロ 空白セルを無視し...
-
VBAでcsvファイルもシートもあ...
-
VBAで複数のCSVからレコードセ...
-
ファイル名を変数で書きこむfwr...
-
CSVで余計な空行が入る
-
CSVデータの文字列置換
-
EXCEL→CSV保存時のダブルクォー...
-
VB.netでShellExecuteがしたい
-
エクセルの任意のシートをcs...
-
fortranでデータの抜き出しをし...
-
VBA csvファイルのデータを...
-
pythonでリストをCSVに出力する...
-
FileListBoxで出すものを絞り込...
-
バッチファイルでcsvファイルに...
-
複数のファイルをまたぐエクセ...
-
StringGridの中身をCSV形式で保...
-
rubyを用いたCSVファイルの分割...
-
vbaマクロについて 次のような...
おすすめ情報