質問編集履歴
3
コードの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -45,4 +45,42 @@
|
|
|
45
45
|
Set objExcel = Nothing
|
|
46
46
|
|
|
47
47
|
End Sub
|
|
48
|
+
```
|
|
49
|
+
|
|
50
|
+
こちらのコードでは理想の動きをしました。理由は判りません。
|
|
51
|
+
|
|
52
|
+
```VBA
|
|
53
|
+
Public Sub 児童名簿_地区別_出力()
|
|
54
|
+
|
|
55
|
+
Dim objExcel As Excel.Application
|
|
56
|
+
Set objExcel = New Excel.Application
|
|
57
|
+
Dim objWb As Excel.Workbook
|
|
58
|
+
|
|
59
|
+
Dim varXls As Variant
|
|
60
|
+
Dim varAc As Variant
|
|
61
|
+
|
|
62
|
+
varXls = Application.CurrentProject.Path & "\temp\" & "児童名簿（地区別）.xls"
|
|
63
|
+
varAc = "Q_児童名簿（地区・コード）"
|
|
64
|
+
|
|
65
|
+
Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
|
|
66
|
+
PASSWORD:=PASSWORD_STRING)
|
|
67
|
+
|
|
68
|
+
objWb.PASSWORD = ""
|
|
69
|
+
objWb.Save
|
|
70
|
+
objWb.Close
|
|
71
|
+
Set objWb = Nothing
|
|
72
|
+
|
|
73
|
+
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
|
|
74
|
+
varAc, varXls, True
|
|
75
|
+
|
|
76
|
+
Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
|
|
77
|
+
PASSWORD:="")
|
|
78
|
+
objWb.PASSWORD = PASSWORD_STRING
|
|
79
|
+
objWb.Save
|
|
80
|
+
objExcel.Quit
|
|
81
|
+
Set objWb = Nothing
|
|
82
|
+
|
|
83
|
+
Set objExcel = Nothing
|
|
84
|
+
|
|
85
|
+
End Sub
|
|
48
86
|
```
|
2
試したこと・確認したことの記述内容を修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -9,10 +9,10 @@
|
|
|
9
9
|
|
|
10
10
|
エラーの内容は次の通りで、エクスポートすることができません。
|
|
11
11
|
|
|
12
|
-
__「3011 : オブジェクト 'Q_児童名簿（地区
|
|
12
|
+
__「3011 : オブジェクト 'Q_児童名簿（地区・コード）' が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。'Q_児童名簿（地区・コード）' がローカル オブジェクトでない場合は、ネットワークの接続を確認するか、サーバー管理者に問い合わせてください。」__
|
|
13
13
|
|
|
14
14
|
###試したこと・確認したこと
|
|
15
|
-
- Acceessのクエリ「Q_児童名簿（地区
|
|
15
|
+
- Acceessのクエリ「Q_児童名簿（地区・コード）」が存在していて、Accessでは実行できていること。
|
|
16
16
|
- 出力先のExcelファイルをxls形式にして、acSpreadsheetTypeExcel9にするとエクスポートできる。
|
|
17
17
|
|
|
18
18
|
|
1
コードのtypo
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,11 +28,9 @@
|
|
|
28
28
|
Dim varXls As Variant
|
|
29
29
|
Dim varAc As Variant
|
|
30
30
|
|
|
31
|
+
varXls = Application.CurrentProject.Path & "\temp\" & "児童名簿（地区別）.xlsm"
|
|
31
32
|
varAc = "Q_児童名簿（地区・コード）"
|
|
32
|
-
|
|
33
|
+
|
|
33
|
-
|
|
34
|
-
On Error Resume Next
|
|
35
|
-
|
|
36
34
|
Set objWb = objExcel.Workbooks.Open(FileName:=varXls, ReadOnly:=False, _
|
|
37
35
|
Password:=PASSWORD_STRING)
|
|
38
36
|
|