Здравствуйте! Сегодня: Вт, 24 Янв 2017, Ваш IP: 54.205.111.118 Войти через loginza
 
Вход | Регистрация | Забыли пароль?
Мой Kbyte.Ru
> Список форумов Kbyte.Ru - - Общие вопросы программирования
+ Добавить ответ | + Создать новую тему Страница: 1
Тема: Как с vb6 экспортировать переменные по порядку в строки excel? · +  +  дата добавления: 27.11.2016 / 22:44
Автор темы:
Tawan
Tawan
тем: 2 / ответов: 1 / благодарностей: 0 / репутация: 1
ответов: 1
создал(а) тем: 2


Здравствуйте, подскажите, пожалуйста, как сделать, чтобы при нажатии Command записывались по порядку переменные в Excel файл в определенные строки. У меня код перезаписывает (предлагает заменить файл)
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

Set oExcel = CreateObject("Excel.Application")
Open "C:\O\d\фф.xlsx" For Append As oExcel
Set oBook = oExcel.Workbooks.Add

Dim DataArray(1 To 1, 1 To 6) As Variant
Dim r As Integer
For r = 1 To 1

DataArray(r, 1) = LblDate
DataArray(r, 2) = Label19
DataArray(r, 3) = Label20

Next

Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1:B1").Value = Array("И")
oSheet.Range("C1:F1").Value = Array("С", "Се", "В", "С", "Ч")
oSheet.Range("A2:B2").Value = Array("П", "№")

oSheet.Range("A3:A1000").Resize(1, 6).Value = DataArray

oBook.SaveAs "C:\O\d\фф.xlsx"
oExcel.Quit
Технологии: Visual Basic 5.0/6.0
 

Нет ответов в этой теме...

Страница: 1 + Добавить ответ | + Создать новую тему