在VB中，可以通过以下代码获取Excel单元格的值：
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim cellValue As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\YourExcelFile.xlsx")
Set xlSheet = xlBook.Sheets("Sheet1")
'获取单元格A1的值
cellValue = xlSheet.Range("A1").Value
MsgBox cellValue
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
在这个示例中，我们首先创建一个Excel应用程序对象，然后打开指定的Excel文件，并获取指定工作表中单元格的值。最后，我们将单元格的值显示在一个消息框中。在结束前，需要释放Excel对象以释放资源。
