Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35002 / 76732

←次へ　｜　前へ→


	【46933】Re:保存時のファイル名

ぱっせんじゃー - 07/2/22(木) 13:29 -


	引用なし

	パスワード

横から失礼します。

自動で指定セルの名前でアクティブワークブックを指定フォルダ
に保存するのは↓のような感じでいけます。

Dim MyFolder As String
Dim Bmei As String
　MyFolder = "D:\test"
　Bmei = Worksheets("Sheet1").Range("A1").Value
　If Dir(MyFol & "\" & Bmei & ".xls") <> "" Then
　　 MsgBox "既に" & MyFol & "\" & Bmei & ".xls" & "は存在します"
　Else
　 Activeworkbook.SaveAs(MyFol & "\" & Bmei & ".xls")
　End If

名前をつけて保存のダイアログを表示するのは
GetSaveAsFilename メソッド
を使います。

3 hits

▼

【46930】保存時のファイル名 sa 07/2/22(木) 12:18