有没有直接读取 Excel 文档的方法?

Dim exApp As Excel.Application
Dim exwbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Dim sheet As Excel.Worksheet

'打開EXCEL數据文件
Set exApp = New Excel.Application
exApp.Visible = True
exApp.Workbooks.Open "d:\book.xls"
set exwbook=exapp.activeworkbook
set sheet=exwbook.worksheet(1)
Text1.Text = sheet.Cells(2, 2).Value

给你一个考贝工作表的例子，给它传FileName文件名，sPath路径即可
Private Function copySheet(ByVal FileName As String, ByVal sPath As String) As Boolean
Dim objWorksheet As Worksheet
Dim strWsName As String
Dim objSheet As Sheet2
Dim FilePath As String

'考贝工作表
FilePath = sPath & "\" & FileName
Workbooks.Open sPath & "\" & FileName
For Each objWorksheet In Worksheets
strWsName = objWorksheet.Name
Next objWorksheet

Windows(FileName).Activate
Sheets(strWsName).Copy After:=Workbooks(ThisWorkbook.Name).Sheets(index)

'关闭活动窗口
Excel.Workbooks(FileName).Close False
End Function

那你怎么打啊？
都不知道打哪个!用VSTO吧
说具体点我可能帮你看看