質問編集履歴
1
コード部分を<code>に書きました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -10,7 +10,9 @@
|
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
|
13
|
+
|
|
14
|
+
|
|
13
|
-
|
|
15
|
+
```ここに言語を入力
|
|
14
16
|
|
|
15
17
|
Dim cc As ADODB.Connection
|
|
16
18
|
|
|
@@ -38,25 +40,21 @@
|
|
|
38
40
|
|
|
39
41
|
|
|
40
42
|
|
|
41
|
-
|
|
43
|
+
mySQL1 = "SELECT * FROM [……]"
|
|
42
44
|
|
|
43
|
-
|
|
45
|
+
cmd.ActiveConnection = cc
|
|
44
46
|
|
|
45
|
-
|
|
47
|
+
cmd.CommandText = ……
|
|
46
48
|
|
|
47
|
-
|
|
49
|
+
Set In1 = cmd.Execute
|
|
48
50
|
|
|
49
|
-
|
|
50
|
-
|
|
51
|
-
|
|
51
|
+
```
|
|
52
|
-
|
|
53
|
-
|
|
54
52
|
|
|
55
53
|
のようにADOを使っているのですが、
|
|
56
54
|
|
|
57
55
|
|
|
58
56
|
|
|
59
|
-
|
|
57
|
+
```ここに言語を入力
|
|
60
58
|
|
|
61
59
|
Dim xlApp as object
|
|
62
60
|
|
|
@@ -70,7 +68,7 @@
|
|
|
70
68
|
|
|
71
69
|
|
|
72
70
|
|
|
73
|
-
------処理--------
|
|
71
|
+
'------処理--------
|
|
74
72
|
|
|
75
73
|
|
|
76
74
|
|
|
@@ -84,11 +82,7 @@
|
|
|
84
82
|
|
|
85
83
|
Set xlApp = Nothing
|
|
86
84
|
|
|
87
|
-
|
|
88
|
-
|
|
89
|
-
|
|
85
|
+
```
|
|
90
|
-
|
|
91
|
-
|
|
92
86
|
|
|
93
87
|
のように CreateObjectを使ってもExcelファイルの中身を
|
|
94
88
|
|