① 怎样用vb提取Excel中想要的数据
首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbooks.open("c:\1.xls")Set scsheet = scbook.Worksheets(1)‘scsheet.Cells(1, 2) = "1111" ’写入数据a=scsheet.Cells(1, 2) '读取数据Set scbook = NothingSet scxls = Nothing‘scxls.Visible = True ’显示Excle数据较多，且有规律可循时，请使用循环语句
② 怎么在VB中读取excel的数据
dima(3,3)asintegefori=1to3forj=1to3'这步是利用a到c之间的ascii码来处理，如果是i循环1,5的话，那就会是a,b,c,d,e,内循环j管a3~a5,a(i,j)=int(xlsheet.range(chr(asc("a")+i-1))&cstr(j+2))nextj,i
③ 如何用VB逐行读取excel
先在VB里面建立一个Excel Object用以访问Excel文件,如果你的Excel是CSV的则不需要,直接按照Txt文本方式打开读取即可.
建立Button事件,将获取的数据传入到TextBox里面即可.
参考如下代码:
条件:我有一个Excel文件D:A.xls里面的Sheet1中A1开始有100个单词;在VB中Form1中有一个TextBox名字为Text1,有一个按钮，名字为Command1则实现代码如下:
Private i As IntegerPrivate Sub Command1_Click()Set ExcelApp = CreateObject("Excel.Application")Set ExcelBook = ExcelApp.Workbooks.Open("D:A.xlsx")Set ExcelSheet = ExcelBook.Worksheets("Sheet1")Text1.Text = ExcelSheet.cells(i, 1)i = i + 1If i > 100 Then i = 1End SubPrivate Sub Form_Load()i = 1End Sub
希望可以帮助到你！
④ 请教请问如何用vb提取excel表格中的数据
首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，
然后打开Excel文件读数据
DimscxlsAsExcel.Application
DimscbookAsExcel.Workbook
DimscsheetAsExcel.Worksheet
‘Setscxls=CreateObject("excel.application")
‘Setscbook=scxls.Workbooks.Add
Setscbook=scxls.Workbooks.open("c:1.xls")
Setscsheet=scbook.Worksheets(1)
‘scsheet.Cells(1,2)="1111"’写入数据
a=scsheet.Cells(1,2)'读取数据
Setscbook=Nothing
Setscxls=Nothing
‘scxls.Visible=True’显示Excle
数据较多，且有规律可循时，请使用循环语句
⑤ vb数据写入excel，请问如何用vb提取excel表格中的数据有一ex
sub main()
if cells(1,"A").value="中国" then cells(1,"B")="111"
if cells(1,"A").value="美国" then cells(1,"B")="1123"
end sub
以此为例，在Excel中读取VBA程序的操作步骤如下（Excel2007为例）：
1.选择”开发工具“选项卡，点击”Visual Basic“（或者用快捷键Alt+F11）
⑥ 怎样用vb 读取excel 的数据
'以下是EXCEL中的放置 ，excel文件是：E:\数据.xls 红桃 黑桃 梅花 方块A 探囊取物 休养生息1 休养生息2 休养生息3123…………K'以下是程序，在窗体中建一下COMMAND1 Private Sub Command1_Click() dim 汉字(12,3) as string '定义一个二维数组，为字符型 dim ii as integer dim jj as integer Set oleExcel = CreateObject("Excel.Application") oleExcel.Visible = True oleExcel.Workbooks.Open FileName:="E:\数据.xls" For ii= 0 To 12 for jj=0 to 3 汉字(ii,jj) == oleExcel.Worksheets("Sheet1").Range("A1").Cells(ii+2, jj+2) next jj next ii oleExcel.Save oleExcel.displayalerts = False oleExcel.QuitEnd Sub'另： 需要引用microsoft activex data objects 2.5 library microsoft DAO 3.51 object library
⑦ 怎样用VB读取Excel文件中表格中的数据
1、VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
2、VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：
第一步：在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
第二步：在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet.
第三步：在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
⑧ 如何在vb中读取excel中数据
读写EXCEL表： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 12.0 Object Library（EXCEL2007），然后选择"确定"。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象： Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet 3、在程序中操作EXCEL表常用命令： Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 Set xlBook = xlApp.Workbooks.Add("文件名") '创建新的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for i=1 to 100for j=1 to 50numArr(j,i)=xlSheet.Cells(j, i) '………………………………..nextnextxlBook.Close (True) '关闭工作簿 xlApp.Quit '结束EXCEL对象 Set xlApp = Nothing '释放xlApp对象
⑨ 用VB调用Excel里的数据
需要在开发环境安装OFFICE软件才有相关控件，如果是安的绿色版、精简版，建议卸载后重新安装正常的版本。另外，如果开发环境没有控件，可以使用后期绑定。
未经允许不得转载：山九号 » 如何使用vb读取excel文件中的数据|怎样用VB读取Excel文件中表格中的数据
