Шаблон Excel для счета-фактуры

---

Моя идея состояла в том, чтобы позволить конечному пользователю открыть excel и создать шаблон для счета-фактуры. После этого я бы ему сейчас сказал, что для столбца "название статьи" ему нужно поставить в диспетчере имен название столбца "NameArticle" и ссылаться на этот столбец и так далее для других столбцов.

После этого с помощью цикла я бы читал из своих sql-данных и заполнял данные в Excel по этим шаблонам.

У меня есть одно решение, где это в настоящее время работает, но оно ужасно медленное, поэтому я решил бросить его и поискать другое решение.

Конец.
Я попытался перевести код с моего родного языка, чтобы быть более понимающим для вас

Что я уже пробовал:

Мое решение шло примерно так.

Заполните класс именем свойства и значением свойства

Подготовьте ряды

For j = 1 To bsItems.Count - 1
    For i = 1 To numberOfRowsPerItem
        xlSheet.Rows(endRow).Insert
    Next i
Next j

После этого я скопирую сформированные ячейки

For j = 1 To bsItems.Count - 1
    For i = 1 To numberOfRowsPerItem
        xlSheet.Rows(ItemStartRow + i).Copy
        xlSheet.Rows(ItemStartRow + (j * numberOfRowsPerItem) + i).PasteSpecial
    Next i
Next j

И заполнить значения

For j = 1 To bsItems.Count
    For i = 1 To UsedParameters.Count
        cParametar = UsedParameters(i)

        MyPos.ExcelPos = xlBook.Names(cParametar).RefersTo
        DataRow= MyPos.Row+ (j * numberOfRowsPerItem)
        DataColumn= MyPos.Column

        If ParameterExists(cParametar) = True Then
            cValue= bsItems.Item(j).Item(cParametar).ValueOfItem
            cTekst = xlSheet.Cells(DataRow, DataColumn)
            cTekst = PrepareAndFormatCell(cTekst, cVrijednost)

            cNumFormat = xlSheet.Cells(DataRow, DataColumn).NumberFormat
            If InStr(1, cNumFormat, "0.00") <> 0 Then
                xlSheet.Cells(DataRow, DataColumn) = CDbl(cTekst)
            Else
                xlSheet.Cells(DataRow, DataColumn) = cTekst
            End If        
        End If
    Next i
Next j

---