Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


oren_yastreb, у меня, к сожалению нет ни Office 2007, ни SharePoint. Но попробуем:
Код: Выделить весь код
Option Explicit

With WScript.CreateObject("Excel.Application")
	.Visible = True
	
	.AskToUpdateLinks = False
	.DisplayAlerts    = False
	.Interactive      = False
	.ScreenUpdating   = False
	
	With .Workbooks.Open(WScript.Arguments.Item(0))
		.Save
		.Close True
	End With
	
	.ScreenUpdating   = True
	.DisplayAlerts    = True
	.Interactive      = True
	.AskToUpdateLinks = True
	
	.Quit
End With

WScript.Quit 0
Файл указывается аргументом скрипта, например:
Код: Выделить весь код
"E:\Песочница\0078\MyScript.vbs" "C:\Documents and Settings\User\Мои документы\Hello World.xls"
Если убедитесь, что всё работает как предполагалось — закомментируйте строку:
Код: Выделить весь код
	'.Visible = True
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:11, 28-09-2011 | #4