谢谢,这个是没有问题的啦,可是我想编一个VB程序,有判断不同情况进行不同的运算,要从excel里调用数据进行判断和运算,有什么建议么?
追答从Excel工作表里读取数据,可以用Range,参数为A1形式的字符串,比如Range("A1") Range("D5") 等等;另一种是用Cells定位,CELLS(R,C),R指行号,C指列标,可替换为具体数字或变量。如果是引用非当前工作表,可在Range或Cells前面加工作表对象。举例:Sheets("Sheet1").Range("C6")
数据可调用Range或Cells的属性读取,以Range为例(Cells同样适用)
Range("A1").Value 得到其值
Range("A1").Text 得到值的文本形式
Range("A1").Formula 得到其公式形式
具体就看怎么运用了。
在EXCEL中用VB编写程序时,如何调用EXCEL中某个表格的数据?
右键点车间(1)控件,设置格式,最后一个标签“控制”,单元格链接处点到比如sheet1的g1,确定。在sheet2的a1输入 =if(sheet1!g1,"车间(1)","车间(2)")就可以了。
如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?
如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列? 可以使用如下的代码,复制如下代码到VBA模块中运行即可。如下代码代表4行4列,如果其余行或列数则可更改相应的数字。具体步骤如下:打开office excel;Alt+F11打开VBA编辑器;复制如下代码到模块中;F5运行该模块;按照提示进行如下步骤即可...
哪位大师告诉我,如何把设计好的excel计算器表格用到VB里面啊
如何用Excel设计自己的计算器 方法一,在单元格中写入计算式直接得出结果 在EXCEL中 加号为+ 减号为- 乘号为* 除号为\/ 乘幂为^ 等号为= 在电子表格中直接写入带等号的计算式,就会计算出值 如计算2+3乘以5再除以7的结果的两次方,公式可以写成 =((2+6)*5\/4)^2 按下回车即可...
用vb编程,怎么从excel或txt(有n行6列)中取其中一列数据,要一个一个...
Dim filepath As String Dim m filepath = App.Path & "\\abc.txt" '文本文档名称为 123.txt Open filepath For Input As #1 Line Input #1, a Close #1 m = Split(a, ",")If UBound(m) = 0 Then Exit Sub '如果发送数据为空则退出过程 ElseIf MSComm1.PortOpen = False...
VB中如何调用EXCEL中的数据然后在VB中计算在VB中输出结果,能否提供一段...
'读取工作表的内容 Dim xlsAPP As Excel.Application '对EXCEL的引用 Dim ExcelIsRuning As Boolean 'EXCEL是否已经运行 Dim BookPay As Excel.Workbook Dim SheetPay As Excel.Worksheet Dim nRow As Long, nCol As Long Dim xlsFile As String '检查此文件是否还存在 xlsFile = Dir(txtFile.Text...
vb调用excel某一列数据,然后给函数变量赋值,得出结果
'引用microsoft Excel 14.0 object library 'Dim elApp As Excel.Application Dim elBooks As Excel.Workbook Dim ekSheet As Excel.Worksheet Dim TblMap_Card '创建一个变量 Private Sub Command1_Click()Dim i As Integer openEl Set dic = CreateObject("Scripting.Dictionary")'MsgBox ekSheet....
VB6.0中怎样调用"txt"和".xls"
首先,命令按钮只有单击事件,无法双击。★打开txt文件可以调用“记事本”,这个比较容易,可以使用以下代码。Private Sub Command_Click()Shell "notepad.exe C:\\1.txt", vbNormalFocus '把其中的 C:\\1.txt 改成你需要的路径 End Sub ★要打开xls文件就必须有OFFICE。使用下面代码可以调用Excel打开xls...
向vb 高手求助代码编程:菜单中打开txt或excel数据表文件,求某列中几...
1,菜单中代开txt或excel数据文件;2,选取某列中的连续几个,求平均值;3,然后找出该列中,平均值上下60%的数据(目标值附近的数据);4,把找到的数据(目标值附近的数据)对应的一... 1,菜单中代开txt或excel数据文件;2,选取某列中的连续几个,求平均值;3,然后找出该列中,平均值上下60%的数据(目标值附近的...
EXCEL里面有1列800行的数据,通过VB读取,并附值给一个数组!非常感谢!
Set Exl = CreateObject("Excel.Application")Exl.Visible = False Set Exlbook = Exl.Workbooks.Open("Excel所在路径")Set Exlsheet = Exlbook.Worksheets("Sheet1")Exlsheet.Activate dim i%,a(800) as double do if i>=800 then exit do end if a(i)=exlsheet.cells(i,1)i=i+1 loop...
VB编程,利用宏在EXCEL表格中显示想要的列或行
我建议是添加一个按钮或者在工具栏中添加一个图标这两种方法。添加一个按钮的方法:添加上按钮之后,双击它,然后在出现的两行代码中加入一行 Call MyMacro,最终的按钮代码如下:Private Sub CommandButton1_Click()Call MyMacro End Sub 添加图标的方法:在任何一个工具栏上点右键,选择“自定义”,...