用excel显示vb中数据,电子表格vb中读取excel中的数据
1. vb中读取excel中的数据
Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003 Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for n=1 to 行数 for m=1 to 例数 msgbox xlSheet.Cells.Item(n, m) '注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的 next next
2. vb读取excel单元格数据
1、在工程中引用Microsoft Excel类型库：
从"工程"菜单中选择"引用"栏；选择MicrosoftExcel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp AsExcel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet AsExcel.Worksheet
3、在程序中操作EXCEL表常用命令：
Set xlApp = CreateObject("Excel.Application")'创建EXCEL对象
Set xlBook =xlApp.Workbooks.Open("文件名")'打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet =xlBook.Worksheets("表名") '设置活动工作表
xlApp.Cells(row, col) =值 '给单元格（row,col）赋值
XLApp.Cells(i, 1).Interior.ColorIndex= i'设计单元格颜色i=1--56
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros(xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros(xlAutoClose) '运行EXCEL关闭宏
自己用代码就可以获取颜色列表了
Sub yansecode()
For i = 1 To 56
XlApp.Cells(i, 1) = i
xlapp.Cells(i,1).Interior.ColorIndex = i
Next
End Sub
3. vb调用excel数据
你是指利用Excel内置的VBA进行编程还是指用VB编的程序来处理Excel文档或控制Excel？如果是前者，那么你按Alt+F11打开VB界面输入代码即可开始编程。后者则可以把Excel文档或Excel应用程序作为对象进行相应操作。至于具体如何做，那就不是这里一两句话能说清的，甚至一两本书的容量也不一定说得完。
你可以自己查看Excel和VB的相关帮助文档或者到微软的MSDN网站寻求帮助。
4. vb从文件中读取数据
有专门读取ini文件信息的API函数。当然也可以使用VB提供的字符串函数来实现，基本思路：
1，作为文本文件打开，并读取。
2，小节名称由一对中括号括起来组成，例如：[default]product_install_time=2016/09/0710:02:04SupplyId2=1202000538DailyCheckTS=1474952175[CFG]REPORT=1[RTIME]LastTime=1474959346方法：逐个读取字符，当读到字符“[”后，开始记存字符串一直到读到字符“]”结束，就是一个名称，这样循环读取以直到文件结束。
5. vb6读取excel中内容
Private Sub Command1_Click() Dim Xlbook As Workbook Dim Xlapp As Application Dim Xlsheet As Worksheet Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿 Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表 Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。 Xlbook.Close False '关闭工作簿 不保存 Set Xlapp = Nothing '释放 Set Xlbook = NothingEnd Sub
6. vb对excel数据进行提取 运用
打开Excel ，依次点击："视图" -“宏” - “查看宏”
2.在打开的“宏”窗口输入宏名称-点击【创建】按钮
3.在打开的VB脚本编辑页面，删除已存在的代码，并复制粘贴文件中宏代码：
4.直接关闭VB脚本编辑页面，在第二列输入公式：=getpy(A1)
5.光标定位B1单元格右下角，变成十字形，向下拖拽至数据行尾即可！
7. vbs读取excel数据
要遍历，不用VBA就得用迭代计算，一般在公式中所谓的遍历就是数组公式，用MID(A1,{1,2,3,4,5},1)这种类型拆开，但由于文本连接没内置函数，拆开了就合不到一起了。
8. vb 获取excel单元格数据
直接用循环，遍历所有行，判断行的隐藏属性，并且计数。
9. vbs获取excel单元格内容
1、同时按下“win+R”键，在打开的运行对话框中输入“excel”回车，打开一个新建的excel文档。
2、在打开的excle窗口，依次点击工具栏“开发工具”——“VisualBasic”或直接按快捷键“ALT+F11”,打开VB编辑器。
3、双击左侧工程窗口中的“sheet1”，打开“sheet1”代码编辑窗口。
4、在代码窗口的下拉框中，分别选择“Worksheet”、"SelectionChange",下面会自动生成相应的过程块代码。
5、在过程中写入代码：If(Target.Columns.Count=Sheet1.Columns.Count)And(Target.Row<=Range("b4").Row)And(Target.Row+Target.Rows.Count>Range("b4").Row)ThenMsgBox"yes" Else MsgBox"no" EndIf6、再回到excel窗口，测试一下代码是否能够正确运行，可以看到结果很成功。