1 2 3 4 5 6 7 8
|
Workbooks.OpenText Filename:="R:\cft\euro-vl\Contrôle_des_benchmarks\EVLSAV.xls", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 4), Array(10 _
, 1), Array(11, 1), Array(12, 4), Array(13, 4), Array(14, 1), Array(15, 1)), _
TrailingMinusNumbers:=True |
Partager