Excel VBA質問箱 IV

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

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


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

41090 / 76732

←次へ　｜　前へ→


	【40726】Re:すみません

Kein - 06/7/21(金) 14:45 -


	引用なし

	パスワード

マクロ実行ブックの先頭シートのIV列を作業列として、数値の部分を抜き出し、
ソートして最大値を求めてファイル名に戻して開く。というコードにしてみます。

Sub ES08で始まるファイルを開く2()
　　Dim MyF As String, OpF As String
　　Dim i As Long, p1 As Long, p2 As Long

　　Application.ScreenUpdating = False
　　MyF = Dir(ThisWorkbook.Path & "\ES08*.xls")
　　Do While MyF <> ""
　　　 i = i + 1
　　　 p1 = InStr(1, MyF, "u_") + 2
　　　 p2 = InStr(1, MyF, ".")
　　　 Worksheets(1).Cells(i, 256).Value = _
　　　 Mid(MyF, p1, p2 - p1)
　　　 MyF = Dir()
　　Loop
　　If i = 0 Then
　　　 MsgBox "開く対象のファイルが見つかりません", 48
　　　 GoTo ELine
　　End If
　　With Worksheets(1).Range("IV:IV")
　　　 .NumberFormatLocal = "0_ "
　　　 .Sort Key1:=.Columns(256), Order1:=xlDescending, _
　　　 Header:=xlNo, Orientation:=xlSortColumns
　　　 OpF = ThisWorkbook.Path & "\ES08_aiu_" & _
　　　 .Range("IV1").Value & ".xls"
　　　 Workbooks.Open OpF
　　　 .Clear
　　End With
ELine:
　　Application.ScreenUpdating = True
End Sub

0 hits

▼

【40697】VBA基本 トホホ 06/7/20(木) 16:28