通过特定大小的Excel VBA打开文件夹

Goodafternoon所有，

目前正在编写一个小型仪表板，当其中一个button被点击时，它将转到另一个选项卡并从服务器打开一个文件夹/窗口。 问题是，这取决于以前打开的窗口文件夹的大小将在屏幕上有多大。 我想这个静态（例如，当通过Windows资源pipe理器打开一个文件夹，它应占用不超过25％的屏幕）。 四处看了一下，但是用“activewindow”函数，我减小了excel文件的大小，而我只是想减小文件夹的大小。

Sub OpenFolderABB() Dim MyFolder As String MyFolder = "\\CAG\Project OEM\ABC" 

这部分进展良好。 然后，我要么有这一行，但我不能给出确切的大小（除了“正常/最小/最大化”的焦点，或者填满整个屏幕，拿起最后使用的大小，或只是显示在任务栏）

 Call Shell("explorer.exe" & " " & "\\CAG\Project OEM\ABC") 

或者这一行（这给我MyFolder不是一个对象的错误）

 ActiveWorkbook.FollowHyperlink MyFolder, vbNormalFocus With MyFolder .WindowState = xlNormal .Height = 75 .Width = 125 .ScrollColumn = 1 .ScrollRow = 1 End With 

最后打开另一张纸。 （这当然有用）

 Sheets("ABC").Activate End Sub 

提前致谢 ：）

Answer 1

打开文件的一种方法是使用标准的DialogBox：

 Sub OpenFolderABB() Dim MyFolder As String, f As String MyFolder = "\\CAG\Project OEM\ABC" ChDir MyFolder f = Application.GetOpenFilename() Workbooks.Open FileName:=f End Sub 

（注意：如果ChrDir失败，请尝试将映射的驱动器代号分配给服务器）

DialogBox通常是全屏幕，但带有滚动条。 如果需要，您可以重新调整DialogBox的大小…………… Google

了解详情