Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30528 / 76807

←次へ　｜　前へ→


	【51546】ファイル名の変更

acch - 07/9/24(月) 21:52 -


	引用なし

	パスワード

下記のSub File_search() を実行し、ワークシート（ファイル名）に旧ファイル名をセットします。新ファイル名を新たに設定し、Name old_name As new_name で書き換えました。実際のファイル名は変更されているのに、下記のSub File_search() を再実行しても変更前のファイル名しか表示されません。どこに問題があるのでしょうか。

Sub file_search()
　Call find_file_clr
　Set fs = Application.filesearch
　With fs
　　look_in = ThisWorkbook.Path & "\払込票"
　　.LookIn = ThisWorkbook.Path & "\払込票"
　　.Filename = "*.csv"
　　.SearchSubFolders = True
　　If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
　　　　For i = 1 To .FoundFiles.Count
　　　　　　 If i > 6 Then
　　　　　　　　Exit For
　　　　　　 End If
　　　　　　 Worksheets("ファイル名").Select
　　　　　　 Worksheets("ファイル名").Cells(i + 1, 2) = .FoundFiles(i)
　　　　Next i
　　End If
　End With
End Sub

End Sub

Sub file_delset()
　 Dim cntr As Integer
　 Dim kill_name As String
''''''''''　　ファイル　削除
　 Worksheets("ファイル名").Select
　 For cntr = 1 To 6 Step 1
　　　If Worksheets("ファイル名").Cells(cntr + 1, 1) = "削除" Then
　　　　 kill_name = Worksheets("ファイル名").Cells(cntr + 1, 2).Value
　　　　 Kill kill_name
　　　End If
　 Next
''''''''''　ファイル名　変更
　 For cntr = 1 To 6 Step 1
　　　If Worksheets("ファイル名").Cells(cntr + 1, 1) = "Ｒｅｎａｍｅ" _
　　　　 And Worksheets("ファイル名").Cells(cntr + 1, 2) <> "" Then
　　　　　　old_name = Worksheets("ファイル名").Cells(cntr + 1, 2).Value
　　　　　　new_name = Worksheets("ファイル名").Cells(cntr + 1, 4).Value
　　　　　　Name old_name As new_name
　　　End If
　 Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Call file_search
End Sub

0 hits

▼

【51546】ファイル名の変更 acch 07/9/24(月) 21:52

≪