|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Текст по столбцам. Excel. VBS |
|
|
VBS/WSH/JS - [решено] Текст по столбцам. Excel. VBS
|
В Поисках Истины Сообщения: 802 |
Профиль | Отправить PM | Цитировать
Добрый день, Уважаемые.
Столкнулся с проблемой. Vbs пока что только осваиваю, поэтому прошу сильно не пинать. В общем имеется текстовый файл с такой структурой:
где первая и вторая колонка - дата и время соответственно. Файл довольно большой, порядка 100000 строк и более. Средствами VBS этот файл открывается в Excel (2010), и при помощи Dim app Set app = CreateObject("Excel.Application") ........... app.Selection.TextToColumns app.ActiveSheet.Range("A1"), 1, 1, 0, 0, 0, 0, 0, 1, ";"'нашел где то в просторах интернета При этом первый столбец не меняет формат на "Дата". Да и при любом формате, уже вручную, остается без изменений. Если же все сделать ручками в экселе, то при разбивке строк на колонке все хорошо работает. Думаю причиной всему являются параметры процедуры TextToColumns, но пока не могу определить конкретику. Поэтому прошу Вас помочь мне. Заранее благодарен. ай, ай, ай. Не в той ветке создал( перенесите пожалуйста! |
|
------- Отправлено: 12:16, 30-10-2012 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата LilLoco:
2. Вам нужно открыть именно из WSH в Excel? Какова конечная цель? Что планируется делать с этими данными далее? |
|
Отправлено: 22:28, 30-10-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
В Поисках Истины Сообщения: 802
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Const FileNameLog = "D:\1\log.txt" Const FileNameSave = "D:\1\log.xlsx" Dim app, book Set app = WScript.CreateObject("Excel.Application") app.Visible = true Set book = app.Workbooks.Open(FileNameLog) app.ActiveSheet.Columns("A:A").Select app.Selection.TextToColumns app.ActiveSheet.Range("A1"), 1, 1, 0, 0, 0, 0, 0, 1, ";" app.ActiveSheet.Columns("B:B").Select app.Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM" app.ActiveSheet.UsedRange.Select book.SaveAs FileNameSave,51 Set book = Nothing app.DisplayAlerts = false app.Quit app.DisplayAlerts = true Set app = Nothing Цитата Iska:
Попробовал сделать все вручную, записав при этом макрос. При действиях руками,- все работает. Но с этими же данными, но при помощи записанного макроса, так же не работает. |
||
------- Отправлено: 08:32, 31-10-2012 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Коллега, не представляю, как Вы пробовали записывать макрос, если от него ничего в коде не осталось.
Пробуйте: Цитата LilLoco:
|
|
Отправлено: 10:34, 31-10-2012 | #4 |
В Поисках Истины Сообщения: 802
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Цитата Iska:
|
|||
------- Последний раз редактировалось LilLoco, 31-10-2012 в 11:09. Отправлено: 10:43, 31-10-2012 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата LilLoco:
Цитата LilLoco:
|
||
Отправлено: 10:59, 31-10-2012 | #6 |
В Поисках Истины Сообщения: 802
|
Профиль | Отправить PM | Цитировать Iska, Огромное спасибо все работает.
Еще такой вот вопрос. Для даты используется формат даты (xlDMYFormat = 4), а если колонка содержит дату и время (дд/ММ/гггг чч:мм:сс), какой формат при этом необходимо использовать? Цитата Iska:
|
|
------- Отправлено: 11:10, 31-10-2012 | #7 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата LilLoco:
Цитата LilLoco:
|
||
Отправлено: 11:24, 31-10-2012 | #8 |
В Поисках Истины Сообщения: 802
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 11:39, 31-10-2012 | #9 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата LilLoco:
Цитата LilLoco:
|
||
Отправлено: 21:01, 31-10-2012 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBA - Помогите написать макрос в Excel, экспорт данных из Excel в Word. | E.v.g | Программирование и базы данных | 7 | 03-05-2018 22:18 | |
2010 - При отправке любого офисного (Word, PP, Excel) файла из писем исчезает текст | Terrapevt | Microsoft Office (Word, Excel, Outlook и т.д.) | 1 | 12-05-2012 20:32 | |
2007 - Текст в Excel 2007 | jazzanova | Microsoft Office (Word, Excel, Outlook и т.д.) | 5 | 12-04-2011 22:25 | |
CMD/BAT - С помощью bat-ника найти и заменить текст в файле на текст из другого файла | Nun-Nun | Скриптовые языки администрирования Windows | 1 | 08-03-2011 15:25 | |
[решено] Сортировка данных ListView по столбцам | malev | AutoIt | 3 | 16-10-2009 17:53 |
|