VBS/WSH/JS - Преобразование данных (Excel)

Iska · Отправлено: **23:08, 26-04-2011** | #2

Serg2010, результат обычно напрямую зависит от приложенного образца файла.

Выделить область со вторым столбцом, записать макрос, воспользовшись средством «\Данные\Текст по столбцам»; получив нечто подобное:

Код:

    Selection.TextToColumns Destination:=Range("<здесь диапазон>"), DataType:=xlDelimited, Other:=True, OtherChar := vbLf

преобразовать его в WSH.

Цитата Serg2010:

ну а бывший 2 столбец стал уже пятым с индексом. »

Бывший третий, Вы хотели сказать…

megaloman · Отправлено: **11:04, 03-05-2011** | #3

Вот скрипт VBS

Код:

fXLS = "P:\Delete\ccc.xls"

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open fXLS

i = 0
Do While True

    Stroka = XL.Range("A1").Offset(i, 0)
    If Stroka = "" Then Exit Do
    XL.Range("B1").Offset(i, 0).TextToColumns XL.Range("D1").Offset(i, 0),,,,,,,,True,vbLf
    
    i = i + 1
Loop

XL.Columns("B").Delete xlToLeft
XL.Columns("B").Cut
XL.Columns("F").Insert xlToRight

XL.ActiveWorkbook.Save
XL.Quit

С макросами в Word не работаю
Использовал сообщение Iska и хелп VBA