Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22921 / 76732 ←次へ　｜　前へ→
【59183】Re:空欄の時もリネームする方法
発言  トト  - 08/12/1(月) 15:34 -
引用なし
パスワード
   ▼ArtBox さん：
>もし宜しければ全体像をお教え願えませんか？

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 (変更前 <> フォルダ) And (変換前 <> 変換後) Then
　　　　Name 変換前 As 変換後
　　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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
22921 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free