VBScript Update Excel with date and convert cell to text

[Nu2Java]

Hello, I am trying to update an Excel cell with a date using the script below which works fine. I need to read the Excel cell from another program but the program is ignoring the cell formatting unless I set the cell as TEXT. So 04/14/2016 needs ro be converted to 042016 which is the format I need it in for the other program to read. So my question is, is there a way to have VBScript update the cell with the current date and then change the cell to TEXT and keep the formatting as 042016 ? I hope this makes sense.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\DateFormat.xls")

objExcel.Application.Visible = False
objExcel.Cells(1, 1).Value = Now
objExcel.Cells(1, 1).Numberformat = "@"

objExcel.Workbooks(1).Save
objExcel.Workbooks(1).Close
objExcel.Quit

WScript.Quit

 

[combo]

You have to format cell as string first, next convert current date to a string using the convention you need (see examples in this forum's FAQ), and next assign text to the cell. Steps 1 and 3:

objExcel.Cells(1, 1).Numberformat = "@"
objExcel.Cells(1, 1).Value = DateConvertedToText

combo