回答編集履歴

2

加筆修正

2016/10/20 07:54

投稿

退会済みユーザー
test CHANGED
@@ -27,3 +27,7 @@
27
27
  みたいな。
28
28
 
29
29
 
30
+
31
+ それと、もしも`With`を使うなら`End With`するのも忘れずに。
32
+
33
+ オブジェクトを初期化したら、`Set fso = Nothing`とNothingを詰めるのを忘れずに。

1

加筆修正

2016/10/20 07:54

投稿

退会済みユーザー
test CHANGED
@@ -1,3 +1,29 @@
1
1
  GetFo**r**der → GetFo**l**der
2
2
 
3
3
  とかいう話?
4
+
5
+
6
+
7
+ 個人的には、FileSystemObjectオブジェクトやFolderオブジェクトを
8
+
9
+ ちゃんと変数で管理した方がしっくりきます。
10
+
11
+
12
+
13
+ ```VBA
14
+
15
+ Dim fso As Scripting.FileSystemObject
16
+
17
+ Dim d As Scripting.Folder
18
+
19
+ Set fso = CreateObject("Scripting.FileSystemObject")
20
+
21
+ Set d = fso.GetFolder(ActiveSheet.Range("C4").Value)
22
+
23
+ ```
24
+
25
+
26
+
27
+ みたいな。
28
+
29
+