Пересохранить имеющиеся в папке файлы .xlsx в .xls

@habanasilor · Регистрация: 30.10.2014

Здравствуйте, помогите, пожалуйста неопытному,
Имеется директория, в ней много Excel-файлов в новом формате .xlsx. Необходимо все эти файлы перевести при помощи Sql или VBA в предыдущий формат Excel-97 с расширением .xls.

@Kkarn · 09.06.2017, 11:55

Хм, а каким боком этот вопрос касается Access?..
Мне кажется, наиболее рационально будет в данном случае действовать именно из Экселя... Написать в нем небольшой макрос, в котором и делать пересохранение. По крайней мере, лично я действовал бы именно так.

@habanasilor · 09.06.2017, 15:41 **[ТС]**

Потому, что хотелось бы это делать одной процедурой именно из Access. Для Excel надо заводить новое расширение файла, в котором есть макросы, кажется, xlsb. Кроме того, не зависимо от меня часто изменяется содержание директории, а там полная белиберда с расширениями и xls, и xlsx.

@~~Eugene-LS~~ · 09.06.2017, 20:00

Сообщение от habanasilor

много Excel-файлов в новом формате .xlsx. Необходимо все эти файлы перевести при помощи Sql или VBA в предыдущий формат Excel-97 с расширением .xls.

Ну так (из VBA):
01. Запускаем :

Visual Basic

1	Set objExcelApp = CreateObject("Excel.Application")

...

02. Перебираем все файлы в папке

Visual Basic

    'Перебор файлов в папке:
    s = Dir(path_mask, vbNormal)
    Do While s <> ""
        Debug.Print s
        s = Dir
    Loop

...

03. Открываем каждый файл

Visual Basic

1	Set objWorkbook = objExcelApp.Workbooks.Open(wbSoursePath)

...

04. ... и сохраняем его в новом формате:

Visual Basic

1 2	'Сохраняем РЕЗУЛЬТАТ ... objWorkbook.SaveAs ... [+ ПАРАМЕТРЫ!]

Ничего сложного!

@habanasilor · 10.06.2017, 13:27 **[ТС]**

А как там в самом последнем предложении задать параметры сохранения в xls, там требуются имена файлов а они у нас текущие...?

@~~Eugene-LS~~ · 10.06.2017, 13:34

Сообщение от habanasilor

А как там в самом последнем предложении задать параметры сохранения в xls, там требуются имена файлов а они у нас текущие...?

А вот не помню ... уж извините.
Если у ваших друзей есть доступ в Internet - попробуйте поискать там...

shanemac51 · 10.06.2017, 13:37

для этого
--записывают макрос в екселе макрозаписью
--подчищают получившийся код, заменяя константы на их значения
--формируют имя нового документа в виде строки
--перетаскивают код в аксесс

@habanasilor 1 / 1 / 0 Регистрация: 30.10.2014 Сообщений: 31
		1
	Пересохранить имеющиеся в папке файлы .xlsx в .xls 08.06.2017, 15:37. Просмотров 2202. Ответов 6 Метки sql, vba, xls, xlsx, сохранить (Все метки) Здравствуйте, помогите, пожалуйста неопытному, Имеется директория, в ней много Excel-файлов в новом формате .xlsx. Необходимо все эти файлы перевести при помощи Sql или VBA в предыдущий формат Excel-97 с расширением .xls. 0

@Kkarn 894 / 284 / 50 Регистрация: 02.12.2014 Сообщений: 1,229
	09.06.2017, 11:55	2
	Хм, а каким боком этот вопрос касается Access?.. Мне кажется, наиболее рационально будет в данном случае действовать именно из Экселя... Написать в нем небольшой макрос, в котором и делать пересохранение. По крайней мере, лично я действовал бы именно так. 2

@habanasilor 1 / 1 / 0 Регистрация: 30.10.2014 Сообщений: 31
	09.06.2017, 15:41 [ТС]	3
	Потому, что хотелось бы это делать одной процедурой именно из Access. Для Excel надо заводить новое расширение файла, в котором есть макросы, кажется, xlsb. Кроме того, не зависимо от меня часто изменяется содержание директории, а там полная белиберда с расширениями и xls, и xlsx. 0

@habanasilor 1 / 1 / 0 Регистрация: 30.10.2014 Сообщений: 31
	10.06.2017, 13:27 [ТС]	5
	А как там в самом последнем предложении задать параметры сохранения в xls, там требуются имена файлов а они у нас текущие...? 0

@~~Eugene-LS~~ Заблокирован
	10.06.2017, 13:34	6
	Сообщение от habanasilor А как там в самом последнем предложении задать параметры сохранения в xls, там требуются имена файлов а они у нас текущие...? А вот не помню ... уж извините. Если у ваших друзей есть доступ в Internet - попробуйте поискать там... 0

shanemac51 Модератор 10023 / 4041 / 650 Регистрация: 07.08.2010 Сообщений: 11,338 Записей в блоге: 3
	10.06.2017, 13:37	7
	для этого --записывают макрос в екселе макрозаписью --подчищают получившийся код, заменяя константы на их значения --формируют имя нового документа в виде строки --перетаскивают код в аксесс 1

Опции темы