Excel VBA質問箱 IV

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

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


22920 / 76732 ←次へ | 前へ→

【59184】Re:空欄の時もリネームする方法
発言  Jaka  - 08/12/1(月) 15:51 -

引用なし
パスワード
   本当に同名になるファイル名などがあるからじゃないですか?
私が思うにこれが農高だと思います。
ちゃんと確認した方が良いと思いますが。

>>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
>
> '単にこうやって空白かどうかを確認すれば良いんじゃないですか。
>   If 変換後 <> "" then
     if Dir(変換後) <> "" Then
      msgbox "同名有"
     else
>>     Name 変換前 As 変換後
     End If
>   End if
>
>>  行 = 行 + 1
>>   Loop
>>End Sub
0 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 発言

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