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

1 hits

【41185】ファイル名のオートナンバー もとあし 06/8/1(火) 16:37 質問
【41188】Re:ファイル名のオートナンバー Blue 06/8/1(火) 17:01 質問
【41189】Re:ファイル名のオートナンバー Kein 06/8/1(火) 17:07 回答
【41197】Re:ファイル名のオートナンバー ハチ 06/8/1(火) 17:54 発言
【41213】Re:ファイル名のオートナンバー もとあし 06/8/2(水) 9:39 お礼
【41223】Re:ファイル名のオートナンバー ハチ 06/8/2(水) 12:50 発言
【41226】Re:ファイル名のオートナンバー もとあし 06/8/2(水) 14:46 お礼

40630 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free