The_Prist,
вот нашел скрипт, но пока не могу его запустить из пакета(мне хотя бы чтобы данные файла обновлялись и он сохранялся, если файл откроется в скрытом режиме и закроется после обновления - это устроит):
Hi I have a vb script which currently open a specified excel file refresh the pivot tables within it, then sends it via email to the recipients.
The following is the code of the vb script.
xfile()
excel()
MailItem()
sub xfile()
file = "Sales.xls" ' a XLS file
OutFile = (GetPath+file)
end sub
Sub excel()
DIM objXL, objWb, objR ' Excel object variables
DIM Title, Text, tmp, i, j, name
' create an Excel object reference
Set objXL = WScript.CreateObject ("Excel.Application")
objXL.Visible = false ' show window
' Load the Excel file from the script's folder
Set objWb = objXl.WorkBooks.Open(GetPath+file)
objwb.RefreshAll
input1 = objxl.range("B2")
year = (Left(smsinput1, 4))
period = (trim(right(smsinput1, 2)))
objwb.save
objwb.close
set objWB = Nothing
objXl.Quit() ' Quit Excel
Set objXL = Nothing
end sub
Sub mailitem()
Const cdoSendUsingMethod = "
http://schemas.microsoft.com/cdo/configuration/sendusing", _
cdoSendUsingPort = 2, _
cdoSMTPServer = "
http://schemas.microsoft.com/cdo/configuration/smtpserver"
'// Create the CDO connections.
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'// SMTP server configuration.
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
'// Set the SMTP server address here.
.Item(cdoSMTPServer) = "smtpserver"
.Update
End With
'// Set the message properties.
With iMsg
Set .Configuration = iConf
.To = "
recipient@email.com"
'.CC = "
recipient@email.com"
.From = "
sender@email.com"
.Subject = "Report"
.TextBody = " Attached is the Daily Report
End With
'// An attachment can be included.
OutFile = (GetPath+file)
iMsg.AddAttachment OutFile
'// Send the message.
iMsg.Send ' send the message.
end sub
'##########################
Function GetPath
' Retrieve the script path
DIM path
path = WScript.ScriptFullName ' Script name
GetPath = Left(path, InstrRev(path, "\"))
End Function
