Добрый день! Помогите пожалуйста, как можно в прописать в коде, чтобы выводилась динамическая рамка
ws.Range("D4", "R18").Borders.LineStyle = xlEdgeLeft

Dim dr1 As SqlDataReader
dr1 = comm1.ExecuteReader
Dim k As Integer
k = 5
While dr1.Read()
ws.Cells(k, 2) = dr1(0)
ws.Cells(k, 3) = dr1(1)
k = k + 1
End While
dr1.Close()

app.Visible() = True

Заранее спасибо.

Я выгружаю данные из запроса в файл Excel. Я даю названия столбцам в конкретных ячейках

ws.Cells(4, 4) = "Дата поступления заказа"
ws.Cells(4, 5) = "Номер заказа"
ws.Cells(4, 6) = "Имя заказчика"
и т. д.
Также я с помощью этого фрагмента кода я произвожу форматирование ячеек: толщина, размер шрифта, выравнивание по центру, граница вокруг таблицы
With ws.Range("B4").ColumnWidth = 28
ws.Range("B5").ColumnWidth = 28
ws.Range("B6").ColumnWidth = 28
ws.Range("B7").ColumnWidth = 28
'ws.Range("B4", "R4").Font.Size = 18
ws.Range("B4", "R4").Font.Bold = True
ws.Range("B4", "C7").Borders.LineStyle = xlEdgeLeft
ws.Range("I2").Font.Bold = True
ws.Range("J2").Font.Bold = True
ws.Range("D4", "R4").HorizontalAlignment = xlHAlignCenter
ws.Range("D4").ColumnWidth = 25
ws.Range("E4").ColumnWidth = 25
ws.Range("D4", "R18").Borders.LineStyle = xlEdgeLeft <-Граница вокруг таблицы
ws.Range("A8", "C15")
End With

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


Dim dr1 As SqlDataReader
dr1 = comm1.ExecuteReader
Dim k As Integer
k = 5
While dr1.Read()
ws.Cells(k, 2) = dr1(0)
ws.Cells(k, 3) = dr1(1)<-Где-то здесь нужно это указать, но я не знаю как
k = k + 1
End While
dr1.Close()

app.Visible() = True

Большое спасибо, все получилось.