Question

vb读取excel计算公式

比较麻烦
我想在text1中输入产品名称，在text2中输入产品数量，然后点击CAL按钮在text3中显示
"产品xxx的原材料为xxx，质量xxx kg",再计算一个原结果不清除

上面的是excel的数据，其思路为：用户输入产品之后，点击CAL按钮，然后寻找上面EXCEL图号的一列，匹配之后，执行计算，公式为：text2的数值 * T列对应的数据，然后再Text3中显示如：3136414040产品原料为RBB2881-30，质量为xxx公斤(公式计算结果)

先感谢大家。。
excel文件在程序目录下

Answer 1

你的问题比较复杂，可能不是两分钟就能解决的
1、首先要加载excel引用
2、连接excel
3、读取excel中的内容，至少是三个数组
4、匹配问题、显示的问题就是普通的VB了
这里的关键是：
连接excel：做个子程序：
Dim myexcel As Object
myexcel = CreateObject("excel.application")
myexcel.Visible = True ' False '界面不可视
myexcel.Application.DisplayAlerts = False
'myexcel.Application.AlertBeforeOverwriting = False
myexcel.Application.AskToUpdateLinks = False
Return myexcel
读出excel内容：
Dim range As Microsoft.Office.Interop.Excel.Range
Dim pcmsheetdata(,) As Object
pcmbook = myexcel.Workbooks.Open(str1) ‘str1文件路径
pcmsheet = pcmbook.Sheets(1)
range = pcmsheet.Range(pcmsheet.Cells(1, 1), pcmsheet.Cells(rownumber, n))
'rownumber行数，n列数
pcmsheetdata = range.Value

需要注意的是：pcmsheetdata这个二维数据的最小的数是1，不是0，vb.net中运行的结果也是这样，要注意，同样 pcmbook.Sheets(1)这也是第一个表，起点也是1。
其他的你自己摸索吧，我也在等回答呢，看见你的了，希望对你能有启发

Answer 2

我需要搞懂两个问题才能帮你解决
1：然后点击CAL按钮在text3中显示 "产品xxx的原材料为xxx，质量xxx kg",这一句中的产品XXX对应表格中的图号，质量XXX对应表格中的取数列，对不？
2：T列对应的数据，是否就是表格中的取数列

追问

1.产品xxx是对应图号，在产品(也就是图号)的后面有个T列，里面有固定数值，当我输入任意一个图号在产品的文本框中的时候，能够读取xls文件中的对应图号，并计算出对应图号的T列数值与数量文本框的乘积，显示的时候就是"图号xxx的原材料是xxx，质量为(两者的乘积)kg

追答

T列数据为我虚构的数字

 

追问

对，就是这种效果

追答

工程 在附件中，把工作表放在工程 同一目录下