首先需要知道你要引用的資料在Excel中的位置，然後在VB裡面引用Excel，

然後開啟Excel檔案讀資料

DimscxlsAsExcel.Application

DimscbookAsExcel.Workbook

DimscsheetAsExcel.Worksheet

‘Setscxls=CreateObject("excel.application")

‘Setscbook=scxls.Workbooks.Add

Setscbook=scxls.Workbooks.open("c:\1.xls")

Setscsheet=scbook.Worksheets(1)

‘scsheet.Cells(1,2)="1111"’寫入資料

a=scsheet.Cells(1,2)"讀取資料

Setscbook=Nothing

Setscxls=Nothing

‘scxls.Visible=True’顯示Excle

資料較多，且有規律可循時，請使用迴圈語句