我试图获得excels保存并打开对话框默认打开"我的电脑",以便用户可以从那里选择一个驱动器.
我有对话框打开任何驱动器或我的文档等任何路径,但似乎无法找到它打开我的计算机的方法.
这是我目前正在使用的代码,它适用于已知路径:
MsgBox objFolders("desktop")
ChDrive objFolders("desktop")
ChDir objFolders("desktop")
strFileName = appRemoteApp.Workbooks("Export Template.xlsm").Application.GetSaveAsFilename(objFolders("desktop") & "\Replica Export " & UserName & " " & Format(Date, "yymmdd") & ".xlsm", FileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm,")
另外,我从这个网站找到了这个.
如果您粘贴::{20D04FE0-3AEA-1069-A2D8-08002B30309D}到Windows资源管理器地址栏,它会将您带到我的计算机,但如果我在我的VBA代码中使用它
ChDir "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
它说无法找到目录或其他东西.所以不确定是否有解决这个问题的工作.
这也不起作用:
ChDir "C:\WINDOWS\explorer.exe /root,,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
我想让对话框对计算机开放的原因是我们将在Windows服务器上托管excel文档,并通过RemoteApp和远程桌面进行访问.用户将无法访问(权限)服务器驱动器和文件夹等,他们只能访问本地计算机上自己的驱动器,这些驱动器将被映射并在服务器"我的电脑"文件夹下可见,因为缺少更好的字.服务器上的主文档使用VBA代码生成副本,然后保存到用户本地硬盘驱动器.