The following script places the outputfile on the desktop. I need it to be placed in "C:\FaxConfirmation". Can anyone tell me what I need to add in the coding and where?
' Specify the template xls file that you wish to update here
strTemplateFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "") & "FaxConfirmation.xls"
Set objExcel = CreateObject("Excel.Application")
Const xlUp = -4162
Const xlDown = -4121
Const xlAnd = 1
objExcel.Visible = True
'First open the template workbook
objExcel.Workbooks.Open strTemplateFile
Set objTemplateWB = objExcel.ActiveWorkbook
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "CSV Files (*.csv)|*.csv;All Files (*.*)|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "."
intResult = objDialog.ShowOpen
If intResult = 0 Then
MsgBox "No file was selected."
objExcel.Quit
Else
objExcel.Workbooks.Open objDialog.FileName
Set objCSVWB = objExcel.ActiveWorkbook
objCSVWB.Sheets(1).UsedRange.Copy objTemplateWB.Sheets(1).Cells(65536, "A").End(xlUp).Offset(1, 0)
objCSVWB.Activate
objExcel.ActiveWorkbook.Close False
objTemplateWB.Activate
objExcel.ActiveWorkbook.SaveAs objExcel.ActiveWorkbook.Path & "\" & Replace(objExcel.ActiveWorkbook.Name, ".xls", "") & "_" & FormatDateToString(Now) & ".xls"
objExcel.ActiveWorkbook.Close False
objExcel.Quit
End If
Function FormatDateToString(dDateTime)
FormatDateToString = Year(dDateTime) & "-" &_
Right("00" & Month(dDateTime), 2) & "-" &_
Right("00" & Day(dDateTime), 2) & "-" &_
Right("00" & Hour(dDateTime), 2) & "-" &_
Right("00" & Minute(dDateTime), 2) & "-" &_
Right("00" & Second(dDateTime), 2)
End Function
' Specify the template xls file that you wish to update here
strTemplateFile = Replace(WScript.ScriptFull
Set objExcel = CreateObject("Excel.Applic
Const xlUp = -4162
Const xlDown = -4121
Const xlAnd = 1
objExcel.Visible = True
'First open the template workbook
objExcel.Workbooks.Open strTemplateFile
Set objTemplateWB = objExcel.ActiveWorkbook
Set objDialog = CreateObject("UserAccounts
objDialog.Filter = "CSV Files (*.csv)|*.csv;All Files (*.*)|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "."
intResult = objDialog.ShowOpen
If intResult = 0 Then
MsgBox "No file was selected."
objExcel.Quit
Else
objExcel.Workbooks.Open objDialog.FileName
Set objCSVWB = objExcel.ActiveWorkbook
objCSVWB.Sheets(1).UsedRan
objCSVWB.Activate
objExcel.ActiveWorkbook.Cl
objTemplateWB.Activate
objExcel.ActiveWorkbook.Sa
objExcel.ActiveWorkbook.Cl
objExcel.Quit
End If
Function FormatDateToString(dDateTi
FormatDateToString = Year(dDateTime) & "-" &_
Right("00" & Month(dDateTime), 2) & "-" &_
Right("00" & Day(dDateTime), 2) & "-" &_
Right("00" & Hour(dDateTime), 2) & "-" &_
Right("00" & Minute(dDateTime), 2) & "-" &_
Right("00" & Second(dDateTime), 2)
End Function