Страницы: 1
RSS
ChDir в "Мой компьтер"
 
при открытии окна сохранения файла    
'Application.GetSaveAsFilename(fileFilter:="Excel 2003 (*.xls), *.xls")  
нужно что бы открывался "Мой компьтер" и пользователи могли выбрать диск для сохранения.  
 
Это можно сделать ChDir?  
Или может как то по другому?
 
так открываться диск С:\  
А нужно "Мой компьтер"  
Где видно все диски  
Может что то можно сделать с .. (на уровень вверх)
 
Научился сохронять в Моем компьтере)))  
 
по пути C:\Users\User\AppData\Roaming\Microsoft\Windows\Network Shortcuts  
Но это не решаеь вопрос что бы открывался сам Мой компьютер
 
Так не устроит?  
With Application.FileDialog(msoFileDialogFolderPicker)  
.InitialFileName = "MyComputer"
 
Возможно только я не понял как это работает(((
 
Вот какая история: когда у меня стоял Офис ХР (2002), то работал такой код:    
Sub TestFolder()  
   With Application.FileDialog(msoFileDialogFolderPicker)  
       .InitialFileName = "MyComputer"  
       .Title = "Выбираем..."  
       .Show  
   End With  
End Sub  
А сейчас (2003) выбирает "Мои документы".  
Посмотрите тогда пример от Уокенбаха.
 
Вот оригинальный файл, а предыдущий был с моими дополнениями :-)
Страницы: 1
Читают тему
Наверх