戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
ファイル名に日付を反映させる方法

    [195630] ファイル名に日付を反映させる方法-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ mikio -(2023/02/16(18:09))
    □U R L/
      お客の注文書を、指定したフォルダーに自動で保存し、outlookに添付するVBAを作成しています。
      保存するファイル名は、注文書に記載している“お客様名”+“納品日”+“保存した日付“+“時間“の順番にしようと思い、
      コマンドを作成しましたが、”納品日“の所(変数orderNouhinbiのところ)だけがどうしても上手くいきません。
      注文書上では、“2023年2月20日“と表示されていますが、
      実際には2023/2/20になっている為、ファイル名では使用できない”/“が原因ではないかと思います。
      
      ファイル名では“〜年〜月〜日”表示で大丈夫なので、そのコマンド教えて頂けないでしょうか?
      又、難しいようなら、何か良い方法教えて頂けないでしょうか?
      エクセルバージョンは2019です
      
      宜しくお願い致します。
      Sub SaveAndMailActiveSheet()
          Dim wb As Workbook
          Dim ws As Worksheet
          Dim strFile As String
          Dim OutApp As Object
          Dim OutMail As Object
          Dim sh As Worksheet
          Dim orderName As String
          Dim orderNouhinbi As String
          
          
          
          ' 添付するシートを設定
           Set ws = ActiveSheet
           orderName = ws.Range("G10").Value
           orderNouhinbi = ws.Range("H14").Value
      
          ' 保存するパスとファイル名を設定
          strFile = "C:\Users\SH_USER004\Desktop\YSC\注文書_" & orderName & "_" & orderNouhinbi & "納品" & " " & Format(Date, "yyyy_MM_dd") & "_" & Format(Time, "hh-mm") & ".xlsx"
           
      
          ' 保存するシートを別のブックとして保存
          ws.Copy
          Set wb = ActiveWorkbook
          wb.SaveAs strFile
      
          ' Outlookを起動してメールを送信
          Set OutApp = CreateObject("Outlook.Application")
          Set OutMail = OutApp.CreateItem(0)
          With OutMail
              .To = "example@yahoo.co.jp"
              .Subject = "件名"
              .Body = "本文"
              .Attachments.Add strFile
              .Display
          End With
      
          wb.Close
          ' Outlookの終了
          Set OutMail = Nothing
          Set OutApp = Nothing
      End Sub
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [195631] Re[1]: ファイル名に日付を反映させる方法-

    記事引用/メール受信=OFF■

    □投稿者/ MK -(2023/02/16(19:06))
    □U R L/

      参考です。

      MsgBox ActiveCell.Text
      MsgBox Format(ActiveCell.Value, "GGGEE年MM月DD日")




    [195632] Re[2]: ファイル名に日付を反映させる方法-

    記事引用/メール受信=OFF■

    □投稿者/ mikio -(2023/02/17(09:19))
    □U R L/

      このコマンドを、どこに差し込めばよいですか?




    [195633] Re[3]: ファイル名に日付を反映させる方法-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2023/02/17(13:02))
    □U R L/
      こうかな?
      
      >strFile = "C:\Users\SH_USER004\Desktop\YSC\注文書_" & orderName & "_" & orderNouhinbi & "納品" & " " & Format(Date, "yyyy_MM_dd") & "_" & Format(Time, "hh-mm") & ".xlsx"
           ↓
        strFile = "C:\Users\SH_USER004\Desktop\YSC\注文書_" & orderName & "_" & Format(orderNouhinbi, "GGGEE年MM月DD日納品 ") & Format(Now, "yyyy_MM_dd_hh-mm") & ".xlsx"


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [195634] Re[4]: ファイル名に日付を反映させる方法-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ mikio -(2023/02/17(18:03))
    □U R L/

      完璧です!
      イメージ通りのファイル名が作成できました。
      本当にありがとうございます。

      これからも、宜しくお願い致します。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G