EXCEL中VB编程问题：怎样判断单元格数据类型？
我想用VB调用EXCEL里面的数据 1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->；“引用”->；找到Microsoft Excel 12.0 Object Library->；确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.ApplicationDim Exb As Excel.WorkbookDim Exsh As Excel.WorksheetDim arr(6，6)As Integer '定义一个二维数组，数据类型为整数e79fa5e98193e78988e69d8331333238653336ExApp.Workbooks.Open\"c：\\book1.xls\"'打开EXEL文件，路径和文件名自己根据实际修改Set Exb=ExApp.Workbooks(1)Set Exsh=Exb.Worksheets(\"Sheet1\")For i=1 To 6 '假设是读取A1：F6的6X6区域数据For j=1 To 6arr(i，j)=Exsh.Cells(i，j)Next jNext i'把自己需要对数组数据进一步处理的部分加进去.ExApp.Workbooks.CloseExApp.QuitSet ExApp=Nothing
如何在VB中调用EXCEL表格数据？ 1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->；“引用”->；找到Microsoft Excel 12.0 Object Library->；确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.Application Dim Exb As Excel.Workbook Dim Exsh As Excel.Worksheet Dim arr(6，6)As Integer '定义一.1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->；“引用”->；找到Microsoft Excel 12.0 Object Library->；确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.ApplicationDim Exb As Excel.WorkbookDim Exsh As Excel.WorksheetDim arr(6，6)As Integer '定义一个二维数组，数据类型为整数ExApp.Workbooks.Open\"c：\\book1.xls\"'打开EXEL文件，路径和文件名自己根据实际修改Set Exb=ExApp.Workbooks(1)Set Exsh=Exb.Worksheets(\"Sheet1\")For i=1 To 6 '假设是读取A1：F6的6X6区域数据For j=1 To 6arr(i，j)=Exsh.Cells(i，j)Next jNext i'把自己需要对数组数据进一步处理的部分加进去.ExApp.Workbooks.CloseExApp.QuitSet ExApp=。
VB 问题 我有一个EXCEL数据表，如下 'VB操作EXCEL，需要引用EXCEL对象模型'首先通过VB的菜单[工程]-[引用]，勾选：Microsoft Excel XX.0 Object Library'其中XX.0由你计算机安装的OFFICE版本而定添加1个按钮，2个文本框，Text1用来输入尺寸，Text2显示对应的代码假设Excel文件叫“实验10.xls”，存放在C盘根目录Option ExplicitPrivate Sub Command1_Click()Dim xlsApp As Excel.Application '声明Excel对象变量Set xlsApp=Excel.Application '创建EXCEL对象实例xlsApp.Workbooks.Open(\"C：\\实验10.xls\")'使用EXCEL对象的Open方法打开已经存在的工作簿EXCEL文件xlsApp.Visible=False '设置EXCEL对象不可见（或True为可见）'引用单元格方法1Dim MaxL As IntegerDim i As IntegerMaxL=xlsApp.Workbooks(\"实验10.xls\").Sheets(\"Sheet1\").Cells(1，1).CurrentRegion.Rows.Count '获得数据的最大行号For i=1 To MaxLIf LCase(Text1.Text)=xlsApp.Workbooks(\"实验10.xls\").Sheets(\"Sheet1\").range(\"B\"&CStr(i)).Value ThenText2.Text=xlsApp.Workbooks(\"实验10.xls\").Sheets(\"Sheet1\").range(\"A\"&CStr(i)).ValueExit ForEnd IfNext iIf I>；MaxL ThenText2.text=\"找不到！End IfxlsApp。.
VB操作excel，给excel录入数据 '引用Microsoft Excel 11.0 object libraryDim EXCEL对象21135261 As Excel.ApplicationDim 工作薄 As Excel.WorkbookDim 工作表4102 As Excel.WorksheetPrivate Sub Form_Load()Set EXCEL对象=CreateObject(\"Excel.Application\")Set 工作薄=EXCEL对象.Workbooks.Open(\"d：\\11.xls\")Set 工作表=工作薄.Worksheets(1)EXCEL对象.Visible=FalseEnd SubPrivate Sub command1_Click()Dim i As Integeri=1Do While(Len(工作表.Cells(i，1))>；0)'在vb里面，整数的操作要比字符串1653的操作速度快得多，所以这里最好不用 工作表.Cells(i，1)=\"\"进行判断i=i+1Loop工作表.Cells(i，1)=text1工作薄.SaveAs(\"d：\\11.xls\")工作薄.CloseEXCLE对象.QuitSet EXCLE对象=NothingMsgBox\"数据写入完成！48End Sub
如何用vb调用excel表的数据 Dim oExcel As New excel.Application '定义对像 需引用excel 11.0Dim o As excel.WorksheetDim Row As IntegerDim Col As IntegeroExcel.Workbooks.Add'ADD是新增，如果是原来有文件，就可以用打开 Open(完整文件名)Set O=oExcel.Worksheets(\"sheet1\")'选择表O.Worksheets(\"sheet1\").Activate'Set o=oExcel.ActiveWorkbook.ActiveSheet'oExcel.Visible=Truemsgbox o.Cells(1，1).Value '读取值‘可以用循环来读取
VB读写EXCEL表 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经。
