回答編集履歴
1
追記
answer
CHANGED
|
@@ -23,4 +23,28 @@
|
|
|
23
23
|
rs.Fields(i).Value = rng.Cells(1, i+1).Value
|
|
24
24
|
Next
|
|
25
25
|
rs.Update
|
|
26
|
+
```
|
|
27
|
+
|
|
28
|
+
追記
|
|
29
|
+
---
|
|
30
|
+
エクセルの疑似レコードが下記のように項目名も持たせた場合の例
|
|
31
|
+
|
|
32
|
+
|項目1|項目2|項目3|・・・|
|
|
33
|
+
|:--|:--:|--:|--:|
|
|
34
|
+
|値1|値2|値3|・・・|
|
|
35
|
+
|
|
36
|
+
```vba
|
|
37
|
+
Dim rs As ADODB.Recordset
|
|
38
|
+
Dim i As Long
|
|
39
|
+
Dim rng As Range
|
|
40
|
+
|
|
41
|
+
'・・・ レコードセットrsを開く処理（略）
|
|
42
|
+
|
|
43
|
+
Set rng = Range("A10";"G11") '疑似レコードの範囲（1行目項目名、2行目値）
|
|
44
|
+
|
|
45
|
+
rs.AddNew
|
|
46
|
+
For i = 1 To rng.Columns.Count
|
|
47
|
+
rs.Fields(rng.Cells(1, i).Value).Value = rng.Cells(2, i).Value
|
|
48
|
+
Next
|
|
49
|
+
rs.Update
|
|
26
50
|
```
|