VB操作excel,给excel录入数据
可以的。
1楼办法还行,不过要是已经有1万行了,那就要先循环1万次在添加数据。
所以,要先获取最后一行的行数,然后加1,这个就是那个空单元格,就在这个单元格里填写数据了。
通过看你的图片,和你的描述不是很一致.
只能给你一些思路.
Sub 循环插入()For i = 1 To 10 '设定循环次数,从1到10 Cells(i, 1) = i * i '单元格i行1列输入数据i*iNextEnd Sub'此程序运行后是在A1:A10的单元格依次填充1的平方,到10的平方
VB可将使用Object 数据类型对EXCEL对象进行引用。
Object 数据类型,Object 变量存储为 32 位(4
个字节)的地址形式,其为对象的引用。利用 Set 语句,声明为 Object
的变量可以赋值为任何对象的引用。注意 虽然以 Object
类型声明的变量足以适应包含对各种对象的引用,但是绑定到变量引用的对象总是在晚期(运行时)绑定。要强迫在早期(编译时间)绑定的话,须将对象的引用赋值给用特定类名称声明的变量。新建VB的EXE工程,使用如下代码在第一行第一列写入vb操作excel:
Option Explicit
Dim xlapp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim A As String
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.worksheets(1)
A = "vb操作excel"
xlSheet.Cells(1, 1) = A
End Sub
'引用Microsoft Excel 11.0 object library
Dim EXCEL对象 As Excel.Application
Dim 工作薄 As Excel.Workbook
Dim 工作表 As Excel.Worksheet
Private Sub Form_Load()
Set EXCEL对象 = CreateObject("Excel.Application")
Set 工作薄 = EXCEL对象.Workbooks.Open("d:\11.xls")
Set 工作表 = 工作薄.Worksheets(1)
EXCEL对象.Visible = False
End Sub
Private Sub command1_Click()
Dim i As Integer
i = 1
Do While (Len(工作表.Cells(i, 1)) > 0) '在vb里面,整数的操作要比字符串的操作速度快得多,所以这里最好不用 工作表.Cells(i, 1)="" 进行判断
i = i + 1
Loop
工作表.Cells(i, 1) = text1
工作薄.SaveAs ("d:\11.xls")
工作薄.Close
EXCLE对象.Quit
Set EXCLE对象 = Nothing
MsgBox "数据写入完成!", 48
End Sub
'在工程中添加对Excel的引用
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功!"
End Sub
Excel中进行Search或Searchb函数的操作方法
Excel中进行Search或Searchb函数的操作步骤:Excel中返回从start_num开始首次找到特定字符或文本串的位置编号需要用到Search函数。(其中SEARCH以字符数为单位,SEARCHB以字节数为单位)。Search或Searchb函数的使用格式为:=SEARCH(find_text,within_text,start_num),或SEARCHB(find_text,within_text,star...
Excel 表格怎么进行操作教程
excel表格基本操作教程如下:Excel表格的基本操作一:修改字体首先,从输入开始,先来调整字体吧。在工具栏那里一开始就可以发现字体的工具框了,在这里可以快速更改字体类型、大小、颜色等等的。Excel表格的基本操作二:更改对齐方式打好字,或者打字之前,都需要按照需要来调整字体的对齐方式的。在对齐方式工...
在excel中查找某个数据,有则显示A,否则显示B如何操作?
要在Excel中实现"若数据存在显示A,否则显示B"的功能,首先在"考核结果"工作表中选择B单元格,这里我们将使用VLOOKUP函数进行操作。在C列中,从A1单元格开始,输入以下公式:VLOOKUP(A1, B:B, 1, FALSE)。这里的A1代表你要查找的值,B:B是你要查找范围的列,1表示返回匹配值所在的行,FALSE代表精...
在excel中查找某个数据,有则显示A,否则显示B如何操作?
首先,在工作表B单元格中,你需输入函数公式,以实现数据的条件查找。以VLOOKUP函数为例,从A1单元格开始,用逗号隔开每个参数。第二步,指定查找范围,即在第二列B列中查找数据。接着,设置匹配模式。第三个参数为1,表示精确匹配,即如果A列中的数据在B列中完全匹配,就会显示相应的A值。若想使用模...
Excel中列A数据筛选出列B数据的操作方法
Excel中列A数据筛选出列B数据的操作步骤 打开需要编辑的Excel文件,观察列A和列B,列A列B有部分内容重复,现需统计列A中包含几个列B数据,并在列C中标记。将光标移动到列C中,准备输入函数,这里要用到的函数有if函数,先输入=if。继续输入函数,这里还需要用到另一个函数countif。具体输入内容如...
如何在EXCEL中把一列的数据复制到另一列中
1、首先打开excel表格,在表格A3单元格中输入一组数据,需要该数据复制到B列一整列中。2、将A3单元格选中按下Ctrl+C执行复制操作,同时选中B列的整列单元格。3、然后在B列位置点击鼠标右键,在弹出的选项中点击粘贴或者粘贴为数值。4、即可将A3单元格的数值粘贴到B列整列单元格中了。5、还有种方法...
105.在Excel数据清单中,按某一字段内容进行归类,并对每一类作出统计的操...
选B,分类汇总。对所有资料分类进行汇总。把资料进行数据化后,先按照某一标准进行分类,然后在分完类的基础上对各类别相关数据分别进行求和、求平均数、求个数、求最大值、求最小值等方法的汇总。日常工作中经常接触到Excel二维数据表格,经常需要通过需要根据表中某列数据字段(如“工程类型”)对数据...
职称计算机考试EXCEL操作题
一、操作题 1、在考生文件夹下新建一个Excel工作簿,完成以下操作: (1)将Sheet1工作表重命名为debug1。 (2)在debug1工作表中,试采用数据的填充功能分别填充A1:M1区域和A2:M2区域,前一区域中的前两个单元格的内容为1和3,后一区域中的前两个单元格的内容为1和4。 完成以上操作后将该工作簿以prac1.xls为...
如何进行Excel表格操作:输入公式,设置等级
G3=LOOKUP(F3,$J$3:$K$5)或者=LOOKUP(F3,{0,"C";1000,"B";1500,"A"})或者=IF(F3<1000,"C",IF(F3<1500,"B","A"))公式向下复制
急求答案~excel 里面有多个操作人,分别是(如A、B、C等)想知道每个人分...
=SUMIF(A:A,"A",C:C)是A的操作次数总和 =SUMIF(A:A,"B",C:C)是B的操作次数总和 =SUMIF(A:A,"C",C:C)是C的操作次数总和
直虽克之: 输入Excel数据 例如 range("A1")=123 输出Excel数据 例如 msgbox range("A1") 当然方法很多,只是举个最简单的例子
宁城县19764581982: 如何用VB向EXCEL里写数据? - ?
直虽克之: VB可将使用Object 数据类型对EXCEL对象进行引用.Object 数据类型,Object 变量存储为 32 位(4 个字节)的地址形式,其为对象的引用.利用 Set 语句,声明为 Object 的变量可以赋值为任何对象的引用.注意 虽然以 Object 类型声明的变...
宁城县19764581982: VB操作EXCEL,在vb界面中对指定的excel文件写入数据 - ?
直虽克之: '在工程中添加对Excel的引用 Dim xlsApp As Excel.Application Dim xlsBook As Excel.WorkbookPrivate Sub Command1_Click() Dim I As IntegerSet xlsApp = Excel.ApplicationxlsApp.Visible = FalseSet xlsBook = xlsApp.Workbooks.Open("D:...
宁城县19764581982: 如何用VB在EXCEL里面处理数据 - ?
直虽克之: Private Sub Command1_Click() '工程->引用->Microsoft ActiveX Data Objects 2.X Library Dim xlConn As New ADODB.Connection Dim xlRs As New ADODB.Recordset Dim strConn As String Dim xlCnt As Integer StrConn = "Provider=...
宁城县19764581982: 如何用VB代码实现往EXCEL中录入文字时,控制文字的格式 - ?
直虽克之: VB访问EXCEL 先需要在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定".表示在工程中要引用EXCEL类型库.然后访问和设置字体的代码如下...
宁城县19764581982: 如何用VB读取和写入EXCEL表格 - ?
直虽克之: Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel....
宁城县19764581982: 怎么用VB与EXCEL连接,实现对数据的录入、修改、删除 - ?
直虽克之: 用以下代码: Set ObjExcel = New Excel.Application ObjExcel.SheetsInNewWorkbook = 1 Set ObjWorkbook = ObjExcel.Workbooks.Open("e:\111.xls") 'xls的文件名路径可以修改 Set ExcelSheet = ObjWorkbook.Worksheets(1) '指定为sheet1 ...
宁城县19764581982: 请问如何使用vb调用 excel 文件? - ?
直虽克之: 添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异) 然后就可以用这个来编程啦 Dim xlapp As Excel.Application '代表excel程序 Dim wkBook As Excel.Workbook '代表excelworkbook(也就是excel工作簿文件 .xls .xlsx...
宁城县19764581982: vb 读取文本写入excel - ?
直虽克之: Private Sub Command1_Click() Dim s1() As String, s2() As String, s3() As String, s4() As String Container = find("Container:.+\b", RichTextBox1) ContainerType = find(...
宁城县19764581982: VB程序控制EXCEL - ?
直虽克之: vb可以与excel实现一下功能: 1.VB读写EXCEL表,2.VB与EXCEL的相互勾通,等等 不知道你具体想实现什么