|
こんにちは。かみちゃん です。
>>「行」が100までありまして、また、途中に「空欄」が幾つもありますので、
>>「3行目以下のB列に空白があれば、そこで、マクロは停止」してしまうと、
>>理想の処理にはならないのです。
>
>であれば、以下のコードはおかしいです。
>Do Until Cells(行, 2).Value = ""
>これは、B列の変数「行」のセルが空白になるまでなので、途中に空白があれば
>そこでDo 〜 Loopの繰り返し処理は終了します。
今スレッドを読み返して、気づきましたが、トトさんが
> If 変換前 <> フォルダ And 変換後 <> フォルダ Then '★
> Name 変換前 As 変換後
> End If '★
と、私が提示したコードと似たコードをすでに提示されていましたね。
私のコードも、
If (変換前 <> フォルダ) And (変換後 <> フォルダ) Then '★
のほうがいいかもしれませんが、
大変失礼しました。
それでも
> 相変わらず「同名ファイルがあります」と表示されます。
ということであれば、
Jakaさんがおっしゃっていますが、
> 本当に同名になるファイル名などがあるから
という可能性と、
>>「行」が100までありまして、また、途中に「空欄」が幾つもありますので、
>>「3行目以下のB列に空白があれば、そこで、マクロは停止」してしまうと、
>>理想の処理にはならないのです。
>
>であれば、以下のコードはおかしいです。
>Do Until Cells(行, 2).Value = ""
>これは、B列の変数「行」のセルが空白になるまでなので、途中に空白があれば
>そこでDo 〜 Loopの繰り返し処理は終了します。
の可能性が高いということになります。
それでもエラーが出るようであれば、
If (変換前 <> フォルダ) And (変換後 <> フォルダ) Then '★
の条件に一致しているということになりますので、
B列とD列の値に、空白ではなく、半角スペースが入っているなど、確認する必要が
あると思います。
|
|