teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2019/09/01 08:29

投稿

meg_
meg_

スコア10978

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