Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40630 / 76732

←次へ　｜　前へ→


	【41197】Re:ファイル名のオートナンバー

ハチ - 06/8/1(火) 17:54 -


	引用なし

	パスワード

▼もとあしさん：
ブックAからしかマクロで作成しないのなら、
どこかのセルに数値を保存しておけばナンバーリングできるのでは？

Option Explicit

Sub test()

Dim MyPath As String
Dim MyBook As String
Dim wb As Workbook

MyPath = Replace(ThisWorkbook.Path, "フォルダA", "フォルダB")
MyBook = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4)

Set wb = Workbooks.Add

With ThisWorkbook.Worksheets(1)
　　Do Until Dir(MyPath & "\" & MyBook & "_" & .Range("A1").Value & ".xls") = ""
　　　　.Range("A1").Value = .Range("A1").Value + 1
　　Loop
　　wb.SaveAs Filename:=MyPath & "\" & MyBook & "_" & .Range("A1").Value & ".xls"
End With
wb.Close
Set wb = Nothing
End Sub

0 hits

▼

【41185】ファイル名のオートナンバー もとあし 06/8/1(火) 16:37