質問編集履歴
3
コードの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -93,3 +93,79 @@
|
|
|
93
93
|
End Sub
|
|
94
94
|
|
|
95
95
|
```
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+
|
|
99
|
+
こちらのコードでは理想の動きをしました。理由は判りません。
|
|
100
|
+
|
|
101
|
+
|
|
102
|
+
|
|
103
|
+
```VBA
|
|
104
|
+
|
|
105
|
+
Public Sub 児童名簿_地区別_出力()
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
Dim objExcel As Excel.Application
|
|
110
|
+
|
|
111
|
+
Set objExcel = New Excel.Application
|
|
112
|
+
|
|
113
|
+
Dim objWb As Excel.Workbook
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
Dim varXls As Variant
|
|
118
|
+
|
|
119
|
+
Dim varAc As Variant
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
varXls = Application.CurrentProject.Path & "\temp\" & "児童名簿（地区別）.xls"
|
|
124
|
+
|
|
125
|
+
varAc = "Q_児童名簿（地区・コード）"
|
|
126
|
+
|
|
127
|
+
|
|
128
|
+
|
|
129
|
+
Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
|
|
130
|
+
|
|
131
|
+
PASSWORD:=PASSWORD_STRING)
|
|
132
|
+
|
|
133
|
+
|
|
134
|
+
|
|
135
|
+
objWb.PASSWORD = ""
|
|
136
|
+
|
|
137
|
+
objWb.Save
|
|
138
|
+
|
|
139
|
+
objWb.Close
|
|
140
|
+
|
|
141
|
+
Set objWb = Nothing
|
|
142
|
+
|
|
143
|
+
|
|
144
|
+
|
|
145
|
+
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
|
|
146
|
+
|
|
147
|
+
varAc, varXls, True
|
|
148
|
+
|
|
149
|
+
|
|
150
|
+
|
|
151
|
+
Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
|
|
152
|
+
|
|
153
|
+
PASSWORD:="")
|
|
154
|
+
|
|
155
|
+
objWb.PASSWORD = PASSWORD_STRING
|
|
156
|
+
|
|
157
|
+
objWb.Save
|
|
158
|
+
|
|
159
|
+
objExcel.Quit
|
|
160
|
+
|
|
161
|
+
Set objWb = Nothing
|
|
162
|
+
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
Set objExcel = Nothing
|
|
166
|
+
|
|
167
|
+
|
|
168
|
+
|
|
169
|
+
End Sub
|
|
170
|
+
|
|
171
|
+
```
|
2
試したこと・確認したことの記述内容を修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,13 +20,13 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
__「3011 : オブジェクト 'Q_児童名簿（地区
|
|
23
|
+
__「3011 : オブジェクト 'Q_児童名簿（地区・コード）' が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。'Q_児童名簿（地区・コード）' がローカル オブジェクトでない場合は、ネットワークの接続を確認するか、サーバー管理者に問い合わせてください。」__
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
27
|
###試したこと・確認したこと
|
|
28
28
|
|
|
29
|
-
- Acceessのクエリ「Q_児童名簿（地区
|
|
29
|
+
- Acceessのクエリ「Q_児童名簿（地区・コード）」が存在していて、Accessでは実行できていること。
|
|
30
30
|
|
|
31
31
|
- 出力先のExcelファイルをxls形式にして、acSpreadsheetTypeExcel9にするとエクスポートできる。
|
|
32
32
|
|
1
コードのtypo
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,15 +58,11 @@
|
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|
|
61
|
+
varXls = Application.CurrentProject.Path & "\temp\" & "児童名簿（地区別）.xlsm"
|
|
62
|
+
|
|
61
63
|
varAc = "Q_児童名簿（地区・コード）"
|
|
62
64
|
|
|
63
|
-
|
|
65
|
+
|
|
64
|
-
|
|
65
|
-
|
|
66
|
-
|
|
67
|
-
On Error Resume Next
|
|
68
|
-
|
|
69
|
-
|
|
70
66
|
|
|
71
67
|
Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
|
|
72
68
|
|