Помогите с макросом. Что тут не так? ссылается на "WScript.Shell"

Cor Гость	#1 14.04.2010 13:09:24 ActiveWorkbook.SaveAs Filename:= _ "C:\CreateObject("WScript.Shell").SpecialFolders("Desktop")\" & CreateObject("WScript.Network").UserName & "\привет.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False

Hugo Пользователь Сообщений: 26407 Регистрация: 22.12.2012	#2 14.04.2010 13:16:21 ActiveWorkbook.SaveAs Filename:= _ CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & CreateObject("WScript.Network").UserName & "\привет.xls" Но нет проверки и создания каталога - у меня сперва ругался, пока каталог "юзер" не создал вручную.

Cor

Гость

14.04.2010 13:27:23

{quote}{login=Hugo}{date=14.04.2010 01:16}{thema=}{post}ActiveWorkbook.SaveAs Filename:= _
CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & CreateObject("WScript.Network").UserName & "\привет.xls"

Но нет проверки и создания каталога - у меня сперва ругался, пока каталог "юзер" не создал вручную.{/post}{/quote}

у меня пишет: что путь не найден. Как быть?

Hugo Пользователь Сообщений: 26407 Регистрация: 22.12.2012	#4 14.04.2010 13:33:04 Может & "\" & CreateObject("WScript.Network").UserName вообще лишнее - зачем юзеру на его рабочем столе ещё создавть папку с его именем?

Cor Гость	#5 14.04.2010 13:33:45 {quote}{login=The_Prist}{date=14.04.2010 01:30}{thema=}{post}If Dir(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & CreateObject("WScript.Network").UserName, vbDirectory) = "" Then MkDir CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & CreateObject("WScript.Network").UserName End If CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & CreateObject("WScript.Network").UserName & "\привет.xls" А лучше так: Dim sPath As String sPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & CreateObject("WScript.Network").UserName If Dir(sPath, vbDirectory) = "" Then MkDir sPath sPath & "\привет.xls"{/post}{/quote} Спасибо! работает.

Читают тему