Excel VBA質問箱 IV

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

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


3 / 13290 ツリー ←次へ | 前へ→

【80810】フォルダ内のファイル名の変更についてです チマ 19/5/16(木) 6:44 質問[未読]

【80811】Re:フォルダ内のファイル名の変更について... γ 19/5/16(木) 7:35 回答[未読]
【80818】Re:フォルダ内のファイル名の変更について... γ 19/5/16(木) 23:42 発言[未読]
【80829】Re:フォルダ内のファイル名の変更について... γ 19/5/18(土) 8:56 発言[未読]

【80811】Re:フォルダ内のファイル名の変更につい...
回答  γ  - 19/5/16(木) 7:35 -

引用なし
パスワード
   変更後の名前である
myfile.ParentFolder.Path & "\" & Mid(myfile.Name, InStr(myfile.Name, "☆☆") + 2, 8) & "_" & myfile.Name
について、それぞれの文字列要素
myfile.ParentFolder.Path
Mid(myfile.Name, InStr(myfile.Name, "☆☆") + 2, 8)
myfile.Name
がどのような内容か、ご自分で観察する必要があるのではないですか?
デバッグ手法をおさらいしてください。

【80818】Re:フォルダ内のファイル名の変更につい...
発言  γ  - 19/5/16(木) 23:42 -

引用なし
パスワード
   プロシージャの一回の実行で同一ファイルに対し
処理が繰り返されることは無いはずです。
なにか操作ミスで二回実行しているのではないかと思います。

【80829】Re:フォルダ内のファイル名の変更につい...
発言  γ  - 19/5/18(土) 8:56 -

引用なし
パスワード
   以下のようなコードでステップ実行をするとわかりますが、
getdataが呼ばれるのは一回だけですから、
更新の結果がさらに入力に影響することはあり得ないと思います。

したがって、
一回のループで、1つのファイルに更新が二回されることはないはずです。

Function getdata() As Variant
  Dim fso As New FileSystemObject
  Set getdata = fso.GetFolder("F:\新しいフォルダー").Files
End Function

Sub ファイル名変更()
  Dim myfile As file
  For Each myfile In getdata
    Debug.Print myfile.Name
  Next myfile
End Sub

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