[Ka3hak]

DJ Mogarych, спасибо Вам большое за вариант. Беру его на рассмотрение, в обязательном порядке.
Смущает только # Конвертация xls в xlsx. Дело в том, что разбор полётов происходит с файлом старого образца, Office 2003

Избавляться надо от Excel »

И тут Вы правы. Солидарен. Но это не от меня зависит.

И максимумом геморроя для того, кто возьмётся это реализовывать. »

Есть такое.

Как максимум, можно предложить вносить исходные данные в Excel - таблицы, например - одно данное - одна книга созданная по бланку, со своим именем в определённой папке, »

Чувствуете этот запах? Запах жаренного мозга кажись... Не особо догнал о чём речь

[Ka3hak]

Господиии! Да как же всё сложно-то, а
Я понимаю, что задача из разряда - вырывание зуба через анальное отверстие. И было бы это просто - я бы к вам за помощью не обращался.
По-крайней мере, здесь я выяснил, что реализация задуманного невозможна по средствам BAT/CMD. А может VBS здесь тоже не поможет? Тогда скажите об этом прямо.
GUI+исполняемые скрипты - как вариант работы извне. Ну вот нету у меня Excel-я, к примеру... Соответственно нет макросов. Да вообще ничего нет! Что делать...?
Если я перефразирую задачу вплоть до самого минимума, это что-то изменит? Могу даже ещё один файл залить, для примера и точности описания текущей задачи. Хотя подойдёт и пустой.
Пример. Текущий файл имеет вид:
(строка:№1)\1(A1-числовая ячейка)\огонь(B1-текстовая ячейка)\45(С1-числовая ячейка)
(строка:№2)\2(A2-числовая ячейка)\вода(B2-текстовая ячейка)\86(С2-числовая ячейка)
...
Вопрос.
VBS скрипт вносит строку: (строка:№3)\3(A3-числовая ячейка)\медные трубы(B3-текстовая ячейка)\94(С3-числовая ячейка); т.к. строки:№1-2 заняты.
Если отсутствует (строка:№2\"вода"), то вносимая строка (строка:№3\"медные трубы") прописывается вместо неё, под №2. Если отсутствуют обе (№1,2), то под №1/
Могу поставит вопрос ещё проще. Мне даже нумерация не нужна, дело не в этом! Просто нужно избежать перезаписывания строк.
Вопрос.
Как, с помощью VBS записать текстовую и числовую информацию в ячейки A2(текстовая) и B2(числовая) - (строки:№2)(соответственно), если (строка:№1) уже занята?

[Serguei Kouzmine]

Ka3hak, мне кажется вы еще не рассматриваете Хабр Фриланс - и мне не ясно почему ?
опишите задачу и вам ее сделают - а как тема для форума ваша задача черезчур узко специальна

ну кому может потребоваться заливать воду с огнем через медные трубы прописью в новую ячейку ?

[Ka3hak]

Serguei Kouzmine, а мне почему-то кажется, что вы очень глубоко и сильно прониклись сутью поставленной задачи. Спасибо Вам.

ну кому может потребоваться заливать воду с огнем через медные трубы прописью в новую ячейку ? »

Не ячейку, а строку - что само собой подразумевает изменение целого ряда ячеек. И желательно не прописью, а печатными буквами и арабскими цифрами.

[megaloman]

Текущий файл имеет вид: »

Так каждый может, ты мне Мурку сбацай! Дайте под эту постановку:
1. Текстовый файл откуда данные берём.
2. Excel-Таблицу с 1-2 строкой, после которых эти данные вставляем.
Пустых строк между строками с данными быть не может?
Это одна строка, или надо вставить за раз кучу строк?
Вы не боитесь, что умелые ручки запустят скрипт сто раз и вставят одни и те же строки многократно?
Соответственно, надо говорить об организации процесса: где-то в папке должен быть импортируемый файл с данными.
Куда-то после импорта он должен перемещаться.

И было бы это просто »

Вставить строку в Excel-таблицу vbs - элементарная задача. Если бы было четкое понимание задачи.

Не особо догнал о чём речь »

Данные содержит сам скрипт. Для каждого из пунктов производимых работ "он свой". »

Могу представить, что обычный пользователь способен в заготовку Excel-таблицы что-то заполнить. Но

Чувствуете этот запах? Запах жаренного мозга кажись... »

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

[Ka3hak]

Вставить строку в Excel-таблицу vbs - элементарная задача.»

Бесконечно рад. *ликует :D*

1. Текстовый файл откуда данные берём. »

Неужели скрипт не может содержать данные? Мне нужен пример лишь одного скрипта вносящего данные в 3 ячейки одной строки. Тогда хотя бы будет на чём основываться:

(строка:№1)\1(A1-числовая ячейка)\огонь(B1-текстовая ячейка)\45(С1-числовая ячейка) »

Я просто буду использовать видоизменённые копии одного и того же скрипта.
Скрипт также должен соблюсти условие "неперезаписывания". Чтобы свериться - можно запустить его парочку раз и увидеть результат.
А уже после, для каждого типа "производимых работ"(это раздел таблицы) я буду корректировать этот скрипт по-своему.

