为什么无法读取Excel的单元格内容

rpwupeihao 2004-06-23 11:36:10
Dim Excel As New Excel.Application
Dim ExcelWBk As Workbook
Dim ExcelWS As Worksheet
'创建Excel应用程序实例
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
Set Excel = CreateObject("Excel.Application")
End If
'打开工作簿
If IsNull(ExcelWBk) Then
Set ExcelWBk = Excel.Workbooks.Open("123.xls")
End If
Set ExcelWS = ExcelWBk.Sheets("点坐标") ' Add this sheet to this Workbook
Dim str As String

str = ExcelWS.Cells(1, 1) '-----------------------str总是为空

Set Excel = Nothing
...全文
189 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
supergreenbean 2004-06-23
  • 打赏
  • 举报
回复
ExcelWS.Cells(1, 1)返回的好像是个Range对象吧……
rpwupeihao 2004-06-23
  • 打赏
  • 举报
回复

hhjjhjhj 2004-06-23
  • 打赏
  • 举报
回复
这是典型的On Error Resume Next引起调试困难,应在适当时候取消On Error
........
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
Set Excel = CreateObject("Excel.Application")
End If
On Error GoTo 0
....
artoksxb 2004-06-23
  • 打赏
  • 举报
回复
那很好!
flyingZFX 2004-06-23
  • 打赏
  • 举报
回复
我倒~~!
rpwupeihao 2004-06-23
  • 打赏
  • 举报
回复
本人已解决,原因是Isnull语句出错。谢谢楼上各位。
wwwzy 2004-06-23
  • 打赏
  • 举报
回复
首先要确认打开的sheet是否是你将要打开的sheet,就是Set ExcelWS = ExcelWBk.Sheets("点坐标") 这句,你试着用Set ExcelWS = ExcelWBk.Sheets(i),i表示sheet的id试试看。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