UMV
Пользователь

Вне Форума
Сообщений: 27
|
Добрый день! 1. Думаю это более удобно сделать через управляющую форму и Lua. 2. Перебираем все имеющиеся файлы и программным способом сохраняем их в формате CSV, через создаваемый скрипт. Примерный скрипт:
Set objExcel = WScript.CreateObject("Excel.Application") objExcel.DisplayAlerts = False objExcel.Workbooks.Open "W:\список.xlsx" objExcel.Range("A1", "IV65536").Replace vbLf, "$%$" objExcel.Range("A1", "IV65536").Replace vbCr, "$%$" objExcel.Range("A1", "IV65536").Replace "$%$$%$", "$%$" objExcel.ActiveWorkbook.SaveAs "W:\список.csv", 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, true objExcel.ActiveWorkbook.Saved = True objExcel.ActiveWindow.Close objExcel.Quit objExcel.DisplayAlerts = True
Возможны и другие требуемые замены. 3. Загружаем в Cronos полученный CSV-файл. 4. Удаляем скрипт и CSV-файл, чтобы "не плодить" лишнего.
|