vb如何追加excel数据

来源：百度知道 编辑：UC知道 时间：2024/06/25 06:44:03
例如
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

每次只能重复给1.1赋值，请问如何做到我点击第二次按钮给1.2赋值，自动追加下去，点击此追加几次，谢谢~急

dim I as Integer

Private Sub Command1_Click() '打开EXCEL过程

If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
if i=0 then
i=1
else
i=i+1
endif
xlsheet.Cells(1, i) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub

xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
你这句代码决定了你只能给Cells(1, 1),也就是你说的1.1赋值,要实现你所说的功能要修改这句

cells(行,列),您可以任义设置两值,用于在控制相应单元格.

按您的要求,我改了一下,你看看吧
首先定义一个全局变量
public i as Integer

Private Sub Command1_Click() '