VBA (Visual Basic для приложений) — это язык программирования, обычно используемый для автоматизации задач в Microsoft Excel. Одной из распространенных задач является чтение строк из листа Excel и их отображение в текстовом поле. В этой статье мы рассмотрим несколько методов достижения этой цели на примерах кода.

Метод 1: использование цикла For
Самый простой метод — использовать цикл For для перебора каждой строки на листе и сбора значений в строковую переменную. Вот пример:

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with your sheet name
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' Assuming data starts from column A
Dim rowData As String
For i = 1 To lastRow
    rowData = rowData & ws.Cells(i, 1).Value & vbCrLf ' Assuming data is in column A; vbCrLf adds a line break
Next i
TextBox1.Value = rowData

Метод 2: использование Range и Join
Другой подход — использовать объект Range для извлечения всего диапазона строк и последующего объединения значений в строку. Вот пример:

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with your sheet name
Dim rowRange As Range
Set rowRange = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row) ' Assuming data is in column A
Dim rowData As String
rowData = Join(Application.Transpose(rowRange.Value), vbCrLf) ' Transpose the range values and join with line breaks
TextBox1.Value = rowData

Метод 3: использование SQL-запроса
Если у вас большой набор данных, вы можете использовать возможности SQL-запросов в VBA для чтения строк из Excel. Этот метод требует добавления ссылки на библиотеку объектов данных Microsoft ActiveX. Вот пример:

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
rs.Open "SELECT * FROM [Sheet1$]", conn ' Replace "Sheet1" with your sheet name
Dim rowData As String
rowData = rs.GetString(, , vbCrLf) ' Get the entire recordset as a string with line breaks
TextBox1.Value = rowData
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

Это всего лишь несколько способов чтения строк Excel и их отображения в текстовом поле с помощью VBA. В зависимости от ваших конкретных требований и размера набора данных вы можете выбрать наиболее подходящий метод. Поэкспериментируйте с этими примерами и адаптируйте их к своим потребностям, чтобы улучшить свои проекты автоматизации Excel.

Не забудьте заменить «Лист1» на имя вашего листа и изменить код в соответствии с вашими конкретными требованиями. Приятного кодирования!