Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22926 / 76738 ←次へ　｜　前へ→
【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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22926 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free