VB操作excel,给excel录入数据

VB操作EXCEL，在vb界面中对指定的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

---

宁城县19764581982： 怎么使用vb输入输出excel数据 - ？
直虽克之： 输入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的相互勾通,等等 不知道你具体想实现什么