複数のExcelファイルの一部の名前を変更する

Question

Excelシートの一部の名前変更に関するヘルプが必要です。 私は毎月部分的に名前を変更する必要があるこれらのうち約40個を持っています。例えばのために

：

 2017_06 Jun QFR Planning File, 

    2017_06 Jun QFR Analytics File, 

    2017_06 Jun QFR Customer Service File 

はこれを自動化する中で、私を助けてください

 2017_07 Jul QCR Planning File 

    2017_07 Jul QCR Analytics File 

    2017_07 Jul QCR Customer Service File . 

に名前を変更する必要があります。私はオンラインで見てみましたが、すべてのVBAコードが名前を完全に変更しているようです。私はファイルがそれぞれのファイル名を持ち、部分的に名前を変更するのに成功するようにしたい。

ご協力いただきありがとうございます。

Answer 1

EDIT1：使用Name As声明あなたはName As方法のように使用することができます

：

'/* Syntax: Name [oldfilename] As [newfilename] */ 
'/* where oldfilename and newfilename are full file paths */ 
Name "C:\Test\2017_06 Jun QFR Planning.xlsx" As "C:\Test\2017_06 Jun QCR Planning.xlsx" 

あなたはたくさんのファイルを持っている場合は、あなたがループを組み込むことができます。

Dim xlFile As Variant 
Dim nFile As String 

xlFile = Dir("C:\Test\*.xls*") '/* Folder that contains the files */ 

Do While xlFile <> "" '/* check if anything is returned */ 
    If InStr(xlFile, "QFR") <> 0 Then '/* check if there is 'QFR' in the filename 
     nFile = VBA.Replace(xlFile, "QFR", "QCR") '/* replace if there is */ 
     Name xlFile As nFile '/* rename the file */ 
    End If 
    xlFile = Dir '/* Test for more */ 
Loop