回答編集履歴

1

追記

2019/09/01 08:29

投稿

meg_
meg_

スコア10577

test CHANGED
@@ -1,3 +1,33 @@
1
+ 【追記】下記コードで2.xlsxのsheet1のA1セルの値を取得できます。
2
+
3
+ ```Python
4
+
5
+ Sub test()
6
+
7
+
8
+
9
+ Dim oApp As Object
10
+
11
+
12
+
13
+ Set oApp = CreateObject("Excel.Application")
14
+
15
+
16
+
17
+ With oApp.Workbooks.Open("C:\Users\Documents\2.xlsx")
18
+
19
+ MsgBox .WorkSheets(1).Range("A1").Value
20
+
21
+ End With
22
+
23
+
24
+
25
+ End Sub
26
+
27
+ ```
28
+
29
+
30
+
1
31
  エクセルでRangeとしているところを、アウトルックでは「oApp.Range」とすれば良いかと思います。
2
32
 
3
33
  ```vba