お世話になります。
エクセルで「名前をつけて保存」のマクロを作って使用していますが、
一部、改造したいところがあります。
B20セルの文字が自動でファイル名になるようにしています。
「件名:●×商店納品見積書_20090125_1326」という感じなのですが、
最初の「件名:」という文字が不要で、毎回手動で消しています。
しかし、この文字を最初から消しておくわけにはいかず、
マクロ実行時のみ「件名:」が消えるようにしたいのです。
よい方法はありますか?
どうぞよろしくお願いします。
Sub ブック保存()
Dim SaveFileName As String, re As Variant, WSH As Variant, Path As String
Set WSH = CreateObject("WScript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\"
With Sheets("見積書").Range("B20")
If .Value = "" Then
MsgBox "店舗名が入力されていません", vbExclamation
Exit Sub
Else
SaveFileName = Path & .Value & "_" & Format(Now, "yyyymmdd_hhmm")
End If
End With
Set WSH = Nothing
re = Application.GetSaveAsFilename(SaveFileName)
If re = False Then
MsgBox "保存中止", vbExclamation
Else
ActiveWorkbook.SaveAs SaveFileName
MsgBox "保存OK", vbInformation
End If
End Sub
No.1ベストアンサー
- 回答日時:
>SaveFileName = Path & .Value & "_" & Format(Now, "yyyymmdd_hhmm")
SaveFileName = Path & Replace(.Value,"件名:","") & "_" & Format(Now, "yyyymmdd_hhmm")
とか?
No.2
- 回答日時:
これだけのコードが書けるレベルの方が悩まれる内容と思えません。
色々方法はあると思いますが、一例です。
確かExcel2000以降なら、Split関数を使えば簡単です。
一部だけ、関係するところを掲載します。
Dim FName As String
With Sheets("見積書").Range("B20")
If .Value = "" Then
MsgBox "店舗名が入力されていません", vbExclamation
Exit Sub
Else
FName = Split(FName, ":")(1)
SaveFileName = Path & FName & "_" & Format(Now, "yyyymmdd_hhmm")
End If
End With
でどうでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Thunderbirdの件名の色を黒に戻す
-
mailto:に件名を入れると文字化...
-
受信メールの前に[Norton AntiS...
-
J-PHONEのメールで件名...
-
outlookのメールの件名に”MEIWA...
-
文面で御社は「貴社」、では部...
-
お客様からの謝罪メールに対す...
-
貴社のご都合に合わせます 正...
-
敬語について教えて下さい 「ま...
-
頑張ってください に対する返答
-
就職活動してるものです。緊急...
-
送付いたします。お送りします...
-
ご指摘ありがとうございました...
-
メール文書の最後に「以上」を...
-
歓迎会に出席していただく目上...
-
先日時間の変更をしたばかりな...
-
飲み会後の「お礼がない」と注...
-
「急で申し訳ない」というお詫...
-
知人から紹介された会社へメール
-
「お返しください」は敬語とし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
表題?標題?掲題?
-
Thunderbirdの件名の色を黒に戻す
-
メールの件名とは何ですか?
-
件名の任意の位置で改行する方法
-
メール件名の付け方について
-
メールの件名に、文字入力がで...
-
件名が空欄のメールって普通な...
-
outlookのメールの件名に”MEIWA...
-
mailto:に件名を入れると文字化...
-
ビジネスメールで件名を入れな...
-
件名が空欄のメールが不愉快だ...
-
メールの件名に宛名を入れる?
-
メールのsubjectに、でちゃう履...
-
件名なしで送信の警告を非表示...
-
「リンクとして送信」が選択で...
-
エクセル・名前を付けて保存す...
-
Jフォン スカイメールの件名
-
件名が違うのに本文の内容は一緒
-
受信メールの前に[Norton AntiS...
-
アウトルックでタイトルを自動...
おすすめ情報