excel用vb给单元格赋值提示“要求对象”?
程序如下,刚学了不久,我想把vb窗体中输入的值用excel报表输出,最后一句老报错:错误“424”,要求对象??
Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.add
xlapp.Visible = True
Worksheets("Sheet1").Activate
Set xlsheet = xlbook.Worksheets(1)
xlsheet1.Range("A3") = 0 ‘这句报错
Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.add
xlapp.Visible = True
Worksheets("Sheet1").Activate
Set xlsheet = xlbook.Worksheets(1)
xlsheet1.Range("A3") = 0 ‘这句报错
...全文
相关推荐
vb编程遍历Excel中所有单元格,读取出所有单元格内容
vb编程遍历Excel中所有单元格,读取出所有单元格内容
VB编写的Excel操作源代码
VB编写的Excel操作源代码 VB编写的Excel操作源代码 VB编写的Excel操作源代码
VB读取EXCEL文件
能够读取EXCEL,并且写入。 '读取01.xls中A2到A6,5个单元格的数据 Private Sub Command1_Click() Dim ExcelApp
VB向excel中写入数据
通过VB窗体的text,向excel中指定位置写入数据
vb读取Excel数据+获得Excel工作表名
用简单的例子说明vb连接Excel数据表 获得数据表的工作表名和查询其中的数据



