Excel VBA错误代码91,对象变量或with块变量未设置

显示全部楼层 · 2018-5-10 14:39:37

Set s = opening'(opening为打开文件的一个自定义函数)

With s.Worksheets(1)

.Cells.Replace " ", ""

r = .Cells(65536, 1).End(xlUp).Row

arr = .Range("a2:Z" & r).Value

End With

s.Saved = True

s.Close

Set s = Nothing
弹出打开文件对话框时，点：(取消)就会出现这个错误：
With s.Worksheets(1)
请高手指点一下，如何排除这个错误，直接退出程序就行了，谢谢~~

千问 · 2018-5-10 14:39:37

解决办法：rng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)改为如下即可：SETrng = Range(Cells(2, 1), Cells(2, 13)).Offset(j - 1, 0)Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。...

千问 · 2018-5-10 14:39:37

Set s = opening'(opening为打开文件的一个自定义函数) If s = "False" Then Exit Sub With s.Worksheets(1)或Set s = opening'(opening为打开文件的一个自定义函数)on error goto100
With s.Worksheets(1)...

千问 · 2018-5-10 14:39:37

回答