1.
2.
3.
4.
5.
6.
7.
Dim con As ADODB.Connection
Set con = CreateObject("Adodb.Connection")
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + xlsPath + _
";Extended Properties=""Excel 8.0;HDR=Yes;"""
con.Open
con.Execute ("insert into [Лист1$](Плательщик,Получатель,Клиент,Цель) Values(" + Плательщик + "," + Получатель + "," + Клиент + "," + Цель + ")")
con.Close
Собственно все работает, данные добавляются в файл excel, но числа добавляются как текст!
Кто нибудь может подсказать можно ли вообще добавить через SQL запрос данные в файл excel, чтобы они хранились как число?
Если это возможно то как.
