フォルダ内にある最後のファイル名を取得

受付中

回答 3

投稿

  • 評価
  • クリップ 2
  • VIEW 5,042

mii

score 11

フォルダ内にある最後のファイル名を取得し、その一部をワークシートの名前にするため以下のコードをどこからかコピペして加工して使ってます。

フォルダ内のファイル名にせよ、最終更新日時にせよ、フォルダ内の一番最後に表記されてあるファイルを取得するつもりなのですが、失敗したり成功したりとよくメカニズムがわかっていません。

下記コードでは何が問題なのでしょうか。

また、①ファイル名の昇順降順、②最新更新日順

で一番最後のファイル名を取得したい場合どのようなコードになるでしょうか。

独学でVBAを学んでいますが、早くも行き詰ってます。


Sub フォルダ内にある最後のファイル名を取得()
        Dim objFile As Object, strFolder As String, strFilePath As String, Spybook As String
   
    '// FSOオブジェクト生成
    Set objFile = CreateObject("Scripting.FileSystemObject")
    '// 対象ブック格納ディレクトリ設定
    strFolder = ""
    '// 対象フォルダ上のファイルを1つずつ取り出す
    For Each objFile In objFile.GetFolder(strFolder).Files
    With objFile
    '// ファイル名「~.xls」の場合、変数にパスを格納
    '// 尚、日付で特定する場合、本If文に条件を追加してけば良い
    If .Name Like "*.xlsx" Then strFilePath = objFile.Path
    End With
    Next
    '// 変数にパスが格納されていれば、ブックを開く
    '// このとき、変数の値は最後に取得したファイルパス
    If strFilePath <> "" Then
    Workbooks.Open Filename:=strFilePath
    End If
    
    Range(Cells(1, 1), Cells(Rows.Count, 2).End(xlUp)).Copy
    Workbooks("").Activate
    Worksheets(8).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
    Worksheets(8).Name = Mid(strFilePath, InStr(strFilePath, "") + , ) & ""
    Cells(1, 2).Value = ActiveSheet.Name
    Application.CutCopyMode = False
   
        
End Sub
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

0

ご質問の「失敗」「成功」の定義があいまいなので、意図した最後のファイルが取得できたかどうかと解釈して書きます。
Filesオブジェクトに格納されているファイルオブジェクトの順番は整列されたものではありません。
別に用意した配列などの格納領域にすべてのファイルオブジェクトを一旦格納して、ソート対象の値でソートしてから意図する位置のファイルオブジェクトを取り出すようにする必要があります。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

Filesプロパティで得られるファイル名群は、並び順についてなんの法則性もないと想定した方がよろしいかと存じます。

1)については、
ファイル名を一時保存する変数を用意して指定フォルダ内のファイル名を大小比較していけば、特定できそうです。

2)については、
ファイルオブジェクトのDateLastModifiedプロパティが最終更新日時なので、ファイル名とこのデータを一時保存して、フォルダ内のファイルすべてを検査して最も新しい日時のファイル名を特定することができそうです。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

0

こんにちは
直接、最後のファイルを取り出す方法はわかりませんが、

'表示回数を降順に並び替え(ワークシートの1番目、対象C列、3行目からデータ部)
    ActiveWorkbook.Worksheets(1).Sort.SortFields.Add _
        Key:=Range("c3"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(1).Sort
        .SetRange Range("A2:U3000") ←対象範囲
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

という感じなので、ファイル名がどのようにネーミングされているのにもよりますが
一度、ワークシート上に全ファイル名を抽出し、ソートして、1番上または下、
または日付が最新のファイルを取り出す・・などすればいかがでしょうか。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.21%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる