I made a text to column script after reading these threads. I am pretty sure it worked a few weeks back after testing on a few excel files.
Have i accidentally deleted some important code
Code: Select all
^!b:: ;deliminates 1st column to get data separated into columns
xl:= ComObjActive("Excel.Application")
xl.activesheet.range("a1").EntireColumn.TextToColumns
Return
Code: Select all
xl.Selection.TextToColumns([color=#FF0000]xl.range("A1")[/color],1,1,0,1,0,0,0,1,"|")
J