<em>vb</em>怎样读取<em>excel</em>表中含公式的单

这个不zd用VBA就可以实现 将科目“语”，“数”，“外”这些科目复制到表一（随便哪一列，到时候隐藏就行了打比方在F列吧） 在表一A1使用数据有效性--有效性条件选回择序列--来源就选F列你复制的答那些类容区域。 这样 A1就有下拉框 可以选择这些科目 接着 在表一 B1单元格输入公式==VLOOKUP(A1,Sheet2!A:D,4,)

直接读取就可以了（我刚才试过）
比如：
i = Sheet4.Range("E10").Value
我的sheet4单元格E10就是公式
我给你个简单的例子，假设有文件＂c:\1.xls＂
'要在VB中操作Excel，需要引用Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号
Private Sub Command6_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
'设置7a64e4b893e5b19e366Excel为不可见
excel_App.Visible = False
'打开文件
Set excel_Book = excel_App.Workbooks.Open("C:\1.XLS") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例
excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"
excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100
excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9
excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算
'''''''''''''''''''''''''''''''''''
'关闭Excel文件
Set excel_sheet = Nothing
excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing
End Sub

错误不少啊？e799bee5baa6e59b9ee7ad94332

用这个吧！

Dim a(101) As String
Dim i As Integer
Dim b As Double
 
Dim ExcelApp As Excel.Application
Dim ExcelworkBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
 
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelworkBook = ExcelApp.Workbooks.Open("C:\Book1.xls")
 
ExcelApp.Visible = False
ExcelworkBook.Sheets("Sheet2").Activate
ExcelApp.Range("A1").Select
'读取值
Text1.Text = ExcelApp.ActiveCell.Offset(0, 0).Value
Text2.Text = ExcelApp.ActiveCell.Offset(0, 1).Value
Text3.Text = ExcelApp.ActiveCell.Offset(1, 2).Value

ExcelworkBook.Close

Set ExcelSheet = Nothing
Set ExcelworkBook = Nothing
Set ExcelApp = Nothing