请高手指点：运行错误424的解决方法！

ac_ca · 发表于 2024-1-29 17:20

本帖最后由 ac_ca 于 2024-1-29 21:40 编辑

请高手指点，为什么运行时会出现错误“424”，

Sub daocu()
Dim fc, sh As Worksheet, Z

With Application.FileDialog(msoFileDialogOpen)
            .Show
         fc = .SelectedItems(1)

   End With

   Z = Left(fc, InStrRev(fc, "\") - 1)

   MkDir Z & "\导出"
For Each sh In fc.Worksheets
      sh.Copy
      With ActiveWorkbook
         .SaveAs Filename:=Z & "\导出\" & sh.Name & ".xls"
         .Close True
      End With
Next

End Sub

qline302 · 发表于 2024-1-29 19:13

看下是不是附件这样子。fc只是一个字符串，并没有执行打开。打开了也不能fc直接当工作簿名称调用，所以424错误。

ac_ca · 发表于 2024-1-29 21:36

qline302 发表于 2024-1-29 19:13
看下是不是附件这样子。fc只是一个字符串，并没有执行打开。打开了也不能fc直接当工作簿名称调用，所以424 ...

多谢指点！！！

ac_ca · 发表于 2024-1-30 10:01

本帖最后由 ac_ca 于 2024-1-30 14:33 编辑

qline302 发表于 2024-1-29 19:13
看下是不是附件这样子。fc只是一个字符串，并没有执行打开。打开了也不能fc直接当工作簿名称调用，所以424 ...

请问一个问题，在执行后缀为.xls的电子表格时会出现下标越界？C:\Users\Administrator\Desktop\微信图片_20240130095833

		自动登录	找回密码
密码			免费注册

[已解决] 请高手指点：运行错误424的解决方法！

评分