質問編集履歴
1
コードを追記しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -58,4 +58,8 @@
|
|
58
58
|
|
59
59
|
Do Until rs.EOF
|
60
60
|
|
61
|
+
Set oXlsSheet = oXlsBook.Worksheets.Add(Before:=oXlsBook.Worksheets("Sheet1"))
|
62
|
+
|
63
|
+
oXlsSheet.name = rs!項目A
|
64
|
+
|
61
65
|
```
|