Заполнение шаблона документа excel данными из БД (SQL SERVER)

@Progerus · Регистрация: 19.05.2015

Author24 — интернет-сервис помощи студентам

qwe.xlsСил больше нету искать решение. Ребята, помогите. Нужно из vb6 открыть шаблон документа excel и заполнить его данными из БД. Для примера не могли бы вы написать код программы? для того что бы вставить в ячейку НОМЕР ДОКУМЕНТА запись из таблицы БД (можно даже не заморачиваться с БД, просто дайте пример как вставить значение txtNum.text в эту ячейку) Документ в который нужно вставить я прикрепил к сообщению. Спасибо за помощь заранее!!! Очень нужно, прямо горит.... qwe.xls

@Казанский · 20.05.2015, 11:58

Progerus,

Visual Basic

Dim xlWb As Object
  Set xlWb = GetObject(App.Path & "\qwe.xls") 'файл в папке с программой
  xlWb.sheets("стр1").range("AP13") = "0001"  'номер
  xlWb.sheets("стр1").range("BB13") = Date    'дата
  xlWb.windows(1).Visible = True
  xlWb.saveas App.Path & "\qwe1.xls"          'сохранить с новым именем
  xlWb.Close 0

Еще - сделайте поиск по "excel" в заголовках тем этого форума. Используйте "запись макроса" в Excel, чтобы узнать названия свойств и методов объектов Excel.

@Progerus 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 1
		1
	Заполнение шаблона документа excel данными из БД (SQL SERVER) 19.05.2015, 16:22. Показов 3048. Ответов 1 Метки нет (Все метки) qwe.xlsСил больше нету искать решение. Ребята, помогите. Нужно из vb6 открыть шаблон документа excel и заполнить его данными из БД. Для примера не могли бы вы написать код программы? для того что бы вставить в ячейку НОМЕР ДОКУМЕНТА запись из таблицы БД (можно даже не заморачиваться с БД, просто дайте пример как вставить значение txtNum.text в эту ячейку) Документ в который нужно вставить я прикрепил к сообщению. Спасибо за помощь заранее!!! Очень нужно, прямо горит.... qwe.xls 0

	20.05.2015, 11:58

Заполнение шаблона документа excel данными из БД (SQL SERVER)

Решение