いつも大変お世話になりありがとうございます。
早速ですが、教えてください。
以下のマクロでファイル名を指定して保存させようと思うのですが、デフォルトで表示するフォルダーをたとえば、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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
字面がカッコいい英単語
あなたが思う「字面がカッコいい英単語」を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
GetSaveAsFilenameでフォルダを指定したいのですが?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
今まで文字化けなく開けていたc...
-
スプレッドシートで指定された...
-
ExcelでASCを使って全角を半角...
-
マクロの処理が遅くなった
-
Excel関数について教えてくださ...
-
作成した数式を値として表示し...
-
エクセルの質問です。 F列からL...
-
エクセルでファイルの最終更新...
-
EXCELの散布図で日付が1900年に...
-
【マクロ】VLOOKUPにて参照元に...
-
エクセルのセル内に分数などの...
-
Excelの警告について
-
Microsoft 365Excelの見開きペ...
-
Excel関数について教えてくださ...
-
シートの情報を別のシートへま...
-
Excelマクロで空白セルを詰めて...
-
【マクロ】フォルダ内にあるPDF...
-
index関数の説明をお願いします。
-
重複しない値を取り出したい
-
エクセルの数式バーのフォント...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでcsvファイルもシートもあ...
-
Excelマクロ 空白セルを無視し...
-
ダブルコーテーション付きでCSV...
-
【ExcelVBA】300万件越えCSVか...
-
ファイル名を変数で書きこむfwr...
-
複数のファイルをまたぐエクセ...
-
VB.netでShellExecuteがしたい
-
VBAで複数のCSVからレコードセ...
-
CSVで余計な空行が入る
-
EXCEL→CSV保存時のダブルクォー...
-
FileListBoxで出すものを絞り込...
-
バッチコマンドで指定行を抽出...
-
エクセルの任意のシートをcs...
-
CSVファイルの比較と結果の取得...
-
IPアドレスのゼロパディング
-
ブラウザ上でcsvファイルの編集
-
CSVデータの文字列置換
-
Delphiで使用しているindyコン...
-
StringGridの中身をCSV形式で保...
-
Sikulix2.0.5(Jython2.7.3)でcs...
おすすめ情報