powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с чтением excel файла из программы
4 сообщений из 4, страница 1 из 1
Проблема с чтением excel файла из программы
    #34306742
oralfa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть одна проблемка. Мне здесь уже несколько раз помогали, надеюсь, что и в этот раз найдутся спецы, которые смогут помочь.

Есть программа, написанная на обычном ASP (думаю, что и для VB это так же актуально, поэтому и выбрал именно этот раздел), которая читает Excel файл и работает с его содержимым: распечатывает, переносит в другую базу, сортирует их и т.д. И все бы хорошо, но есть одно "но". Довольно часто уже работаюший скрипт вылетет с ошибкой:
Код: plaintext
1.
2.
3.
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Excel Driver] The field is too small to accept the amount of data you 
attempted to add. Try inserting or pasting less data.
Начал выяснять, что к чему. Выяснилось, что у если в excel файле строка, содержащая больший текст в одном из полей, находится после "меньшей" строки, excel это не принимает и выдает вышеупомянутую ошибку.
В качестве решения предлагают делать следующее: вставлять в самое начало excel файла одну строчку, с максимально возможным количеством символов, чтобы все последующие строки были меньше первой. Это, конечно, прекрасно, но мне нужно создать что-то, что будет работать без вмешательства пользователя, соответственно, это решение мне не поможет.
Я больше чем уверен, что есть нормальное решение этой проблемы, но найти его так и не смог.
Может, кто-то знает что-нибудь по этой проблеме?

Модератор: Убедительная просьба форматировать цитируемые строки. А конкретно - перенос. Дабы пост оставался удобочитаемым.
...
Рейтинг: 0 / 0
Проблема с чтением excel файла из программы
    #34307104
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Проблема с чтением excel файла из программы
    #34307290
oralfa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
klen_,
мне этот пост не поможет, т.к. у меня прога вылетает, как только доходит до проблематичной зоны. Если таковой нет, то все работает как надо
...
Рейтинг: 0 / 0
Проблема с чтением excel файла из программы
    #34308066
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Private Sub Command1_Click()
    On Error GoTo Err0
    Dim xls As String
    Dim pth As String
    Dim lst As String
    
    pth = "C:\VB6\EXCEL"
    xls = "Книга1.xls"
    lst = "Лист1"
    
    ' для ADO -----------------------------------------------
    Dim db As ADODB.Connection:     Set db = New ADODB.Connection
    Dim t1 As ADODB.Recordset:      Set t1 = New ADODB.Recordset
    db.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & pth & "\" & xls & ";" & "DefaultDir=" & pth
    db.Open
    t1.Open "SELECT * FROM [" & lst & "$]", db
      
    Dim p1, p2
    Do Until t1.EOF
        p1 = t1!pole1   ' НАЗВАНИЯ КОЛОНОК, ОПРЕДЕЛИ В ПЕРВОЙ СТРОКЕ excel ФАЙЛА
        p2 = t1!pole2
        t1.MoveNext
    Loop
    
    t1.Close:    Set t1 = Nothing
    db.Close:    Set db = Nothing
    Exit Sub
Err0:
    Set db = Nothing
    Set t1 = Nothing
    MsgBox Err.Description
End Sub
oralfa ПОПРОБУЙ ТАКОЙ ВАРИАНТ
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с чтением excel файла из программы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]