Try This
Dim RR As Object
Dim excel As Object
Try
RR = GetWorksheet(Handle, WorkBookName, WorkSheetName)
RR.Activate()
excel = RR.Application
RR.UsedRange.Select()
excel.Selection.TextToColumns (DataType:=1, ConsecutiveDelimiter:=True,Other:=True,Ot...
Try This
Dim RR As Object
Dim excel As Object
Try
RR = GetWorksheet(Handle, WorkBookName, WorkSheetName)
RR.Activate()
excel = RR.Application
RR.UsedRange.Select()
excel.Selection.TextToColumns (DataType:=1, ConsecutiveDelimiter:=True,Other:=True,O...