27-05-22 10:47 AM
27-05-22 04:30 PM
Selection.TextToColumns(Destination:=Range..etc..Numbers:=True)
29-05-22 02:29 AM
Dim wb, ws As Object
Dim excel, sheet As Object
Const xlDown As Int32 = -4121
Const xlDelimited As Int32 = 1
Const xlDoubleQuote As Int32 = 1
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
sheet.Range("B13").Select
sheet.Range("B13", excel.Selection.End(xlDown)).Select
excel.ActiveWindow.SmallScroll(Down:=3)
excel.Selection.TextToColumns(Destination:=sheet.Range("B13"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, TrailingMinusNumbers:=True)
Here, you need to pass the workbook and handle variable after you use the 'Create Instance' and 'Open Workbook' actions along with the name of the sheet as an input parameter.
01-06-22 12:54 PM
01-06-22 01:49 PM
01-06-22 01:59 PM