質問編集履歴
2
試したことを追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -50,6 +50,8 @@
|
|
|
50
50
|
|
|
51
51
|
###該当のソースコード
|
|
52
52
|
|
|
53
|
+
```VBA
|
|
54
|
+
|
|
53
55
|
Dim xlapp As Variant
|
|
54
56
|
|
|
55
57
|
Set xlapp = CreateObject("excel.application")
|
|
@@ -74,7 +76,7 @@
|
|
|
74
76
|
|
|
75
77
|
Set work_book = xlbooks.Open(filepath, ReadOnly:=True)
|
|
76
78
|
|
|
77
|
-
|
|
79
|
+
```
|
|
78
80
|
|
|
79
81
|
|
|
80
82
|
|
|
@@ -87,6 +89,8 @@
|
|
|
87
89
|
|
|
88
90
|
|
|
89
91
|
1.別Verのエクセルが導入された可能性を見越してExcelのVerをチェック
|
|
92
|
+
|
|
93
|
+
```VBA
|
|
90
94
|
|
|
91
95
|
If xlapp.Version <> 14# Then
|
|
92
96
|
|
|
@@ -103,6 +107,8 @@
|
|
|
103
107
|
Call m_output_log.output_log("ExcelVer切り替え:" & old_ver)
|
|
104
108
|
|
|
105
109
|
End If
|
|
110
|
+
|
|
111
|
+
```
|
|
106
112
|
|
|
107
113
|
|
|
108
114
|
|
|
@@ -122,6 +128,14 @@
|
|
|
122
128
|
|
|
123
129
|
|
|
124
130
|
|
|
131
|
+
6.CreateObjectを使用せずに下記のコードでのOpen
|
|
132
|
+
|
|
133
|
+
```VBA
|
|
134
|
+
|
|
135
|
+
Set work_book = Workbooks.Open(report_file, ReadOnly:=True)
|
|
136
|
+
|
|
137
|
+
```
|
|
138
|
+
|
|
125
139
|
###補足情報
|
|
126
140
|
|
|
127
141
|
特定のPCで使用しているファイルを別PCにコピーして実行してもエラーが出ない為
|
1
環境情報追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,10 +1,24 @@
|
|
|
1
1
|
###Excel2010のVBAにて別Bookを開きたい
|
|
2
2
|
|
|
3
|
-
Windows10、Excel2010の環境にて
|
|
3
|
+
Windows~~10~~7(32bit)、Excel2010の環境にて
|
|
4
4
|
|
|
5
5
|
ExcelVBAにて別のBookを開く際にエラーが出て
|
|
6
6
|
|
|
7
7
|
Bookを開くことが出来ない
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
追記
|
|
12
|
+
|
|
13
|
+
Excel2010 Version14.0.7015.1000（32ビット）
|
|
14
|
+
|
|
15
|
+
開こうとしているBookに関して
|
|
16
|
+
|
|
17
|
+
・.xlsxファイル(このファイルを生成したExcelのVersionは不明）
|
|
18
|
+
|
|
19
|
+
・シート数30弱
|
|
20
|
+
|
|
21
|
+
・マクロ等はしこまれていない
|
|
8
22
|
|
|
9
23
|
|
|
10
24
|
|
|
@@ -53,6 +67,8 @@
|
|
|
53
67
|
End If
|
|
54
68
|
|
|
55
69
|
|
|
70
|
+
|
|
71
|
+
Set xlbooks = xlapp.Workbooks
|
|
56
72
|
|
|
57
73
|
’ここでエラーが発生
|
|
58
74
|
|