Как убрать программно ошибку #Число!

[Alfiks]

Заливаю данные из файлов не хитрой функцией

PHP код:

Function MakeTable()
On Error GoTo MakeTable_Err

    DoCmd.TransferSpreadsheet acLink, 8, "Arnebia", "d:\Sklad_Info\Arnebia.xls", False, "A3:AT65536"
    DoCmd.TransferSpreadsheet acLink, 8, "ArnebiaCosm", "d:\Sklad_Info\Arnebia_cosm.xls", False, "A3:AT65536"
    DoCmd.TransferSpreadsheet acLink, 8, "ArnebiaCosm", "d:\Sklad_Info\Arnebia_Sklad2.xls", False, "A3:AT65536"


MakeTable_Exit:
    Exit Function

MakeTable_Err:
    MsgBox Error$
    Resume MakeTable_Exit

End Function 


При сохранении в аксесе, в одной из колонок стоят цифры вида "12345 и просто 12345. Проблема в том, что цифры вида 12345 он воспринимает как ошибку, и пишет что типа нет числа (#Число!).

Как заставить его распознать что 12345 тоже есть число?

[b00s]

попробуйте заливать другим способом.
Например используя Recordset.Addnew и Recordset.Update
Что то вроде этого

    Dim xl As Excel.Application
    Dim xlb As Excel.Workbook
    Dim xls As Excel.Worksheet
    Dim rst As New ADODB.Recordset

    Set xl = CreateObject("Excel.Application")
    Set xlb = xl.Workbooks.Open("Путь к Excel файлу")
    Set xls = xlb.Worksheets("имя листа")

    rst.Open "имя таблицы", CurrentProject.Connection, adOpenStatic, adLockOptimistic
        i=1
        Do While xls.Cells(i, 1) <> ""
        rs.AddNew
        For j = 1 To 2
            rs.Fields(j - 1).Value = xls.Cells(i, j)
        Next j
        rs.Update
        i = i + 1
    Loop

    rst.Close

    xl.Quit

[Alfiks]

Recordset не подходит, помимо того , чтобы залить, нужно сделать обрезание верхних строк.

[b00s]

Ну так в чем проблем то? Сначало обрежте строки потом грузите через рекордсет

[Alfiks]

Сообщение от b00s

Ну так в чем проблем то? Сначало обрежте строки потом грузите через рекордсет

Я новичек в программировании.

Сложность в том, что программно нужно обрезать строки и внедрить.

То что вы предлагаете, нужно сначала обрезать вручную, а потом через рекордсет... Или вы имели ввиду, что залить сюда, и тут уже выцеплять данные? Не получится - тогда данные будут неправильные изначально.

Нужно на лету сделать, и обрезать и обработать данные. А рекордсет насколько я могу понимать, (я программированием занимаюсь только пару месяцев от силы) позволяет работать с уже созданной таблицей.

[b00s]

С помощью кода, который я вам написал вы можете сделать все то что вам нужно. Правда с начало нужно его адаптировать под ваши данные. Если есть вопросы по коду, то я рад буду вам помочь.

[Alfiks]

Проблема возникла на этапе переменных.
Выдает сообщение "user-defined type not defined", непонятно какой тип данных указывается, а как указать его, я не знаю...
понимаю, что проблемка плевая, но для меня вызывет сложности... самоучка однако

[b00s]

тип данных объявляется
Dim <имя переменной> as <тип данных>

Если не знаете какой тип данных соответствует переменной то можете его не ставить Dim <имя переменной>

[Alfiks]

Сообщение от b00s

тип данных объявляется
Dim <имя переменной> as <тип данных>

Если не знаете какой тип данных соответствует переменной то можете его не ставить Dim <имя переменной>

Ну это ясно, это уже азы как задавать, меня в тупик завели переменные вида Dim xl As Excel.Application, vba уже на этом клинило. Сейчас дело сдвинулось с мертвой точки...

[EducatedFool]

Чтобы VBA понимал объявления типа Dim xl As Excel.Application,
необходимо в проекте VBA поставить ссылку на библиотеку Microsoft Excel 11.0 Object Library

Где подключить - написано здесь:
http://www.programmersforum.ru/showp...89&postcount=9
http://www.programmersforum.ru/showp...78&postcount=6