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

[rpwupeihao]

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

[wwwzy]

首先要确认打开的sheet是否是你将要打开的sheet，就是Set ExcelWS = ExcelWBk.Sheets("点坐标") 这句，你试着用Set ExcelWS = ExcelWBk.Sheets(i)，i表示sheet的id试试看。

• 打赏
• 举报

回复 赞

[rpwupeihao]

本人已解决，原因是Isnull语句出错。谢谢楼上各位。

• 打赏
• 举报

回复 赞

[flyingZFX]

我倒~~!

• 打赏
• 举报

回复 赞

[artoksxb]

那很好！

• 打赏
• 举报

回复 赞

[hhjjhjhj]

这是典型的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
....

• 打赏
• 举报

回复 赞

[rpwupeihao]

顶

• 打赏
• 举报

回复 赞

[supergreenbean]

ExcelWS.Cells(1, 1)返回的好像是个Range对象吧……

• 打赏
• 举报

回复 赞