mdsk.net
当前位置:首页 >> 用vB向ExCEl输入数据 >>

用vB向ExCEl输入数据

VB可将使用Object 数据类型对EXCEL对象进行引用.

12345678910111213141516171819202122232425 Public Sub WriteResToExcel() '写处理后的数据到新的Excel的过程 Dim xlApp As Excel.Application '定义一个Excel应用 Dim xlBook As Excel.Workbook '定义一个Excel Book Dim xlSheet As

输入Excel数据 例如 range("A1")=123 输出Excel数据 例如 msgbox range("A1") 当然方法很多,只是举个最简单的例子

VB本身的自动化功能就可以实现,其方法如下: 1、在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定".表示在工程中要引用EXCEL类型库. 2、在通用对象的声明过程中定义EXCEL对象: Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As Excel.Worksheet

1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内; 2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行; 3、代码如下: Dim ExApp As

我举个例子,你好好研究一下:Dim woexcel As Excel.ApplicationDim wobook As Excel.WorkbookPrivate Sub Command1_Click()Set woexcel = New Excel.Applicationwoexcel.Visible = Falsewoexcel.SheetsInNewWorkbook = 5Set wobook =

一个很简单的程序实例 private sub form_load() data1.databasename = app.path & "\msdb.mdb" text1.text = data1.databasename end sub '按钮,把数据传到excel中 private sub command1_click() dim i as integer, j as integer dim newxls as

Savepath = App.Path & "\123.xls"Set xlApplication = CreateObject("Excel.application") '调用excel对象 xlApplication.DisplayAlerts = False '//不显示警告xlApplication.Application.Visible = False '//不显示界面 'Set xlWorkBook = xlApplication.

Excel里按Alt+F11打开Vb编辑器,在里面可以建一个窗体,放入文本框,通过程序来赋值,如sheets("sheet1").range("a1").value =11.

楼上的是计算,不是公式.VBA设置公式可以Range("A1").Value = "=B1+B2+B3"依此类推:For i = 1 To 30Range("A" & i).Value = "=B" & 3 * i - 2 & "+B" & 3 * i - 1 & "+B" & 3 * iNext i

bdld.net | qimiaodingzhi.net | zxqk.net | lyxs.net | msww.net | 网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com