質問編集履歴
1
よりわかりやすい質問に修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -10,17 +10,19 @@
|
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
|
13
|
+
※やりたいことがわかりづらいと思うのでもう少し詳しく書きます。
|
|
14
|
+
|
|
13
15
|
|
|
14
16
|
|
|
15
17
|
▼作っているもの
|
|
16
18
|
|
|
17
19
|
======================================
|
|
18
20
|
|
|
19
|
-
|
|
21
|
+
・複数のデータを読み込み
|
|
22
|
+
|
|
20
|
-
|
|
23
|
+
・その中身を一枚のシートにまとめ
|
|
24
|
+
|
|
21
|
-
読み込んだファイルの名前
|
|
25
|
+
・さらに読み込んだファイルの名前をシートに書き出してくれるツール
|
|
22
|
-
|
|
23
|
-
|
|
24
26
|
|
|
25
27
|
======================================
|
|
26
28
|
|
|
@@ -30,17 +32,15 @@
|
|
|
30
32
|
|
|
31
33
|
======================================
|
|
32
34
|
|
|
35
|
+
・複数のファイルは読み込むことができた。
|
|
36
|
+
|
|
37
|
+
しかし、ファイルの名前をシートに書き出してくる時点で、
|
|
38
|
+
|
|
39
|
+
ファイルの「名前」をシートに書き出すことができず、
|
|
40
|
+
|
|
41
|
+
代わりにファイルの「中身」を書き出してしまう。
|
|
42
|
+
|
|
33
|
-
|
|
43
|
+
→ファイルの名前をきちんととってこれるようにしたい。
|
|
34
|
-
|
|
35
|
-
→一つのセルに一つの名前を入れたい。
|
|
36
|
-
|
|
37
|
-
|
|
38
|
-
|
|
39
|
-
・ファイルを選択するときと、ファイルを名を取得するとき
|
|
40
|
-
|
|
41
|
-
二回のＯＫを押さなければいけない。
|
|
42
|
-
|
|
43
|
-
→できれば、ファイルを選択した時、ファイル名も一緒に取ってきてほしい。
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
|
|
@@ -278,6 +278,38 @@
|
|
|
278
278
|
|
|
279
279
|
============================================================================
|
|
280
280
|
|
|
281
|
+
'ファイル名取得()
|
|
282
|
+
|
|
283
|
+
Dim sPath As String, buf2 As String, cnt As Long
|
|
284
|
+
|
|
285
|
+
With Application.FileDialog(msoFileDialogFolderPicker) ' ▲
|
|
286
|
+
|
|
287
|
+
If .Show <> True Then Exit Sub ' ▲
|
|
288
|
+
|
|
289
|
+
sPath = .SelectedItems(1) ' ▲
|
|
290
|
+
|
|
291
|
+
End With ' ▲
|
|
292
|
+
|
|
293
|
+
|
|
294
|
+
|
|
295
|
+
buf2 = Dir(sPath & "\*.*")
|
|
296
|
+
|
|
297
|
+
Do While buf2 <> ""
|
|
298
|
+
|
|
299
|
+
cnt = cnt + 1
|
|
300
|
+
|
|
301
|
+
Cells(cnt + 12, 2) = buf
|
|
302
|
+
|
|
303
|
+
buf2 = Dir()
|
|
304
|
+
|
|
305
|
+
Loop
|
|
306
|
+
|
|
307
|
+
|
|
308
|
+
|
|
309
|
+
この部分単品で動かしたときは、きちんとファイルの名前をとってくることができ、ファイルの中身を吐き出したりはしない。
|
|
310
|
+
|
|
311
|
+
|
|
312
|
+
|
|
281
313
|
以上です。
|
|
282
314
|
|
|
283
315
|
お力を貸していただきたいです。
|