另存爲Excel宏以在Windows 7或XP上保存到桌面

我有一個電子表格，我希望使用宏在Excel 2010中「另存爲PDF」，並始終保存到桌面。另存爲Excel宏以在Windows 7或XP上保存到桌面

但是，由於Windows 7和Windows XP上桌面文件夾的位置不同，我已經成功地使用'Environ'功能讀取了計算機的用戶名，但它並不總是有效。

有沒有辦法讓操作系統像用戶名一樣被讀取？然後我可以有一個IF（OS = W7，C：/ Users ....，C：/ Docs ...）來設置文件路徑。

我的計劃是在單元格中顯示這些單元格，然後將這些單元格連接成單個字符串，並在宏中讀取整個保存文件路徑和名稱。

非常感謝，

Doug。

來源

2014-09-04 Doug Rose

開始使用API基礎上，結果使用操作系統，然後'xp_Parth'或'win7_Path'如果您只是在谷歌搜索「VBA桌面文件夾」，這應該是預定義 – 2014-09-04 09:37:32

現在有成千上萬的例子。不知道爲什麼你期待我們會爲你搜索和粘貼它。 ;） – 2014-09-04 09:43:36

Function userDesktop() As String 
    Dim oWH As Object 

    Set oWH = CreateObject("WScript.Shell") 
    userDesktop = oWH.SpecialFolders("Desktop") 

End Function

來源

2014-09-04 09:38:25 cyboashu

@MikeD謝謝!!現在編輯。 – cyboashu 2014-09-04 14:27:44

另存爲Excel宏以在Windows 7或XP上保存到桌面

回答

相關問題