通过excel VBA以特定大小打开文件夹

Question

大家下午好

当前正在编程一个小的仪表板，当单击其中一个按钮时，它将转到另一个选项卡并从服务器打开一个文件夹/窗口。 问题是，这取决于先前打开的窗口在屏幕上显示的文件夹大小。 我想要这个静态的（例如，当通过Windows资源管理器打开文件夹时，它所占的空间不会超过屏幕的25％）。 环顾四周，但是使用“ activewindow”功能，我减小了excel文件的大小，而我只想减小文件夹的大小。

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

这部分很好。 然后我要么有这行，但我不能给出确切的大小（vb“正常/最小/最大化”焦点除外，它要么填满整个屏幕，要么拾取上一次使用的大小，要么只在任务栏中显示它）

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

打开文件的一种方法是使用标准对话框：

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失败，请尝试为服务器分配一个映射驱动器ChrDir ）

对话框通常为全屏显示，但带有滚动条。 如果需要，您可以调整对话框的大小... Google

详情