1、用VB 打开EXCEL 文件 2、遍历sheets和cellsDim xlApp
As Excel.ApplicationDim xlbook
As Excel.WorkbookDim xlsheet As Excel.WorksheetPrivate Sub Command1_Click()
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlbook = xlApp.Workbooks.Open("d:\hao\1.xls")For i = 1 To xlbook.Work