VB 怎样把office excel 列中的数据,输入到VB设计的程序中

我目前的需求是,excel中A1列的一些数据,是若干单精度浮点型数,我想用VB编个程序来处理,但我不想通过Msgbox一个一个输入,而是直接复制excel列的数据,再直接粘贴进VB的一个text控件,然后自动赋值给一个数组。多谢。

第1个回答  2011-03-19
Dim Num As Integer
Dim Data1(50) As Double
s = Split(Me.Text1.Text, Chr(10))
Num = UBound(s)
For i = 0 To Num - 1
Data1(i) = s(i)
Next

VB编程如何加载word或excel内容
1.可以用控件 MSFlexGrid 或 ListView 用代码读取 Excel 内容再写到控件中显示;2.添加一个 OLE 控件,在弹出了窗口中选择“由文件创建”选择你所要显示的 Excel 表格。这种方法创建的 Excel 表格具有和 Office 同样的功能,但前提是你的 计算机 上一定要安装 Office。

vba中的宏怎么移植到vb中
首先通过VB的菜单[工程] -- [引用],勾选:Microsoft Excel 11.0 Object Library 其中11.0是不一定的,要看你计算机安装的OFFICE版本而定 11.0是2003,这样就可以在VB里使用对象了:Dim xlsApp As Excel.Application '声明Excel对象变量 Dim xlsBook As Excel.Workbook '声明工作簿对象变量 ...

从EXCEL工作薄中第一个工作表里的A1单元格提取一个数值让它显示在VB...
'首先通过VB的菜单[工程] -- [引用],勾选:Microsoft Excel 11.0 Object Library '其中11.0是不一定的,要看你计算机安装的OFFICE版本而定 Private Sub Command1_Click()Dim xlsApp As Excel.Application '声明Excel对象变量 Set xlsApp = Excel.Application '创建EXCEL对象实例 xlsApp.Workb...

求通过excel文件批量导入vb自带数据库文件的代码,我只需要导入一列或者...
如果是一次性的操作,直接用ACCESS打学习表.MDB,从EXCEL中直接把这两列数据复制、粘贴到表一中就行了,不用写代码这么麻烦。如果是经常性的操作,就需要写一个完整的程序。会比较复杂,需要操作数据库,还要操作EXCEL,这个建议你还是在网上找别人的源码,自己一点都没弄过的话会花不少时间。

如何使用vb计算excel中的数据
Sub 计算()Dim N For N = 1 To Application.CountA(ActiveSheet.Range("f:f"))Cells(N, 7) = Cells(N, 6) * Cells(N, 6) + 10 Next End Sub

VB如何调用excel中的数据。
'首先通过VB的菜单 [工程] -- [引用],勾选:Microsoft Excel XX.X Object Library '其中XX.X,要看你计算机安装的OFFICE版本而定 Private Sub Command1_Click()Dim xlsApp As Excel.Application '声明对象变量 Set xlsApp = Excel.Application '实例化对象 xlsApp.Visible = False '使...

怎么在VB的一个文本框里显示Exce中的一个数据
'要在VB中操作Excel,需要引用Excel对象模型'方法,在菜单里选择[工程] -- [引用],在窗口里勾选 Microsoft Excel XX.X Object Library'其中,XX.X取决于你安装的Office的版本号 '在你的显示按钮中加入以下代码。'注:"地址"中加入你的excel文件地址,如"C:\\1.XLS",要带双引号'Sheet1也可以改...

vb 逐行读取excel 两列数据
xlsApp.Workbooks.Open ("C:\\book1.xls") '打开EXCEL文件,假设文件名为book1.xls,存放在C盘根目录 AStr = ""BStr = ""H = 1 '假设数据从第一行开始,如果第一行是列名称,就改为从2开始 Do While xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(H)).Valu...

怎么在VB中读取excel的数据
ColIndex列的单元格,或者用类似xlsApp.workbooks(i).sheets(j).range("A1:B10")取得上述工作表中的A1:B10区域 如果在装office的时候选上“VBA帮助文件”,可以进excel后按alt + F11进入“Microsoft Visual basic”编辑器,然后按F1查看帮助中关于Excel对象模型以及相关对象、属性、方法、事件的介绍 ...

如何用VBA判断符合条件的数据复制粘贴到相应工作表?
首先,你需要使用Microsoft.Office.Interop.Excel类库来操作Excel文件。这个类库可以让你在C#中操作Excel文件。其次,你需要使用C#中的循环语句来遍历Excel文件中的所有数据,并且使用if语句来判断符不符合条件。第三,当符合条件时,你需要使用Excel的Range类来复制符合条件的数据,并使用Workbook和Worksheet类来...

相似回答
大家正在搜