Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel 95 -> в любой более новый формат / 4 сообщений из 4, страница 1 из 1
27.03.2007, 10:02:40
    #34417398
Dark_Scorpion
Dark_Scorpion
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel 95 -> в любой более новый формат
Есть куча файлов, сохранённых в формате excel 95. Необходимо пересохранить все эти файлы в любой более новый формат. Можно конечно вручную открывать в excel эти файлы и заново сохранять. Но это решение не приемлимо. Как это можно сделать автоматически? Либо как написать программу, которая это делала бы автоматически?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2007, 14:36:11
    #34418482
Овчарик
Овчарик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel 95 -> в любой более новый формат
А смысл пересохранять когда тебе понадобится этот файл то он откроется сам в той версии с которой ты работаеш
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2007, 14:54:00
    #34418556
Dark_Scorpion
Dark_Scorpion
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel 95 -> в любой более новый формат
открывать файл прийдётся в OpenOffice - а он умеет работать тока с форматами начиная с excel97.
нужен конвертор которому указываешь папку и он все excel-файлы шерстит.
Думаю алгоритм будет примерно такой:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
  exl_old :=CreateOleObject('Excel.Application');
  exl_old.WorkBooks.Open('c:\temp\file.xls');
  exl_old.Cells.Select;
  exl_old.Selection.Copy;

  exl_new:=CreateOleObject('Excel.Application');
  exl_new.WorkBooks.Open('c:\temp\blank.xls');

  exl_new.ActiveSheet.Paste;
  exl_new.ActiveWorkbook.SaveAs('c:\temp\file_new.xls');

  exl_old := Unassigned;
  exl_new := Unassigned;
Содержимое копируется правильно
Одно НО: ширина столбцов при копировании не сохраняется.
Как сделать так чтобы щирина столбцов при копированиии осталась такая де как в оригинале?
Или всё-таки прийдётся делать цикл в котором присваивать каждому столбцу ширину.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2007, 13:34:35
    #34421495
Indian
Indian
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel 95 -> в любой более новый формат
Если написать макрос в файле .xls, то в итоге получиться новый файл той версии, которая была в том Excel куда был сохранен макрос, ну и соответсвенно, запущен:
Код: plaintext
1.
2.
3.
4.
Workbooks.Open Filename:="c:\temp\file.xls"
    ActiveWorkbook.SaveAs Filename:="c:\temp\file_new.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
По крайней мере, попробуй.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel 95 -> в любой более новый формат / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 778ms
Закрыть
start [/forum/search_topic.php?author=stepan_cher&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 8ms
get forum list:
 17ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 611ms
total:  778ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]