Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

フォルダ名・ファイル名を変更（Name ステートメント）

2015/12/19

フォルダ名およびファイル名を変更

Name ステートメント で、ファイル、ディレクトリまたはフォルダの名前を変更することができます。

【構文】

Name oldpathname As newpathname

引数・戻り値

oldpathname ・・・既存のファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。ファイル名には、ディレクトリまたはフォルダ、ドライブを含めることもできます。
newpathname ・・・引数 oldpathname に、ファイル名を指定した場合、新しいファイルの名前を文字列式で指定します。ディレクトリまたはフォルダ、ドライブを含めることもできます。存在しているファイル名を指定することはできません。oldpathname に、ディレクトリまたはフォルダの名前を指定した場合、新しいディレクトリまたはフォルダの名前を文字列式で指定します。存在しているディレクトリまたはフォルダの名前を指定することはできません。

引数 newpathname に、同じファイル名で、既存の別のディレクトリまたはフォルダを指定すると、ファイルを移動することができます。

引数 oldpathname および newpathname に、ファイル名のみ（ディレクトリ名、フォルダ名を含まない）を指定した場合の場所は、カレントパスとなります。

Name ステートメント使用例

サンプルVBAソース

　
Sub Sample01_Name()

'ファイル名の変更

    Dim oldName As String
    Dim newName As String
    
    oldName = "C:\Documents\test02.xlsx"
    newName = "C:\Documents\test05.xlsx"
    
    Name oldName As newName

End Sub

Sub Sample02_Name()

'ファイルの移動

    Dim oldName As String
    Dim newName As String
    
    oldName = "C:\Documents\test01.xlsx"
    newName = "C:\Documents\tmp\test01.xlsx"
    
    Name oldName As newName

End Sub

Sub Sample03_Name()

'ブック以外のファイルの名前を変更

    Dim oldName As String
    Dim newName As String
    
    oldName = "C:\Documents\memo01.txt"
    newName = "C:\Documents\memo02.txt"
    
    Name oldName As newName

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

　

Sub Sample01_Name()

'ファイル名の変更

Dim oldName As String

Dim newName As String

oldName = "C:\Documents\test02.xlsx"

newName = "C:\Documents\test05.xlsx"

Name oldName As newName

End Sub

Sub Sample02_Name()

'ファイルの移動

Dim oldName As String

Dim newName As String

oldName = "C:\Documents\test01.xlsx"

newName = "C:\Documents\tmp\test01.xlsx"

Name oldName As newName

End Sub

Sub Sample03_Name()

'ブック以外のファイルの名前を変更

Dim oldName As String

Dim newName As String

oldName = "C:\Documents\memo01.txt"

newName = "C:\Documents\memo02.txt"

Name oldName As newName

End Sub

　

実行結果

実行前

Name ステートメント 00

Sub Sample01_Name() を実行

Name ステートメント 01

Sub Sample02_Name() を実行

Name ステートメント 02a
Name ステートメント 02b

Sub Sample03_Name() を実行

Name ステートメント 03

- Excel・ファイルの操作 Excel・ファイルの操作, Name ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 「ファイルを開く」ダイアログボックス（FindFile メソッド）

FindFile メソッド「ファイルを開く」ダイアログボックスを表示します。G …

: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）

FreeFile 関数 Open ステートメントで使用するファイル番号（ 1 ～ …

: テキストファイル：出力する 1 行の幅を設定（Width # ステートメント）

Width # ステートメント Open ステートメントをシーケンシャル出力モ …

: テキストファイル：データを書き込む（Put ステートメント）

Put ステートメント Open ステートメントをランダムアクセスモード（Ra …

: ファイルのタイムスタンプを取得（FileDateTime 関数）

ファイルのタイムスタンプを取得ファイルのタイムスタンプを取得するには、File …

: ディレクトリまたはフォルダの削除（RmDir ステートメント）

ディレクトリまたはフォルダの削除ディレクトリまたはフォルダを削除するには、Rm …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

: テキストファイル：データを読み込む（Get ステートメント）

Get ステートメント Open ステートメントをランダムアクセスモード（Ra …

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

PREV: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）
NEXT: ファイルを削除（Kill ステートメント）