VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 629|回复: 1

[求助] VB 关于输出EXCEL记录有错误的问题

[复制链接]
发表于 2018-7-1 20:07:38 | 显示全部楼层 |阅读模式
10金钱
有问题代码如下:
Option Explicit

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim xlApp, xlBook

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(App.Path & "\电动工具台卡列表.xls")
If xlApp.Worksheets("Sheet1").Range("A1").Cells(3, 1) <> "" Then
  For i = 3 To xlBook.Worksheets("Sheet1").UsedRange.Rows.Count '行总数
    For j = 1 To xlBook.Worksheets("Sheet1").UsedRange.Columns.Count '列总数
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value****************(出现错误)
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
      Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value
    Next j
  Next i
  xlBook.Save
  xlApp.Quit
  Set xlApp = Nothing
  MsgBox "记录输出完毕", vbOKOnly, "成功输出"
End If
End Sub


错误:实时错误1004,应用程序定义或对象定义错误。

无法解决,请求帮助,谢谢。

最佳答案

查看完整内容

Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value****************(出现错误) 改成 Debug.Print xlBook.Worksheets("Sheet1").CELLS(i, j).Value Range必须用Range("A3")这样的格式,CELLS可以用行列
发表于 2018-7-1 20:07:39 | 显示全部楼层
Debug.Print xlBook.Worksheets("Sheet1").Range(i & j).Value****************(出现错误)
改成 Debug.Print xlBook.Worksheets("Sheet1").CELLS(i, j).Value
Range必须用Range("A3")这样的格式,CELLS可以用行列
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-12-18 20:41

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表