Hi all, would someone please be able to tell me what code to add to the code below to enable me to change the last letter of every string in column 'L' on my spreadsheet please? This is an adhoc thing for work so don't know much about VBA. This is a .vbs file being called from a .bat file.
Very very much appreciated, thanks.
DIM objFSO
DIM src_file
DIM objExcel
DIM objWorkbook
DIM ColumnCount
Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName("AD_iTrent_UserDetails.xls")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Trent_AD\AD_iTrent_UserDetails.XLS")
ColumnCount = objWorkbook.Sheets(1).UsedRange.Columns.count
If ColumnCount <> 12 then
objWorkbook.Close False
objExcel.Quit
wscript.quit
Else
objWorkbook.Close False
objExcel.Quit
End if
Very very much appreciated, thanks.
DIM objFSO
DIM src_file
DIM objExcel
DIM objWorkbook
DIM ColumnCount
Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = objFSO.GetAbsolutePathName("AD_iTrent_UserDetails.xls")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
("C:\Trent_AD\AD_iTrent_UserDetails.XLS")
ColumnCount = objWorkbook.Sheets(1).UsedRange.Columns.count
If ColumnCount <> 12 then
objWorkbook.Close False
objExcel.Quit
wscript.quit
Else
objWorkbook.Close False
objExcel.Quit
End if