anton44
Verenigingslid
- Lid geworden
- 20 mei 2005
- Berichten
- 1.797
Vanuit internetbankieren download ik de mutaties in een kommagescheiden txt bestand.
Dit wordt vervolgens middels een macro geimporteerd in een excel werkblad waarbij de gevens het juiste formaat krijgen en in de verschillende cellen geplaatst worden.
Het aantal rijen is variabel (=aantal mutaties), het aantal kolommen is vast. In de onderste cel van kolom A staat een afsluitteken (code()=26). Tot nu toe gebruik ik de opdracht SelectionCurrentRegion vanuit cel J1. Deze methode is niet voldoende betrouwbaar gebleken in het geselecteerde cellenbereik en neemt ook het afsluitteken mee.
Vraag:
Hoe de juiste en volledige matrix (A1:Lx) te selecteren zonder de rij met het afsluitteken.
Hierbij een relevant deel van de macro. Het werkblad (fictief voorbeeld) wat onstaat na importeren is bijgevoegd. G2=pad en naam van het download-tekst-bestand
Dim BESTAND As String
BESTAND = Sheets("import").Range("G2").Value
Workbooks.OpenText Filename:=BESTAND, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, 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, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1)), DecimalSeparator:=".", ThousandsSeparator:=" ", _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 14.71
Range("J1").Select
Selection.CurrentRegion.Select
Selection.Copy
Dit wordt vervolgens middels een macro geimporteerd in een excel werkblad waarbij de gevens het juiste formaat krijgen en in de verschillende cellen geplaatst worden.
Het aantal rijen is variabel (=aantal mutaties), het aantal kolommen is vast. In de onderste cel van kolom A staat een afsluitteken (code()=26). Tot nu toe gebruik ik de opdracht SelectionCurrentRegion vanuit cel J1. Deze methode is niet voldoende betrouwbaar gebleken in het geselecteerde cellenbereik en neemt ook het afsluitteken mee.
Vraag:
Hoe de juiste en volledige matrix (A1:Lx) te selecteren zonder de rij met het afsluitteken.
Hierbij een relevant deel van de macro. Het werkblad (fictief voorbeeld) wat onstaat na importeren is bijgevoegd. G2=pad en naam van het download-tekst-bestand
Dim BESTAND As String
BESTAND = Sheets("import").Range("G2").Value
Workbooks.OpenText Filename:=BESTAND, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, 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, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1)), DecimalSeparator:=".", ThousandsSeparator:=" ", _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 14.71
Range("J1").Select
Selection.CurrentRegion.Select
Selection.Copy
