markhoward
Technical User
Hi there,
I have an existing spreadsheet which in the first column lists date and time like this:-
20050430124224Z
Whereas for clarity, what I really want is something like this:-
2005 04 30 124224Z
(the last digits could even be deleted)
How do I go about modifying the text stream to add in spaces for the whole column?
So far I have...
===========================================================
Dim objExcel,objWorkbook,intRow
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\myfile.xls")
objExcel.Visible = True
objExcel.Range("A1:A400").Select
'objExcel.Selection.Font.Bold = True
objExcel.Selection
' objExcel.ActiveWorkbook.Saved = True
' objExcel.ActiveWindow.Close
' objExcel.Quit
End Function
===========================================================
I see how you do things like make the text bold etc.. (see commented out line) but how do I actually modify teh text?
Thanks
I have an existing spreadsheet which in the first column lists date and time like this:-
20050430124224Z
Whereas for clarity, what I really want is something like this:-
2005 04 30 124224Z
(the last digits could even be deleted)
How do I go about modifying the text stream to add in spaces for the whole column?
So far I have...
===========================================================
Dim objExcel,objWorkbook,intRow
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\myfile.xls")
objExcel.Visible = True
objExcel.Range("A1:A400").Select
'objExcel.Selection.Font.Bold = True
objExcel.Selection
' objExcel.ActiveWorkbook.Saved = True
' objExcel.ActiveWindow.Close
' objExcel.Quit
End Function
===========================================================
I see how you do things like make the text bold etc.. (see commented out line) but how do I actually modify teh text?
Thanks