尝试使用application.GetOpenFilename在.zip文件中打开Excel文件

时间:2019-09-03 11:50:15

标签: excel vba

我正在编写一个excel宏,我想在其中使用application.GetOpenFilename.zip文件夹中打开一个excel文件。由于GetOpenFilename尝试加载/打开文件夹本身,因此无法使用。 .zip内有多个Excel文件,我对一个特定的文件感兴趣,该文件的名称因场合而异。因此,浏览必须手动完成。

为了让用户浏览.zip文件夹中的正确文件,我需要做什么?

我已经阅读了罗恩·德布鲁因(Ron de Bruin)的解压缩方法,但没有找到解决我的问题的方法(https://www.rondebruin.nl/win/s7/win002.htm)。

Dim wb As Workbook

' Here I want the user to browse for the correct file

myFile = Application.GetOpenFilename(, , "Browse for excel file")
Set wb = Workbooks.Open(myFile)

理想情况下,该解决方案应该将此.zip文件夹与任何常规文件夹一样对待,以使我的宏用户可以在该.zip中浏览正确的excel文件。

0 个答案:

没有答案