答：以下是用vbs写提取整个电子表格A列的前三位的代码：

Dim xlApp, xlBook, xlSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\test\test.xlsx")
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To 3

MsgBox (xlSheet.Cells(i,1).Value) 

Next