VBAを使って名前をつけて保存をしたい

質問

例えばデーター管理ファイルＡというファイルの中にある
顧客データという名前のエクセルブックを開いて上書き保存をして、
データー管理ファイルＢというファイルの中に顧客データ【1016】(1)
という名前で(1016とは本日の日付を表しています)保存するとします。

この段階で、ファイルＢの中に顧客データ【1016】(1)が入ってる事になりますが、再度本日二回目にＡファイルの中にある顧客データをBファイルの中へ保存する場合顧客データ【1016】(2)という名称で保存して

さらに本日三回目に同じように保存する場合は【1016】(3)というようにしたいのですが(もし明日保存する場合は、一回目は顧客データ【1017】(1)、二回目は【1017】(2)というように日付が変わると(1)から始めるようにしたいのですが)、VBAでどの様にしたらいいでしょうか?

回答No.3

pkh4989 · ベストアンサー

こんにちは。
以下の例を参考にしてください。

>【1016】(2)という名称で保存して
→ブック名称の事ですよね？

Sub 名前を付けて保存()
　　Dim wSeq　　　　As String
　　Dim wStr　　　　As String
　　Dim Flnm　　　　As String
　　Dim wFlnm　　　 As String
　　'
　　Flnm = "C:\" & Format(Date, "mmdd") & ".xls"
　　Flnm = Application.GetSaveAsFilename(InitialFileName:=Flnm, _
　　　　　　　　　　　filefilter:="Excel ファイル (*.xls), *.xls", Title:="名前を付けて保存")

　　If Flnm = "False" Then
　　　　Exit Sub
　　End If
　　'
　　wSeq = 0
　　ExitFlg = False
　　wFlnm = Flnm
　　Do While ExitFlg = False
　　　　If Dir(Flnm) <> "" Then
　　　　　　'存在したら、連番を加算
　　　　　　wSeq = wSeq + 1
　　　　　　wStr = "(" & wSeq & ")"
　　　　　　Flnm = Left(wFlnm, Len(wFlnm) - 4) & wStr & ".xls"
　　　　Else
　　　　　　'存在しない時、保存
　　　　　　ActiveWorkbook.SaveAs Filename:=Flnm
　　　　　　ExitFlg = True
　　　　End If
　　Loop
End Sub

補足

素人なのでよく分らないんですが、C:\Documents and Settings\AABBセンター\デスクトップ\データー管理にフォルダAとフォルダBが入ってます。C:\Documents and Settings\AABBセンター\デスクトップ\データー管理\ファイルAに顧客データというエクセルブックが入ってます。その場合上記のコードのどこを書き換えればいいでしょうか？　無知ですいませんが、教えて下さい。