質問編集履歴
2
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -71,3 +71,37 @@
|
|
71
71
|
|
72
72
|
|
73
73
|
アドバイス、よろしくお願いいたします
|
74
|
+
|
75
|
+
|
76
|
+
|
77
|
+
|
78
|
+
|
79
|
+
追記
|
80
|
+
|
81
|
+
```VBA
|
82
|
+
|
83
|
+
Set folderName = Application.FileDialog(msoFileDialogFolderPicker)
|
84
|
+
|
85
|
+
folderName.Show
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
'ファイルを開くダイアログ
|
90
|
+
|
91
|
+
Set objFS = CreateObject("Scripting.FileSystemObject")
|
92
|
+
|
93
|
+
Set objFD = objFS.GetFolder(folderName)
|
94
|
+
|
95
|
+
|
96
|
+
|
97
|
+
For Each OpenFileName In objectFD.Files
|
98
|
+
|
99
|
+
Next
|
100
|
+
|
101
|
+
```
|
102
|
+
|
103
|
+
For Each OpenFileName In objectFD.Filesでどうしてもエラーが出ます
|
104
|
+
|
105
|
+
パスが見つかりませんとでます
|
106
|
+
|
107
|
+
フォルダのパスがうまくとれていないのでしょうか?
|
1
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -15,6 +15,10 @@
|
|
15
15
|
|
16
16
|
|
17
17
|
都道府県フォルダを選択し、そのなかにある「01東京.txt」「02東京.txt」「大阪02.txt」「000大阪.txt」のファイルを全て開き違った処理を行いたいため、ファイル名を取得しif文で分岐させたいといったものです。
|
18
|
+
|
19
|
+
結果的には「東京」の名の付くテキストファイルは処理により必要な部分を抜き出し「東京.csv」に、
|
20
|
+
|
21
|
+
「大阪」の名の付くテキストファイルは処理により必要な部分を抜き出し「大阪.csv」に出力させたいです。
|
18
22
|
|
19
23
|
|
20
24
|
|