[Iska]

maxim43g, а) это надо делать не в Excel'е, б) вместо:

excel имеет вид столбец А столбец Б столбец В номер Тема Фамилия 1 Запрос Иванов »

выложите Ваш файл Рабочей книги.

[maxim43g]

вот

[Iska]

Пробуйте (на WSH): Sample.7z.

Замените путь в Sample.vbs в:

Код:

strSourceFile = "C:\Мои проекты\0341\пример.xlsx"

на Ваш. Если будете использовать свою Рабочую книгу — сначала создайте в ней excel список с именем «Список1» на основе данных таблицы:

Скрытый текст

[maxim43g]

Спасибо большое, работает.
Но есть люди у которых нет Excel, а стоит Libreoffice, при этом либреофис есть абсолютно у всех.
Excel.Application вызывают ошибку, можно как то данную строку заменить на либреоффис?

[Iska]

можно как то данную строку заменить на либреоффис? »

Заменить-то можно. Только работать от этого не станет.

[maxim43g]

Только работать от этого не станет. »

и никакого выхода нет?

[DJ Mogarych]

Есть. Powershell с модулем ImportExcel, ему Эксель не нужен.

Неизящно, но работает:

Код:

$theme = (read-host "Введите тему").Trim()
$surname = (read-host "Введите фамилию").Trim()

$path = "D:\temp\journal\журнал.xlsx"
$xlsx = (import-excel "$path") |? 'Номер регистрации' -match '\d'
$c = $xlsx[-1].'Номер регистрации' + 1

$obj = [PSCustomObject]@{
'Номер регистрации' = $c
Тема = $theme
Фамилия = $surname
}

$xlsx += $obj
$xlsx |Export-Excel -Path $path -WorksheetName 'Лист1' -AutoSize -BoldTopRow

[Iska]

DJ Mogarych, мне токмо не нравится это:

Код: $c = $xlsx[-1].'Номер регистрации' + 1 »

Закладываться на наличие строгой сортировки во возрастанию я бы не стал.

[DJ Mogarych]

Ну проблем-то:

Код:

$xlsx = (import-excel "$path") |? 'Номер регистрации' -match '\d' |sort 'Номер регистрации'