编译错误，找不到工程或库

欧阳修鞋

这个文件我自己用没问题。是excel2013版。

但是有几个人一打开就错误。
按照网上说的，引用里该取消勾选的也取消了。但是还不行
我实在不知道为啥了。

杨建营

测试通过。2019的

欧阳修鞋

杨建营 发表于 2024-8-2 09:02
测试通过。2019的

我也用2010版测了，没问题。别人的2010版就不行。不知道咋解决

lss001

欧阳修鞋 发表于 2024-8-2 09:21
我也用2010版测了，没问题。别人的2010版就不行。不知道咋解决

Enum MsoFileDialogType
   msoFileDialogOpen = 1 '打开
   msoFileDialogSaveAs = 2 '另存为
   msoFileDialogFilePicker = 3 '文件
   msoFileDialogFolderPicker = 4 '文件夹
End Enum

Sub 方法1()
     Set yy = Application.FileDialog(msoFileDialogFolderPicker)   
End Sub

Sub 方法2()
     Const msoFileDialogFolderPicker = 4
     Set yy = Application.FileDialog(msoFileDialogFolderPicker)
End Sub

Sub 方法3() '推荐/简单直接
     Set yy = Application.FileDialog(4)
     
End Sub