.RefreshStyle = 1 'xlInsertDeleteCells
…
.TextFileParseType = 1 'xlDelimited
.TextFileTextQualifier = 1 'xlTextQualifierDoubleQuote
Выскакивает ошибка на строчке .TextFileParseType = xlDelimited на Visual basic
Код:
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
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”
Недопустимый вызов процедуры или параметра»
Не подскажете в чем тут дело?
xlInsertDeleteCells - 1
xlDelimited - 1
xlTextQualifierDoubleQuote - 1
Цитата: pashulka
Если используется позднее связывание, то замените константы на их значения , т.е.
xlInsertDeleteCells - 1
xlDelimited - 1
xlTextQualifierDoubleQuote - 1
xlInsertDeleteCells - 1
xlDelimited - 1
xlTextQualifierDoubleQuote - 1
Спасибо, а как тогда изменить значение этого параметра, потому что я ставлю в параметре
const xlInsertDeleteCells = 0,
const xlDelimited = 0
и доходя до процедуры извлечения программа ругается
Код:
Код:
Const xlInsertDeleteCells = 1
Сonst xlDelimited = 1
Const xlTextQualifierDoubleQuote = 1
Сonst xlDelimited = 1
Const xlTextQualifierDoubleQuote = 1