运行时错误5

yjwdjfqb

运行时错误5
老师们好，我加了个判断，取消后，还是会弹出错误
请老师们修改下，谢谢老师们了！

时运行时错误5.rar (15.71 KB, 下载次数: 4)

2019-11-28 19:38 上传

点击文件名下载附件

砂海

看不出 你处理 啥了
Private Sub UserForm_Initialize()
    Call 选择文件
    Application.ScreenUpdating = Falsedebug.print "Nam = " & Nam
stop ' 这里停下来 , 单步运行看看
    Set wb = GetObject(Nam)

你窗体初始化的时候 出错 , 还没轮上 按钮事件呢.

yjwdjfqb

砂海 发表于 2019-11-28 20:31
看不出 你处理 啥了
Private Sub UserForm_Initialize()
    Call 选择文件

老师你好，我是选择一个EXCEL，弹出窗体，可以选择某些工作表，导入当前工作薄中

yjwdjfqb

yjwdjfqb 发表于 2019-11-28 20:37
老师你好，我是选择一个EXCEL，弹出窗体，可以选择某些工作表，导入当前工作薄中

就是说，我执行这个命令时，可以选择一个EXCEL文件，然后就弹出窗体，显示出工作表列表，我可以任意选择几个工作表，导入到当前工作薄中

好像选择EXCEL文件导入工作表，可以一样

但，弹出路径选择框时，点出取消就会出错

爱疯

Nam = MyFile
MsgBox "您选择的文件是：" & vbCrLf & vbCrLf & Nam, vbOKOnly + vbInformation, "提示"


改为


MsgBox "您选择的文件是：" & vbCrLf & vbCrLf & MyFile, vbOKOnly + vbInformation, "提示"
Nam = .SelectedItems(1)