VPF::Как ввести в листбокс заголовок?

avtoritet

Дата 1.8.2005, 12:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

заголовок установить можно columns.heads.
но как ввести туда конкретные данные, в каждый столбец.

Guest

Дата 1.8.2005, 13:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ну что все по нулям????
никто не знает?????

cardinal

Дата 1.8.2005, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

Цитата(Guest @ 1.8.2005, 11:07)

ну что все по нулям????

А ты думаешь, что тебе в момент ответят?

Цитата(avtoritet @ 1.8.2005, 10:45)

columns.heads

А это ты где нашел? Может у тебя все таки VB.Net?

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Guest

Дата 1.8.2005, 14:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ну типа установить заголовки
listbox1.columnheads = true
и типа программа устанавливает пустые заголовки,
а мне нужно туда буквы написать............
это Visual Basic for application

cardinal

Дата 1.8.2005, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

Цитата(Guest @ 1.8.2005, 12:04)

это Visual Basic for application

А это уже не VB, а VBA...
Тему перенес.

--------------------

Staruha

Дата 1.8.2005, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Код


Private Sub CommandButton1_Click()
 Dim oXL As Excel.Application
      Dim oWB As Excel.Workbook
      Dim oSheet As Excel.Worksheet
      Dim oRng As Excel.Range
      

      'On Error GoTo Err_Handler
      
   ' Start Excel and get Application object.
      Set oXL = CreateObject("Excel.Application")
      oXL.Visible = True
      
   ' Get a new workbook.
      Set oWB = oXL.Workbooks.Add
      Set oSheet = oWB.ActiveSheet
    
 ' создаем таблицу с названиями столбцов
   ' Add table headers going cell by cell.
      oSheet.Cells(1, 1).Value = "First Name"
      oSheet.Cells(1, 2).Value = "Last Name"
      oSheet.Cells(1, 3).Value = "Full Name"
      oSheet.Cells(1, 4).Value = "Salary"

Это если из Basica.А из xl проще Cells(1, 1).value = "Первый столбец"

Это сообщение отредактировал(а) Staruha - 1.8.2005, 20:55

--------------------

Возмездие настигнет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »