2016-04-22 7 views
0

xlsmファイルとして強制保存するVBAを提供したソリューションhereが本当に好きです。私はやっとVBAについて何を知っていることを念頭に置いて、どのように私は次の操作を行うために、このコードを変更できます。ExcelマクロVBA-日付とセルの値に基づいてxlsmとしてファイル名で保存する方法

  • XLSMとしてファイル名保存強制的に継続すること」という名前のシートのセルC1の値に等しいですレポート "+テキスト" BSC "+ YYYY.MM.DD形式の日付

ご協力いただければ幸いです。

+1

ので、私はそのノートにしかし今日寛大な感じていた、あなたは本当に、少なくともあなたのためにそれを行うために誰かを望むのではなく、学ぶことを試してみてください...再び私はとても寛大で感じていましたあなたは幸運を感じるはずです。 ( "C1")値& "BCS"&Format(DateTime.Now、 "yyyy.mm.dd")& ".xlsm" sFileName = Sheets( "REPORT")アクティブワークブック。 SaveAs sFileName' – Sorceri

+0

私はSorceriに同意し、そのコメントが投稿された時点でまだ編集中でした。私はちょうどそれを見た。これは、何に答えるべきか否かの境界線上にある。しかし、あなたがそれを尋ねたやり方については、あなたを次のレベルに導く助けのように思えました。私の答えはあなたにその一部を与えていますが、パズルを完成させるためにはそれをまとめなければなりません。がんばろう。あなたはそれを行うことができます。 – peege

答えて

1

あなたがラインを取る場合、それは言う場所:

ThisWorkbook.SaveAs Filename:=FileNameVal & ".xlsm", FileFormat:=ThisWorkbook.FileFormat 
     Application.EnableEvents = True 

あなたはどのような値がいくつかの基本的な変数を使用してFileNameVal

の下に保存されているとして、あなたは文字列を設定し、値を置き換えることができ、ファイルを保存していますFileNameVal

Dim newFileName As String, nameDate As String, sheet As String, tempVal As String 

    sheet = "REPORT" 
    tempVal = Sheets(sheet).Range("C1").Text 
    nameDate = Format(Date, "yyyy.mm.dd") 
    newFileName = tempVal & "BSC" & nameDate 

Localsウィンドウを見ると、F8を使用してコードをステップ実行するときに値が変わるのがわかります。

Locals Window

REPORT Sheet

+0

これは欠けている要素のいくつかを与えるためのものです。あなたはここから終えることができるはずです。 – peege

+0

助けてくれてありがとう、peegeとSorceri。これはVBAで手を使わなければならないのは初めてのことですが、私は人生のほとんどでコーダーから遠く離れていますが、私が働いている問題に関連した非常に具体的なアドバイスがあれば私は、HTML、CSS、PHPなどについて、後で本当に良い質問をするのに十分な能力を身につけることができる傾向があります。これは役に立ちます。 –

関連する問題