VBA ファイル名の変更は、Nameステートメント

====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流ＰＧ 番外編 今日の一品 No.023 ] 　 2000/04/13 木曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流ＰＧ 番外編 今日の一品 は 隠し味として、
軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------
VBA Nameステートメント

久しぶりにスパムメールでイジメラレテイルＫｅｎ３です。
まだ、70通ぐらいだから軽いほう？
ってのは、置いといて、
今回は、マジメなメールに対する回答、
久しぶりに、ＶＢＡ　関係？です。
＊なんて大きく言ってますが、たいしたことないです。

あっ、逃げないで下さい、そろそろ、まじめに始めますから。

下記のメールをいただきました。
------------------------------------------------------
In message "以前お願いした件",
 >以前、お願いしたＤＢを基にした、ファイルの名前変換プログラム。
 >Ａｃｃｅｓｓを使ってできませんか？
 >データベースには受験番号と学籍番号を用意します。
 >ファイル名は受験番号．ｊｐｇになっていますが、
 >一括にてデータベースを参照しながら、学籍番号．ｊｐｇに変換できませんか？
 >もう、そろそろ、本題の始末もお願いします。

In message "ファイル名変換について",
 >リクエストしましたデータベースを基にファイル名を変換するＰＧですが、
 >アクセスを使ってできませんか？
 >受験番号、学籍番号というフィールドを使って、
 >受験番号.jpgから学籍番号.jpgに一括変換。
 >どうでしょうか？
------------------------------------------------------

あれ、、、忘れてました。
今の状態、まるで、知り合いに借りたお金を忘れるヤツ、、
で
貸したほうは当然おぼえていて、いつ返してくれるんだろう？
チョットやだな状態、、、そんな感じかな。

いつものくだらない前置きはそれぐらいにしろ、、
と
心の声が聞こえたとこで、
VBA で Name ステートメント を使用して、変更してみようと思います。
構文は、ヘルプをそのまま引用すると（いいのかなぁ？）

Name oldpathname As newpathname
で、変更可能です。

例) Name "c:\aaa.jpg" As "c:\bbb.jpg"  でファイル名変更可能
　　だが、変更元ファイルが無いと、実行時エラーが発生するので注意。

要望はＡｃｃｅｓｓですが、Ｅｘｃｅｌ９７のＶＢＡでサンプル書きます。
＊ＨＰ容量いっぱいで、サンプル置けないので、
　ファイルでほしい人は、VBA Nameステートメントサンプル希望でメール下さい。

下記のようなシートの状態にします
Ａ列に古い名前（受験番号）
Ｂ列に新しい名前（学籍番号）を保存して下さい。
   A                B
1 受験番号          学籍番号
2 d:\work\0001.jpg  d:\work\2000-0001.jpg
3 d:\work\0002.jpg  d:\work\2000-0002.jpg
4 d:\work\0003.jpg  d:\work\2000-0003.jpg
5 d:\work\0004.jpg  d:\work\2000-0004.jpg

Sub TestMain()

    Dim nYLINE     As Integer   '行カウンタ
    Dim strOLDNAME As String    '変更元ファイル名
    Dim strNEWNAME As String    '変更先ファイル名
    
    nYLINE = 2  '見出しを飛ばして、２行目から処理
    
    'A列のデータがある間、ループする
    While Len(Cells(nYLINE, 1)) <> 0
        '値の代入
        strOLDNAME = Cells(nYLINE, 1)  'A列
        strNEWNAME = Cells(nYLINE, 2)  'B列
        '変更元ファイルがあるときだけ処理する(したい)
        If Dir(strOLDNAME) <> "" Then
            Name strOLDNAME As strNEWNAME
        Else
            Cells(nYLINE, 3) = "ファイルが見つかりません" 'ナマイキにエラーをセット
        End If
    
        nYLINE = nYLINE + 1   '忘れずに、次の行へポイントを移動
    Wend
    
    MsgBox "処理終了"

End Sub

また、雑な動けばイイヤ的プログラムですが、
何かの参考となれば、、幸いです。

逃げ出す前に、
フルバスd:\work\2000-004.jpgとディレクトリ付きはなんか芸が無いなあ、、
せめて、自分（ｘｌｓの位置）か、パス指定可能としないと、なんかなさけないなぁ。

Excel で下記のようにシートを作って小細工もできるけど、、
   A                B               C     D         E
1 受験番号          学籍番号
2 ="c:\work\"&D2    ="c:\work\"&E2        0001.jpg   2000-0001.jpg
みたいに、セルに計算式をいれてかわすなんてこともできます。

規則性がある変換の時、ワークシート関数を併用して、
ＶＢＡ側は変えないなんてこともできるかも？

   A                B               
1 CSV               TXT
2 c:\work\001.csv   =LEFT(A2,LEN(A2)-3)&"txt" ←ワークシート関数で、、

なんて、余談が多すぎましたね、、、

また、これは蛇足だ、、私ならこう処理する、、
この切り口は？
など、この例題処理？課題？のうまい調理法、思いついた人は、
掲示板に、気軽にご指摘・文句なんでも下さい。

なんで質問されたＡｃｃｅｓｓでやらないで、、
ホントひねくれ者の三流ＰＧだなぁ、、
と
声が聞こえてきたところで、このへんで、、
変り者の Ｋｅｎ３ でした。。。

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を