Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Выскакивает ошибка на строчке .TextFileParseType = xlDelimited на Visual basic

340
06 октября 2016 года
Fellinggood
170 / / 27.04.2009
Код:
For i = 1 To kolvo_files
                If arrOnlyHour(i) = "0" Then
                    MyExcel.ActiveWorkbook.Sheets("Лист1").Select
                    name_list(1) = "Основные показатели " & time_creatZamenadvoet(i)
                    MyExcel.ActiveWorkbook.Sheets("Лист1").Name = name_list(1)
                    connect = "TEXT;" & arrPutFile(i)
                    '"TEXT;C:Documents and SettingsAdminРабочий столОбразец CSV.csv"
           With MyExcel.ActiveSheet.QueryTables.Add(Connection:= _
            connect, _
            Destination:=MyExcel.ActiveSheet.Range("A1"))

            .Name = name_list(1)
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 1252
            .TextFileStartRow = 1
            [B].TextFileParseType = xlDelimited[/B]
            [B].TextFileTextQualifier = xlTextQualifierDoubleQuote[/B]
            .TextFileConsecutiveDelimiter = True
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "^"
            .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
           
            End With
На этой строчке
.TextFileParseType = xlDelimited
как и на строчке
.TextFileTextQualifier = xlTextQualifierDoubleQuote
в программе выскакивает ошибка:
«Ошибка во время выполнения программы “5”
Недопустимый вызов процедуры или параметра»

Не подскажете в чем тут дело?
275
06 октября 2016 года
pashulka
985 / / 19.09.2004
Если используется позднее связывание, то замените константы на их значения , т.е.

xlInsertDeleteCells - 1
xlDelimited - 1
xlTextQualifierDoubleQuote - 1
340
06 октября 2016 года
Fellinggood
170 / / 27.04.2009
Цитата: pashulka
Если используется позднее связывание, то замените константы на их значения , т.е.

xlInsertDeleteCells - 1
xlDelimited - 1
xlTextQualifierDoubleQuote - 1

Спасибо, а как тогда изменить значение этого параметра, потому что я ставлю в параметре
const xlInsertDeleteCells = 0,
const xlDelimited = 0
и доходя до процедуры извлечения программа ругается

275
06 октября 2016 года
pashulka
985 / / 19.09.2004
можно просто
 
Код:
.RefreshStyle = 1 'xlInsertDeleteCells

.TextFileParseType = 1 'xlDelimited
.TextFileTextQualifier = 1 'xlTextQualifierDoubleQuote
или
 
Код:
Const xlInsertDeleteCells = 1
Сonst xlDelimited = 1
Const xlTextQualifierDoubleQuote = 1
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог