回答編集履歴
2
ExcelVBA
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
```
|
|
23
|
+
```ExcelVBA
|
|
24
24
|
|
|
25
25
|
'***********************************************************
|
|
26
26
|
|
1
<code>部分
test
CHANGED
|
@@ -20,11 +20,15 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
+
```ここに言語を入力
|
|
24
|
+
|
|
23
|
-
'***********************************************************
|
|
25
|
+
'***********************************************************
|
|
24
26
|
|
|
25
27
|
' ACCESS単純読み込み試験
|
|
26
28
|
|
|
27
|
-
'*************************************************************
|
|
29
|
+
'*************************************************************
|
|
30
|
+
|
|
31
|
+
Function Test_Sample_Miniature() As Boolean
|
|
28
32
|
|
|
29
33
|
|
|
30
34
|
|
|
@@ -40,13 +44,13 @@
|
|
|
40
44
|
|
|
41
45
|
Dim lRow As Long
|
|
42
46
|
|
|
43
|
-
|
|
47
|
+
|
|
44
48
|
|
|
45
49
|
'自分フォルダのAccessFile名称取得
|
|
46
50
|
|
|
47
51
|
MyPath = ThisWorkbook.Path & "\" & "Data.mdb"
|
|
48
52
|
|
|
49
|
-
|
|
53
|
+
|
|
50
54
|
|
|
51
55
|
'db1.mdbの取得
|
|
52
56
|
|
|
@@ -56,7 +60,7 @@
|
|
|
56
60
|
|
|
57
61
|
ConnectString = ConnectString & ";Persist Security Info=False"
|
|
58
62
|
|
|
59
|
-
|
|
63
|
+
|
|
60
64
|
|
|
61
65
|
'DataTableはテーブル名称/KUBUNN～UPDYMDは項目名称
|
|
62
66
|
|
|
@@ -90,7 +94,7 @@
|
|
|
90
94
|
|
|
91
95
|
Cn.Open ConnectString
|
|
92
96
|
|
|
93
|
-
|
|
97
|
+
|
|
94
98
|
|
|
95
99
|
'Open Recordset
|
|
96
100
|
|
|
@@ -104,7 +108,7 @@
|
|
|
104
108
|
|
|
105
109
|
'実行処理
|
|
106
110
|
|
|
107
|
-
|
|
111
|
+
|
|
108
112
|
|
|
109
113
|
lRow = 0
|
|
110
114
|
|
|
@@ -150,6 +154,8 @@
|
|
|
150
154
|
|
|
151
155
|
ACCESS単純読み込み試験 = True
|
|
152
156
|
|
|
153
|
-
|
|
157
|
+
|
|
154
158
|
|
|
155
159
|
End Function
|
|
160
|
+
|
|
161
|
+
```
|