VBA EXCEL/WORD - SAVE AS - 優秀な図書館

-1

これはおそらく本当に簡単な質問ですが、私は持っているものを得ていますうまく動作するコードがありますが、文書を保存するときには、特定の名前が、私はそれは私がそれを実行し、代わりに新しい文書VBA EXCEL/WORD - SAVE AS

With wApp 
.ActiveDocument.SaveAs2 (path) 
.ActiveWindow.Close 
.Quit 

Set wApp = Nothing 
Set wDoc = Nothing 
End With 
End Sub

を作成するたびに:)

を助けてくださいdoccumentを上書きdoes notのように、それは「来場者日記リクルート（ユニークなもの）」として保存したいです

あなたは一意のIDで文書を保存することができます（これには多くのオプションがあります - 必要に応じて）：

set uniqueName = Format(Now(), "MMMM dd, yyyy hh:mm AM/PM")

：日時を使用して

set uniqueName = Int(25 * Rnd()) + 1 //25 is the amount of random numbers you want

：

を使用します3210ガイダンスを使用する - 私はまだこれをやっていないが、私はそれを生成する方法がなければならないと確信している。その後

を（Thisが役立つかもしれない）これにあなたの名前を付けて保存を変更：余分な偏執的であるために

ActiveDocument.SaveAs2 ("C:\Users\colesa\Desktop\Recruitment Macros\Visitor Diary Recruitment" +uniqueName + ".doc")

2016-05-12 23:43:22 Hexie

、あなたは 'Do' ...' Loop'を追加することができ、ファイル名は、あなたがしているかどうかを確認しています既に使用しようとしています。そうであれば、新しい出力を生成することができます。タイムスタンプを使用している場合は、秒を待つか、最後にカウンタを追加します。 –

ありがとう、ありがとう！ –

@Samuel Coleそれは聞くのが大好きです。答えを受け入れることを忘れないでください。 – Hexie

VBA EXCEL/WORD - SAVE AS