通過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

詳情