ListView в Excel

[sideX]

Подскажите как сохранить таблицу ListView в Excel, plzzzz

З.Ы. желательно с примером

[GSerg]

Что уже было сделано и что не получается?

[sideX]

Есть таблица LIstView c 7 колонками: Фамилий, Имя и т.д.
Кол-во записей в таблице заранее не известно.
Эту таблицу нужно сохранить в Excel, но не в Access!!!

[alibek]

Что уже было сделано?
Или самостоятельных попыток разобраться не предпринималось?

[sideX]

практически ничего, никогда не имел дело с сохранением в Excel.
До этого сохранял в html, но после сохранения, таблицу нельзя редактировать, поэтому решил сохранять в Excel, но совершенно не знаю как

[alibek]

Код: Выделить всё

Dim xl As Object
Set xl = CreateObject("Excel.Application")
With xl.Workbooks(1).Worksheets(1)
  .Cells(1,1)="Строка 1, столбец 1"
  .Cells(5,3)="Строка 5, столбец 3"
End With
xl.Visible = True
Set xl = Nothing

Если ты успешно сохранял в HTML, думаю, этого достаточно.

[sideX]

Спасибо, но я уже сделал немного по-другому.
Теперь вот другая проблема:

Код: Выделить всё

Set ExcelApp = New Excel.Application
ExcelApp.Workbooks.Add
ExcelApp.Visible = True

With Worksheets("Лист1")  'ширина колонки
    Columns("A").ColumnWidth = 4
    Columns("B").ColumnWidth = 26
    Columns("C").ColumnWidth = 7.86
    Columns("D").ColumnWidth = 19
    Columns("E").ColumnWidth = 11.86
    Columns("F").ColumnWidth = 14
    Columns("G").ColumnWidth = 11
    Columns("H").ColumnWidth = 13
End With


При первом запуске работает нормально, но потом выдаёт ошибку № 1004
"Method 'worksheets' of object '_Global' failed

[GSerg]

Не пробовал пользоваться поиском? Нет? Почему?
http://bbs.vbstreets.ru/viewtopic.php?t=23842