Excel VBA質問箱 IV

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

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


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

30452 / 76732

←次へ　｜　前へ→


	【51547】Re:ファイル名の変更

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


	引用なし

	パスワード

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

3 hits

▼

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