Это одна строка, или надо вставить за раз кучу строк? »

На примере файла вложенного в тему - там за раз необходимо задействовать 3 строки. Но, в принципе, можно и по одной.

Вы не боитесь, что умелые ручки запустят скрипт сто раз и вставят одни и те же строки многократно? »

Даже не думаю об этом. Пользователь будет работать непосредственно с GUI интерфейсом, а уже там - я исключу такую возможность.

К слову

P.S. Кстати! А ведь Вы навели меня на мысль! Что если собрать .txt, .ini, либо .cfg-файл по средствам того же .BAT, а после - разом занести всю информацию с помощью .VBS?
Может так даже лучше будет, как считаете? Или, это наоборот, в разы усложнит задачу?

[DJ Mogarych]

Можно поднять MySQL и использовать Excel как интерфейс к базе, и то лучше будет.
https://youtu.be/E_kn71R9BL0

[Ka3hak]

1. Текстовый файл откуда данные берём. 2. Excel-Таблицу с 1-2 строкой, после которых эти данные вставляем. »

megaloman, вот архив с файлами. Как можно внести строки 9, 10, 11?

---

DJ Mogarych, да, ну опять же... Это плагин расширяющий функционал? В любом случае он требует времени на освоение и, как следствие, работу в самом Excel.
Если бы это было нужно мне, как пользователю, я бы несомненно автоматизировал под себя многие действия. Но увы... Задача другая
В любом случае СПАСИБО. Я обязательно рассмотрю предложенный Вами вариант.

[Iska]

Это плагин расширяющий функционал? »

Это бесплатная СУБД.

[megaloman]

Ka3hak,

Изменил последний вариант Вашей таблицы, придумал немного другой файл с данными.
Смысл этого извращения мне до сих пор непонятен

Это скрипт

Код:

FileIn = "Z:\Soft_In\Мой Пример.cfg"
FileOut = "Z:\Soft_In\Мой Пример.xls"

Con = Array("B", "C")                   'В этих столбцах записываются заголовки блоков
Dan = Array("D", "E", "G", "H")         'В этих столбцах записываются данные

Str1 = 5                                'В этой строке первое данное
NoNull = "E"                            'В этом столбце обязательно должны быть данные
Form = Array("F")                       'В этих столбцах формулы. В первой строке с данными они должны быть

Beg = "#"                               'Признак начала секции
Delim = ";"                             'Разделитель данных

Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set fIn = FSO.OpenTextFile(FileIn, 1, False)

If Err.Number <> 0 Then
    MsgBox "File   " + FileIn + vbCrLf + Err.Description + "(" + CStr(Err.Number) + ")"
    WScript.Quit 2
End If
On Error GoTo 0

Alls = Split(fIn.ReadAll, vbCrLf)
fIn.Close

With CreateObject("Excel.Application")
	.Visible = True
	.Workbooks.Open FileOut

i = Str1
Do
    If Trim(.Range(NoNull + CStr(i))) = "" Then
        Exit Do
    End If
    i = i + 1
Loop

NCon = UBound(Con)
NDan = UBound(Dan)

LBegin = False
For Each j In Alls
    If Not Trim(j) = "" Then
        If Left(j, 1) = Beg Then
            
            If LBegin Then
                For Each m In Con
                    .Range(m + CStr(i1) + ":" + m + CStr(i2 - 1)).Merge
                Next
            End If
            
            LBegin = True
            i1 = i
            i2 = i
            jCon = Split(j, Delim)
            jj = 0
            For Each k In jCon
                If jj <= NCon Then
                    .Range(Con(jj) + CStr(i1)) = Replace(k, Beg, "")
                End If
                jj = jj + 1
            Next
        Else
            If LBegin Then
                jCon = Split(j, Delim)
                jj = 0
                For Each k In jCon
                    If jj <= NDan Then
                        .Range(Dan(jj) + CStr(i2)) = k
                    End If
                    jj = jj + 1
                Next
                
                For Each k In Form
                    .Range(k + CStr(Str1)).Copy
                    .Range(k + CStr(i)).PasteSpecial -4123
                Next

                i = i + 1
                i2 = i
            End If
        End If
    End If
Next

If LBegin Then
    For Each m In Con
        .Range(m + CStr(i1) + ":" + m + CStr(i2 - 1)).Merge
    Next
End If

	.ActiveWorkbook.Save
	.ActiveWorkbook.Close
	.Quit
End With

Это файл с данными

Код:

#Для тех, кто в танке;куб. градусы
1;огонь;13;4
2;вода;6;7
3;медные трубы;14;6
#Для страуса;зиверты
5;песок;8;5
6;цемент;9;6
7;плитка;10;7
#Ритуальные услуги;кв.литры
9;краска;4;6
10;грунтовка;8;7
11;шпатлевка;13;5

Распакуйте архив, пропишите в скрипте свои пути. Посмотрите на Excel-файл до и после скрипта.
Это пример того, что сделать можно что угодно, но не думаю, что практически он полезен - мутная постановка с непонятным смыслом.
Если захотите изменить таблицу, в скрипте есть настройки сверху на уровне входных данных (с комментариями).