Вверх ↑
Этот топик читают: Гость
Ответов: 143
Рейтинг: 0
#16: 2025-03-08 14:46:58 ЛС | профиль | цитата
tig-rrr, понятно, запустим снабженцу питона в комп )))
карма: 1

0
Ответов: 521
Рейтинг: 166
#17: 2025-03-08 18:06:31 ЛС | профиль | цитата
Gunta писал(а):
Можно такой вариант. Он значительно быстрее.

Gunta, подскажи пожалуйста возможную причину , пример не отрабатывает, ошибка DS_ODBC- 1003 -- 'Не удалось соединиться с БД'
карма: 4

0
Ответов: 869
Рейтинг: 186
#18: 2025-03-08 18:13:45 ЛС | профиль | цитата
tig-rrr писал(а):
подскажи пожалуйста возможную причину , пример не отрабатывает, ошибка DS_ODBC- 1003 -- 'Не удалось соединиться с БД'

Скорее всего файл открыт в excel-е. Нужно чтобы файл не был занят ни чем.
Закройте его.
карма: 18

0
Ответов: 521
Рейтинг: 166
#19: 2025-03-08 18:22:51 ЛС | профиль | цитата
Gunta писал(а):
Скорее всего файл открыт в excel-е. Нужно чтобы файл не был занят ни чем.
Закройте его.

В начале в свойствах файла (excel)- разблокировал его.
потом попробовал открыть посмотреть наличие данных -ок
запустил прогу- ошибка. от имени админа запускал .
excel и открывал и закрывал , и имя файла менял и директорию расположения менял .
Наличие библиотек в системе искал 'ODBCCP32.dll'; 'ODBC32.dll';
комп перегружал несколько раз - ошибка....

Редактировалось 2 раз(а), последний 2025-03-08 18:27:21
карма: 4

0
Ответов: 869
Рейтинг: 186
#20: 2025-03-08 18:42:18 ЛС | профиль | цитата
tig-rrr писал(а):
комп перегружал несколько раз - ошибка...

Попробуй через OLEDB драйвер.
https://forum.hiasm.com/getfile/39729
У меня оба варианта работают
карма: 18

0
файлы: 1XLSX_TO_XML OLEDB.zip [1.8KB] [38]
Ответов: 143
Рейтинг: 0
#21: 2025-03-08 19:04:48 ЛС | профиль | цитата
Gunta, это вот с последним вариантом уже у меня


Редактировалось 2 раз(а), последний 2025-03-08 19:05:59
карма: 1

0
Ответов: 521
Рейтинг: 166
#22: 2025-03-08 19:05:51 ЛС | профиль | цитата
Gunta писал(а):
Попробуй через OLEDB драйвер.

этот вариант SVN-2425

Версия Microsoft® Excel® LTSC MSO (версия 2408 Сборка 16.0.17932.20252) 64-разрядная

Редактировалось 2 раз(а), последний 2025-03-08 19:28:36
карма: 4

0
Ответов: 869
Рейтинг: 186
#23: 2025-03-08 19:11:56 ЛС | профиль | цитата
Serascer писал(а):
Gunta, это вот с последним вариантом уже у меня

А перый вариант работает?

--- Добавлено в 2025-03-08 19:14:57

tig-rrr писал(а):
этот вариант SVN-2425

У меня так.

Попробуйте подобрать строку подключения
https://www.connectionstrings.com/excel/

--- Добавлено в 2025-03-08 19:29:06

Посмотрите какие драйвера у вас установлены
Откройте Панель управления Windows. Откройте папку Администрирование. Двойным щелчком по значку Источники данных (ODBC) откройте окно Администратор источников данных ODBC. Щелкните по вкладке Драйверы

--- Добавлено в 2025-03-08 19:31:58



Редактировалось 4 раз(а), последний 2025-03-08 19:31:58
карма: 18

0
Ответов: 521
Рейтинг: 166
#24: 2025-03-08 19:39:23 ЛС | профиль | цитата
Gunta писал(а):
Посмотрите какие драйвера у вас установлены


карма: 4

0
Разработчик
Ответов: 26230
Рейтинг: 2140
#25: 2025-03-08 19:40:14 ЛС | профиль | цитата
Gunta писал(а):
У меня так

