VBからエクセルの特定シート・特定セルのデータ取得？ (ID:84354)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 S.Sさん、nanashiさんありがとうございました。 S.Sさんご推奨サイトにより、解決いたしました！ 今後同じ悩みを抱えられる方へ↓ Private Sub main() Dim objExcelApp As Workbook Dim strExcelFile As String Dim strExcelSheet As String Dim MyValue As Variant Dim strMOji As String 'エクセルのファイル名 strExcelFile = "D:\日本の夜明け機能仕様書.xls" 'ブックのシート名 strExcelSheet = "ファイル定義書" 'エクセルへ参照 Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet") '読む→ここがキモ! MyValue = objExcelApp.ActiveSheet.Cells(5, 2).Value 'Excelのウインドウ（Book)を表示する objExcelApp.Windows(1).Visible = True 'エクセルの終了 objExcelApp.Application.Quit 'オブジェクトを開放 Set objExcelApp = Nothing End Sub