vb 把excel作为一个参数数据来源，同时路径问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 13:47:42
用vb编公式计算的题目，公式里面用到很多参数，把参数都放在了一个excel中,这个excel和工程1在一个文件夹里面。运行的时候怎么调用excel里面的参数？当把这个文件夹换到电脑别的位置时候，是不是编程时候excel的路径还要变呢？
举个例子：
excel里面A这一列存的是，从1到10
点击form上的按钮，要求在text1里面出现A这一列所有数的和

Dim appexcel As Object'定义应用程序（Excel）
Dim wbmybook As Object'定义工作簿
Dim wsmysheet As Object'定义工作表
Set appexcel = CreateObject("excel.application") '创建Excel应用程序对象
Set wbmybook = appexcel.workbooks.Open(app.path & "\1.xls") '添加工作簿,假设你的Excel文件放在程序所在的文件夹下，文件名为1.xls，当把文件拷到别的电脑上时，只要保证1.xls在同意文件夹下就行了
Set wsmysheet = appexcel.worksheets("sheet1")'假设你的工作表名称为sheet1
dim sum as double'定义存放结果的变量
sum=0
for i=1 to 10
sum=sum+wbmysheet.cells(i,1)
next i
'更多关于vb调用Excel的参数可以发一个电子书给你