在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對象以釋放資源。
