vb读取excel数据到控件上
答：1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
答：Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject(\"excel.application\") '创建excel.application对象xlsApp.Visible = True '显示excel 主界面xlsApp.Visible = False '隐藏excel 主界面xlsApp.workbooks.Open (\"D:\\1\\...
答：1：不用VB的其他表格去实现该功能，因为我VBA的代码没办法移植，代码有很多。重写太复杂 2：不用VB后台操作EXCEL的方法，要再VB中处理数据，而不是用VB去操作EXCEL处理数据”好像不行吧，使用VB导入Excel，但又不希望使用VB控件，你认为可能吗?其实使用VB导入Excel，不是特别复杂，很简单的，不像VBA。
答：Set ExcelSheet = ExcelBook.Worksheets(1)’现在就可以利用将excelsheet来读取所选的excel的行和列了。具体为：设置一个变量 dim k as integer，写一个循环以k=1到k=1000（假如你有1000行数据）比如我们读取b1-b1000的值那么就用text1.text=ExcelSheet.Range("b" & k).Value,然后在后面写一个...
答：先把Excel中的数据导入到dataTable里面，然后使 listView的 dataSource属性=该 datatable.怎么把Excel里的数据导入到 dataTable 中，网上有很多介绍。我最近刚写了一个，你可以参考参考。直接copy过来的，没有加工冗余信息。Public Function ReadExcel(ByVal fileName As String) As DataTable Dim oXLApp...
答：1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
答：MsgBox "注意：请先将Excel表取名为333，然后将它放入E盘根目录下，否则不能导入数据", 48, "提示"If Dir("e:\333.xls", vbDirectory) <> "" Then FileCopy "e:\333.xls", "e:\444.xls"Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.CursorLocation = adUseClient cn....
答：如果不熟悉excel中的vba可以百度一下，主要思路就是循环读取表格数据到数据控件。以下示例介绍如何添加记录到Recordset 对象。'VB6选择“工程”菜单的“引用”，然后添加对 Microsoft ActiveX Data Objects 2.0 Library 的引用。' 创建 Recordset 的一个实例。Set rs = New ADODB.Recordset' 设置 Recordset...
答：sql = "select * from [" & strSheetName & "$]" '打开EXCEL表 rs.Open sql, Conn, 3, 3 MsgBox rs.RecordCount '显示表里的记录数 Do Until rs.EOF For i = 0 To rs.Fields.Count - 1 '读一行数据 List1.AddItem rs.Fields.Item(i).Name '读出数据,添加到list1里 If...
答：把EXCEL看做数据源来连接。用一个list来显示EXCEL中的所有表，选择指定表名，打开EXCEL到DG ———如下：引用ADODB 2.8 导入：Imports System.Data Imports System.Data.Odbc Imports System.Data.OleDb 申明 Private Excelpath As String Public conn As New ADODB.Connection Public rs As New ADODB....
网友评论：
沙饱19586226797：
VB 6 读取excel 数据显示在表格控件里 -
54153宫童
： 12 open file as #1 ; close 1 读取指定行指定列的表格中的数据,先指定excel的sheet在指定行列 很简单的说把 那可以这样 dim row as intege dim low as intege 开始做的是 .... =sheet.(i,j)3还是指定你要的行列 ,然后赋颜色 int i int j SHEET(I,J).BACKCOLOR=RGB(0,0,0)我的是大概原理有段时间没用vb 了但是大概就是这样把
沙饱19586226797：
如何使用VB中的sheet控件读取已存在的EXCEL表格 -
54153宫童
： '先在工作-引用中添加Excel'再在模块中定义变量,也可以在窗体里定义 Public exlApp As Excel.Application Public exlBook As Excel.Workbook, exlSheet As Excel.Worksheet Set exlApp = New Excel.Application exlApp.Workbooks.Open ModelFile ...
沙饱19586226797：
vb中怎么读取excel文件 -
54153宫童
： 1、调用Excel对象打开EXCEL文件后,读取文件内容*************************************** 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“MicrosoftExcel 11.0 object library”项.由于你的Excel版本...
沙饱19586226797：
如何用vb提取excel表格中的数据 -
54153宫童
： vb读取表格中的数据有下面几个方法 1,a = range(＂c5＂) 2,a=cells(3,5) 3,a=cells(＂c＂,5) 4,a=[c5] 还有其他数组赋值的方法 祝你成功
沙饱19586226797：
如何用VB读写EXCEL中数据 -
54153宫童
： Private Sub Form_Load()Text1.Text = App.Path & ＂\123.xls＂Text2.Text = App.Path & ＂\123.mdb＂Text3.Text = ＂sheet1＂Text4.Text = ＂sheet1＂Data1.DatabaseName = App.Path & ＂\123.mdb＂ End Sub Private Sub Command1_Click...
沙饱19586226797：
如何使用VB从运行的EXCEL中读取想要行想要列的数据? -
54153宫童
： 声明 Dim xlApp As Excel.Application 'excel控件专用声明 Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet打开 Set xlApp = CreateObject(＂Excel.Application＂) '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(App.Path & ...
沙饱19586226797：
怎样用VB读取Excel文件中表格中的数据? -
54153宫童
： 1、VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能. 2、 VB读...
沙饱19586226797：
请问如何用vb实现对excel文件的读取和写入操作? -
54153宫童
： Dim excel As Object Set excel = CreateObject(＂excel.application＂) '设定 excel API'--------------这上面可不看 照抄 excel.workbooks.Open (＂C:\book.xls＂) 'P.s请先自己创立 'excel 开启 excel.Visible = True 'excel 显示 or 隐藏 (True of False excel....
沙饱19586226797：
请问VB如何提取Excel文件中的数据? -
54153宫童
： 做起来太麻烦了.请参阅我的博客:http://hi.baidu.com/zgmg/blog/item/ab8d2dd1888dbcdf572c84bf.html Private Sub Command1_Click() If ZID(Text1) = 0 Then MsgBox ＂对不起,没找到您输入的ID!＂ Else Set xlApp = CreateObject(＂Excel....
沙饱19586226797：
如何用VB从EXCEL中读取和保存数据. -
54153宫童
： Dim i As Integer Dim j As Integer Dim ex As Object Dim exwbook As Object Dim exsheet As ObjectSet ex = CreateObject(＂Excel.Application＂) Set exwbook = Nothing Set exsheet = Nothing Set exwbook = ex.Workbooks().AddSet exsheet = ...
