No.1ベストアンサー
- 回答日時:
ゴリ押しで良ければ。
指定フォルダのファイルから番号を抜き出し、それぞれ比較をして、最終的にMaxNoのファイルを開くマクロです
※ファイルが複数のフォルダにばらけている場合は、更にコードを編集する必要があります
※数カ所、ご自身の環境に合わせて修正が必要な箇所があります
※何の種類のファイルを開きたいのか分からなかったので、とりあえずエクセルファイルとしています
Sub sample()
Dim KanriNo, MaxNo, myBook
myBook = Dir("C:\*.xls") 'Cフォルダに各ファイルが保存されている場合です。環境に合わせてパスや拡張子を変更してください
'それぞれのファイルから番号を抜き出し、最大値をMaxNoに保管します
Do Until myBook = ""
KanriNo = TrimNo(myBook)
If KanriNo >= MaxNo Then MaxNo = KanriNo
myBook = Dir()
Loop
'MaxNoの桁数を、開くファイルに揃えるために先頭にゼロを補完します
'数字の桁数は環境に合わせて、0の数を変更してください
'このサンプルでは3桁の数字に揃えています
Select Case Len(MaxNo)
Case 2 'MaxNoが2桁だった場合、先頭に0を1つ足して3桁(00*)の形式にします
MaxNo = "0" & MaxNo
Case 1 'MaxNoが1桁だった場合、先頭に0を2つ足して3桁(00*)の形式にします
MaxNo = "00" & MaxNo
End Select
'ファイルを開きます。日付はDate関数で得られるYYYY/MM/DD形式からReplaceを用いて8桁表示にしています
'拡張子がxlsでない場合は、環境に合わせて変更してください
Workbooks.Open "c:\" & Replace(Date, "/", "") & "_販売管理_" & MaxNo & ".xls"
End Sub
'ファイル名から番号を抜き出すユーザー関数です
Function TrimNo(strings)
If strings <> "" Then _
TrimNo = CInt(Replace(Mid(strings, InStrRev(strings, "_") + 1, Len(strings) - InStrRev(strings, "_")), ".xls", ""))
End Function
この回答へのお礼
お礼日時:2015/12/03 20:34
早速の回答ありがとうございます。
希望していた通りに動作しました。
パスや拡張子にも気を使って頂き、本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) セルの値からファイルを複数作りたい 2 2022/10/06 12:42
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- その他(Microsoft Office) Microsoft365で写真をアルバム管理・共有する方法。 1 2023/04/30 08:40
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DATファイル、削除しても構わない?
-
携帯のVMGファイルをパソコンで...
-
拡張子の大文字、小文字
-
TEX ファイル
-
cdrファイルを開きたい
-
添付ファイルのjpeg画像が見れ...
-
outlook2013 添付エクセルファ...
-
デジカメで撮影した動画をメー...
-
binファイルを削除したいのですが
-
免許証をPDFでメール送信
-
容量の大きいzipファイルの解凍...
-
右クリック→新規作成→圧縮(zip...
-
フォルダ名や、ファイル名のフ...
-
ゲームMODのpakファイルを開けない
-
フォルダ内の動画ファイルを自...
-
メールのアーカイブってどうい...
-
EXCELデータ保存時にメッセージ...
-
バーが動かない?
-
CDに焼くファイルをZIP圧縮して...
-
zipにパスワードをかけられない...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
携帯のVMGファイルをパソコンで...
-
DATファイル、削除しても構わない?
-
添付ファイルのjpeg画像が見れ...
-
cdrファイルを開きたい
-
.pcapファイルをテキストファイ...
-
ISOのはずがMDS、IFO、I00ファ...
-
拡張子 .pos とはどんなファイ...
-
データベースの開き方がわかり...
-
USBメモリ
-
”DVDISOファイル”って何ですか?
-
ExcelやWordなど、保存してある...
-
ファイル名を編集するとそのフ...
-
binファイルを削除したいのですが
-
.emlファイルは他の形式で開け...
-
「拡張子」という言葉の語源は?
-
excelから直接FTPフォルダを開...
-
MODELファイルの開き方を教えて...
-
DVD-RAMにISOトラックイメージ...
-
USBメモリ内のファイルを直接操...
-
リズム天国ゴールドのリセット方法
おすすめ情報