質問編集履歴
6
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,11 +1,3 @@
|
|
|
1
|
-
bookのファイルのデータをファイルを開かずに参照したいのですが、
|
|
2
|
-
|
|
3
|
-
下記だと、実行時エラー13 型が一致しませんと出てしまいます
|
|
4
|
-
|
|
5
|
-
ご教授願います。
|
|
6
|
-
|
|
7
|
-
|
|
8
|
-
|
|
9
1
|
分かりやすいように書き換えていましたが、本来のコードで質問させていただきます
|
|
10
2
|
|
|
11
3
|
sampleでFileSearchを引数つきで呼び出します
|
|
@@ -18,7 +10,7 @@
|
|
|
18
10
|
|
|
19
11
|
|
|
20
12
|
|
|
21
|
-
|
|
13
|
+
以下だとオブジェクトは、このプロパティまたはメソッドをサポートしていません。と表示されてしまいます。
|
|
22
14
|
|
|
23
15
|
|
|
24
16
|
|
|
@@ -56,7 +48,7 @@
|
|
|
56
48
|
|
|
57
49
|
|
|
58
50
|
|
|
59
|
-
|
|
51
|
+
Thisworkbook.Worksheets("イベント").Range("A33").Value = ExecuteExcel4Macro("'" & path & "[" & buf & "]テスト2シート'!R1C1")
|
|
60
52
|
|
|
61
53
|
|
|
62
54
|
|
5
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -56,9 +56,9 @@
|
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
59
|
-
|
|
59
|
+
thisworkbook.worksheets(1).range("A33").value = ExecuteExcel4Macro("'" & path & "[" & buf & "]テスト2シート'!R1C1")
|
|
60
60
|
|
|
61
|
-
|
|
61
|
+
|
|
62
62
|
|
|
63
63
|
|
|
64
64
|
|
4
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,9 +30,9 @@
|
|
|
30
30
|
|
|
31
31
|
Sub sample()
|
|
32
32
|
|
|
33
|
-
'**は伏字です
|
|
34
33
|
|
|
34
|
+
|
|
35
|
-
Call FileSearch("C:\Users
|
|
35
|
+
Call FileSearch("C:\Users\kimura\Documents\Document\テスト)
|
|
36
36
|
|
|
37
37
|
End Sub
|
|
38
38
|
|
|
@@ -80,10 +80,6 @@
|
|
|
80
80
|
|
|
81
81
|
|
|
82
82
|
|
|
83
|
-
|
|
84
|
-
|
|
85
|
-
|
|
86
|
-
|
|
87
83
|
|
|
88
84
|
|
|
89
85
|
End Sub
|
3
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
Sub sample()
|
|
32
32
|
|
|
33
|
-
|
|
33
|
+
'**は伏字です
|
|
34
34
|
|
|
35
35
|
Call FileSearch("C:\Users***\Documents\Document****)
|
|
36
36
|
|
2
更新
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -3,6 +3,20 @@
|
|
|
3
3
|
下記だと、実行時エラー13 型が一致しませんと出てしまいます
|
|
4
4
|
|
|
5
5
|
ご教授願います。
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
分かりやすいように書き換えていましたが、本来のコードで質問させていただきます
|
|
10
|
+
|
|
11
|
+
sampleでFileSearchを引数つきで呼び出します
|
|
12
|
+
|
|
13
|
+
一番下のFor Each Folder In FSO.GetFolder(path).SubFoldersの記述でサブフォルダを再帰を使い全て取得していきます。
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
Do While book <> ""で、サブフォルダに指定したファイル(book)がある場合、そのファイルを開かずに何らかの処理をしたいと思っています
|
|
18
|
+
|
|
19
|
+
|
|
6
20
|
|
|
7
21
|
|
|
8
22
|
|
|
@@ -12,33 +26,49 @@
|
|
|
12
26
|
|
|
13
27
|
|
|
14
28
|
|
|
15
|
-
Sub FileSearch(path As String)
|
|
16
29
|
|
|
17
|
-
path = "C:\Users**\Documents\Document*"
|
|
18
30
|
|
|
19
|
-
b
|
|
31
|
+
Sub sample()
|
|
20
32
|
|
|
21
33
|
|
|
22
34
|
|
|
35
|
+
Call FileSearch("C:\Users***\Documents\Document****)
|
|
36
|
+
|
|
37
|
+
End Sub
|
|
38
|
+
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
Sub FileSearch(path As String)
|
|
42
|
+
|
|
43
|
+
|
|
44
|
+
|
|
23
|
-
Dim FSO As Object, Folder As Variant, File As Variant
|
|
45
|
+
Dim FSO As Object, Folder As Variant, File As Variant, buf As String
|
|
46
|
+
|
|
47
|
+
|
|
24
48
|
|
|
25
49
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
26
50
|
|
|
27
|
-
|
|
51
|
+
book = Dir(path & "*テスト.xls*")
|
|
28
52
|
|
|
29
53
|
|
|
30
54
|
|
|
31
55
|
Do While book <> ""
|
|
32
56
|
|
|
33
|
-
'開かずに処理
|
|
34
57
|
|
|
35
|
-
ca = ExecuteExcel4Macro("'path[*テスト.xls*]テスト2シート'!R3C2")
|
|
36
58
|
|
|
59
|
+
ca = ExecuteExcel4Macro("'" & path & "[*テスト.xls*]テスト2シート'!R3C2")
|
|
60
|
+
|
|
37
|
-
Msg
|
|
61
|
+
MsgBox ca
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
buf = Dir()
|
|
38
66
|
|
|
39
67
|
|
|
40
68
|
|
|
41
69
|
Loop
|
|
70
|
+
|
|
71
|
+
|
|
42
72
|
|
|
43
73
|
|
|
44
74
|
|
|
@@ -48,6 +78,18 @@
|
|
|
48
78
|
|
|
49
79
|
Next Folder
|
|
50
80
|
|
|
81
|
+
|
|
82
|
+
|
|
83
|
+
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
|
|
88
|
+
|
|
89
|
+
End Sub
|
|
90
|
+
|
|
91
|
+
|
|
92
|
+
|
|
51
93
|
```
|
|
52
94
|
|
|
53
95
|
参照サイト
|
1
buf をbookに変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,9 +1,3 @@
|
|
|
1
|
-
path = "C:\Users******\Documents\Document*****"
|
|
2
|
-
|
|
3
|
-
book = Dir(path & "*テスト.xls*")
|
|
4
|
-
|
|
5
|
-
|
|
6
|
-
|
|
7
1
|
bookのファイルのデータをファイルを開かずに参照したいのですが、
|
|
8
2
|
|
|
9
3
|
下記だと、実行時エラー13 型が一致しませんと出てしまいます
|
|
@@ -20,6 +14,10 @@
|
|
|
20
14
|
|
|
21
15
|
Sub FileSearch(path As String)
|
|
22
16
|
|
|
17
|
+
path = "C:\Users**\Documents\Document*"
|
|
18
|
+
|
|
19
|
+
book = Dir(path & "*テスト.xls*")
|
|
20
|
+
|
|
23
21
|
|
|
24
22
|
|
|
25
23
|
Dim FSO As Object, Folder As Variant, File As Variant
|
|
@@ -30,7 +28,7 @@
|
|
|
30
28
|
|
|
31
29
|
|
|
32
30
|
|
|
33
|
-
Do While b
|
|
31
|
+
Do While book <> ""
|
|
34
32
|
|
|
35
33
|
'開かずに処理
|
|
36
34
|
|