vba マクロを使用したファイル名の変更方法

Question

エクセルを使用してマクロを製作しています。

毎回異なる名前のcsvを朝一番でダウンロードします。
windows10のため、ダウンロードしたファイルは、ダウンロードフォルダ内にあります。
そのファイル名が毎回異なり、そのファイルの名前を
エクセルのシート上で、マクロを製作し、名前をAAA.csvに毎朝変更したいのですが、

どのようにしたらよいか、記述を教えて頂けませんでしょうか。

最終的にやりたいこととしては、
ファイル名B.xlsxのシート１ 内の、DX1のセルを起点として、AAA.csvを文字列として貼り付けをするマクロを作ろうと考えております。

同じ名前のCSVデータになっていれば、なんとか目標までたどり着けるのですが、元となるCSVデータがダウンロードのたびに異なるため、困っておるところです。

宜しくお願い致します。

Answer

ECマスターズの山岡です。

Pathの部分は、ダウンロードしたファイルが保存されている場所になります。
このフォルダーに存在するファイル一覧を取得できます。
(例ではセルに追加しております)

Dim buf As String, cnt As Long
Const Path As String = "C:\Sample\"
buf = Dir(Path & "*.xlsx")
cnt = 0
Do While buf  ""
    cnt = cnt + 1
    Cells(cnt, 1) = buf
    Cells(cnt, 2) = FileDateTime(Path & buf)
    buf = Dir()
Loop

一覧を取得し、

Name "C:\Sample\Sample.txt" As "C:\Sample\Test.txt"

で名前を変更するというのはいかがでしょうか？

もしくは、

https://ec-masters.gyazo.com/cdb771c22e3db63eb1c6f981d97c78ed

・取得ボタンで、ファイル一覧を取得
・取得したファイル名に選択後、処理ボタンで
　該当するCSVを取得する

こちらの場合、ファイル名を変更よりも
エクセル上で読み込むファイルを選択でできます。

Answer

Dim buf As String, cnt As Long
Const Path As String = "C:\Sample\"
buf = Dir(Path & "*.csv")
cnt = 0
Do While buf  ""
cnt = cnt + 1
Cells(cnt, 1) = buf
Cells(cnt, 2) = FileDateTime(Path & buf)
buf = Dir()
Loop

・"*.csv"に変更
・"C:\Sample\"部分を弊社でのダウンロード先のパスに変更
したことで、
A列にCSVの一覧、B列に日付の一覧は表示されるようになりました。

直近のダウンロードしたデータのみ名前を変えられれば十分です。
Name "C:\Sample\Sample.txt" As "C:\Sample\Test.txt"
この方法でスト、毎回マクロでファイル名を記入し修正が必要でしょうか。

Answer

ECマスターズの山岡です。

現在のセルの位置を取得します。
ActiveCell.Row
ActiveCell.Column
その位置に表示されているファイル名を、固定のtest.csvに
変更することが以下のソースでできます。

実際には、エクセル上にボタンを設置していただき
カーソルがファイル名にある時に、ボタンを押すと
以下のソース部分が実行され、名前の変更が行われます。
すでにファイルが存在する場合は、
元のtest.csvを削除するコードも必要になります。


Sub ボタン1_Click()

    Dim fname As String
    
    fname = "e:	emp" & Cells(ActiveCell.Row, ActiveCell.Column).Value
    
    Name fname As "e:	emp	est.csv"

End Sub

Answer

ありがとうございます。
挑戦してみます。

Answer

行ってみまして、やりたいことにたどり着けそうです。
ありがとうございました。