回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -13,7 +13,7 @@
|
|
|
13
13
|
|
|
14
14
|
Do While buf <> ""
|
|
15
15
|
'開かずに処理
|
|
16
|
-
ca = ExecuteExcel4Macro("'" & path & "[" & buf & "]Sheet1'!
|
|
16
|
+
ca = ExecuteExcel4Macro("'" & path & "[" & buf & "]Sheet1'!R2C3")
|
|
17
17
|
Debug.Print ca
|
|
18
18
|
buf = Dir()
|
|
19
19
|
Loop
|