MyTetra Share
Делитесь знаниями!
Создание массива для параметра FieldInfo метода OpenText.
22.09.2017
11:21
Текстовые метки: Get, Open, Text, OpenText
Раздел: VBA - GetOpen

'==================================================================

'открытие текстового файла

'==================================================================

Function FnOpenText()

Workbooks.OpenText Filename:=strFilename _

, Origin:=65001, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _

Comma:=False, Space:=False, Other:=False, FieldInfo:=aFieldInfo, _

TrailingMinusNumbers:=True

End Function

'==================================================================


''Function FnCreateArrText(ByVal iCount As Integer) As Variant

'''Создание массива для параметра FieldInfo метода OpenText.

''ReDim aFieldInfo(1 To iCount)

''For i = 1 To iCount

'' aFieldInfo(i) = Array(i, 2)

''Next i

''FnCreateArrText = aFieldInfo

''End Function

'Sub testFnCreateArrText()

' Dim aTemp As Variant

' aTemp = FnCreateArrText(256, 2, 2, 4)

'End Sub

'==================================================================

'==================================================================

'##### 'Создание массива для параметра FieldInfo метода OpenText.

'==================================================================

Function FnCreateArrText(ByVal iCount As Integer, _

ByVal iType As Integer, _

Optional ByVal iNbTemp As Integer = 0, _

Optional ByVal iTypeTemp As Integer = 0) As Variant

'Создание массива для параметра FieldInfo метода OpenText.

'iNbTemp - номер столбца для отличного от остальных типа

'iTypeTemp - тип для этого столбца

'1 - общий

'2 - text

'4 - date

'9 - пропустить


Dim j As Integer

ReDim aFieldInfo(1 To iCount)

For i = 1 To iCount

j = iType

If iNbTemp > 0 Then

If i = iNbTemp Then j = iTypeTemp

End If

aFieldInfo(i) = Array(i, j)

Next i

FnCreateArrText = aFieldInfo

End Function

'==================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования