Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22917 / 76732 ←次へ | 前へ→

【59187】私の質問の仕方が悪かったようですので改めて質問させて下さい。
質問  ArtBox  - 08/12/1(月) 21:11 -

引用なし
パスワード
   トトさん
Jakaさん

お返事を有難うございました。
私の質問の仕方が悪かったようですので、
改めて委細を説明させて下さい。

Dir関数を使って、A列に「C:\temp」内のファイル名を表示させています。
B列に変更するファイル名を入力するのですが、
A列のファイル名の内、
例えばですが「0」を含んだファイル名のみを変更したいので、
「0」を含んだファイル名には、B列に新しいファイル名を、
変更しないファイル名は、空欄にしてあります。

この場合、以下のコードを使うと、
[1]のみがファイル名変更され、[2]以降は「同名ファイルがあります」と
表示され処理がここで止まってしますのです。

これを回避して、空欄のところはファイル名変更をせず、
[3]以降に進みたいというのが質問の趣旨でございます。

これらを踏まえ、改めて質問させて頂きますので、
宜しくご教授いただければと思います。

    [A]        [B]        [C]
[1]   0123.pdf    0123_M.pdf
[2]   9876.pdf
[3]   0567.pdf    0567_B.pdf
[4]   8523.pdf
[5]   0698.pdf    0698_Q.pdf

----------

Sub ファイル名変更()
 Dim フォルダ As String
 Dim 変換前 As String
 Dim 変換後 As String
 Dim 行 As Long

 フォルダ = Cells(3, 7).Value & "\"
 行 = 3
 Do Until Cells(行, 2).Value = ""
  変換前 = フォルダ & Cells(行, 2).Value
  変換後 = フォルダ & Cells(行, 4).Value
  Name 変換前 As 変換後
  行 = 行 + 1
   Loop
End Sub

1 hits

【59174】空欄の時もリネームする方法 ArtBox 08/12/1(月) 12:29 質問
【59178】Re:空欄の時もリネームする方法 トト 08/12/1(月) 13:59 発言
【59179】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 14:23 質問
【59183】Re:空欄の時もリネームする方法 トト 08/12/1(月) 15:34 発言
【59188】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 22:44 発言
【59180】Re:空欄の時もリネームする方法 Jaka 08/12/1(月) 14:49 発言
【59182】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 15:26 質問
【59184】Re:空欄の時もリネームする方法 Jaka 08/12/1(月) 15:51 発言
【59189】Re:空欄の時もリネームする方法 ArtBox 08/12/1(月) 22:45 発言
【59187】私の質問の仕方が悪かったようですので改め... ArtBox 08/12/1(月) 21:11 質問
【59190】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/1(月) 22:53 発言
【59191】Re:私の質問の仕方が悪かったようですので... ArtBox 08/12/1(月) 23:11 質問
【59192】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/1(月) 23:31 発言
【59193】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/1(月) 23:43 発言
【59194】Re:私の質問の仕方が悪かったようですので... ArtBox 08/12/1(月) 23:56 お礼
【59234】Re:私の質問の仕方が悪かったようですので... かみちゃん 08/12/2(火) 21:49 発言
【59235】Re:私の質問の仕方が悪かったようですので... PN 08/12/2(火) 21:53 発言
【59236】Re:空欄の時もリネームする方法 PN 08/12/2(火) 23:41 質問
【59237】Re:空欄の時もリネームする方法 かみちゃん 08/12/3(水) 0:45 発言
【59246】回答は結構です。 ArtBox 08/12/3(水) 16:17 発言
【59256】Re:回答は結構です。 かみちゃん 08/12/3(水) 20:46 発言

22917 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free