У тебя схема выдает ошибку 1004 на элементе DSC_Query

Редактировалось 1 раз(а), последний 2025-03-08 19:41:56
карма: 22

0
Ответов: 869
Рейтинг: 186
#26: 2025-03-08 19:48:57 ЛС | профиль | цитата
tig-rrr,
Попробуй эту связку. Я у тебя на картинке увидел - ACE OLEDB
Add(DS_OLEDB,13041094,350,126)
{
Point(onError)
}
Add(FormatStr,13163022,301,126)
{
Mask="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%1;Extended Properties="Excel 12.0 Xml;HDR=YES";"
link(onFString,13041094:doOpen,[])
}


--- Добавлено в 2025-03-08 19:50:18

У меня работает

Редактировалось 2 раз(а), последний 2025-03-08 19:50:18
карма: 18

0
Ответов: 521
Рейтинг: 166
#27: 2025-03-08 19:54:27 ЛС | профиль | цитата
Gunta писал(а):
У меня работает
Эх... видать не судьба также в runtime error вываливается..
а пример интересный ...
карма: 4

0
Разработчик
Ответов: 26230
Рейтинг: 2140
#28: 2025-03-08 19:59:41 ЛС | профиль | цитата
tig-rrr писал(а):
Эх... видать не судьба также в runtime error вываливается..
а пример интересный ...

Я тоже этой проблемы не понял. Если укоротить количество столбцов до цены, то все начинает работать
карма: 22

0
Ответов: 143
Рейтинг: 0
#29: 2025-03-08 20:15:08 ЛС | профиль | цитата
В общем я дошаманил программу ) Сделал ее полностью на питоне и диалоговое окно приделал для выбора файла и упаковал это всё в exe, чтобы без питона работало на другом компе. Несколько секунд делает всё.
карма: 1

0
Ответов: 869
Рейтинг: 186
#30: 2025-03-08 20:18:25 ЛС | профиль | цитата
nesco писал(а):
Я тоже этой проблемы не понял. Если укоротить количество столбцов до цены, то все начинает работать

А так у вас работает?

Add(Label,9698110,175,35)
{
Width=476
Height=45
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,3171043,98,112)
{
Left=20
Top=105
Width=492
Height=273
Caption="Excel в XML"
Position=1
link(onCreate,10550167:doEvent1,[])
}
Add(Button,941652,98,161)
{
Left=310
Top=10
Width=95
Caption="Конвертировать"
link(onClick,10550167:doEvent2,[(137,167)(137,139)])
}
Add(Edit,11108326,238,126)
{
Left=10
Top=10
Width=295
Text=""
link(onChange,5892026:doString,[])
}
Add(ODialog,14109174,189,126)
{
Filter="Excel|*.xls*"
link(onExecute,11108326:doText,[])
}
Add(DS_ODBC,6691432,350,126)
{
Name="asd"
Point(onError)
link(onCreate,4428936:doString,[])
link(onError,16198617:doEvent,[(396,139)(396,188)])
}
Add(DSC_Query,9809447,455,126)
{
DSManager="asd"
link(onQuery,3242928:doAddRow,[])
link(onColumns,3242928:doAddCols,[])
link(onError,11634924:doEvent,[(515,146)(515,202)])
}
Add(FormatStr,4428936,406,126)
{
Mask="SELECT *\r\nFROM [Лист1$]\r\n"
link(onFString,9809447:doQuery,[])
}
Add(Hub,10550167,154,126)
{
InCount=2
link(onEvent1,14109174:doExecute,[])
}
Add(FormatStr,5892026,301,126)
{
Mask="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};\r\nDBQ=%1;"
Point(FString)
link(onFString,6691432:doOpen,[])
}
Add(Debug,16198617,406,182)
{
LogCount=100
}
Add(MTStrTbl,820392,392,49)
{
Width=506
Height=244
Align=5
Name="tabl"
ColorItems=0
Redaction=0
Grid=0
}
Add(MST_DB,3242928,525,126)
{
MSTControl="tabl"
}
Add(Debug,11634924,532,196)
{
LogCount=100
}


У меня все столбцы попадают в таблицу.
карма: 18

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)