Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6146 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46930】保存時のファイル名 sa 07/2/22(木) 12:18 質問[未読]
【46931】Re:保存時のファイル名 KIU 07/2/22(木) 13:18 回答[未読]
【46933】Re:保存時のファイル名 ぱっせんじゃー 07/2/22(木) 13:29 発言[未読]
【46937】Re:保存時のファイル名 sa 07/2/22(木) 16:08 お礼[未読]
【46930】保存時のファイル名
質問  sa  - 07/2/22(木) 12:18 -
引用なし
パスワード
   お久しぶりです
お世話になります

保存時のファイル名を
あるセルの文字列にしたいのですが

名前を付けて保存の時に
自動であるセルの文字列がファイル名の所に入るかたちでもいいので
方法の知っているか教えて下さい得て下さい
【46931】Re:保存時のファイル名
回答  KIU  - 07/2/22(木) 13:18 -
引用なし
パスワード
   ActiveWorkbook.SaveAs Filename:="BOOK1.xls"
"BOOK1.xls"=RANGE("A1").Value & ".xls"
【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 メソッド
を使います。
【46937】Re:保存時のファイル名
お礼  sa  - 07/2/22(木) 16:08 -
引用なし
パスワード
   KIU さん ぱっせんじゃー さん
大変参考になりました
有り難うございました

これからも宜しくお願いします
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6146 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free