Возврат значения из Excel

Question

У меня есть проблема, чтобы получить значение с листа excel. Я следую учебнику, но он не работает. Я также включил ссылки Excel в слово, но до сих пор я не могу вернуть значение
Это мой код:

Sub Return_a_Value_from_Excel() 

Dim mySpreadsheet As Excel.Workbook 
Dim strSalesTotal As String 

Set mySpreadsheet = GetObject("C:\Documents\Book1.xls") 
strSalesTotal = mySpreadsheet.Application.Range("Test").Value 
Set mySpreadsheet = Nothing 

Selection.TypeText "Current sales total: $" & strSalesTotal & "." 
Selection.TypeParagraph 
End Sub 

Я просто хочу, чтобы вернуть значение, которое записывается в первенствует

Answer 1

Вы делаете это неправильно, Вы должны следовать Excel Object Model т.е.

Application -> Рабочая книга -> Sheets -> Range/Chart

В строке ниже:

strSalesTotal = mySpreadsheet.Application.Range("Test").Value 

Вы пропустили Sheets, Ваш код должен быть

strSalesTotal = mySpreadsheet.Sheets("Sheet1").Range("A1").Value 

Пожалуйста, замените «Лист1» и «А1» Accorodingly

Answer 2

Или попробуйте, как это, если вы не определили его явно быть действительным только в диапазоне листа:

strSalesTotal = mySpreadsheet.Range("Test").Value 

или

strSalesTotal = mySpreadsheet.[Test]