Georgyboy
Terugkerende gebruiker
- Lid geworden
- 6 jan 2007
- Berichten
- 1.020
- Besturingssysteem
- Windows 11
- Office versie
- 365
Hallo iedereen,
Vooreerst aan allen een zalige kerst !
Vraagje, binnenkort mag ik de verkoopsresultaten weer om zetten naar excel tabellen.
In de excel tabel gaan we deze dan analyseren met draaitabel,
al dan niet met een grafiek.
Deze tekstbestanden met resultaten zijn variabel in breedte en aantal rijen.
Is dit mogelijk op te lossen door middel van een macro in VBA ?
Zo ja , hoe kunnen we de macro opbouwen ?
Test gedaan via een macro opname :
Groeten,
Georgyboy
Vooreerst aan allen een zalige kerst !
Vraagje, binnenkort mag ik de verkoopsresultaten weer om zetten naar excel tabellen.
In de excel tabel gaan we deze dan analyseren met draaitabel,
al dan niet met een grafiek.
Deze tekstbestanden met resultaten zijn variabel in breedte en aantal rijen.
Is dit mogelijk op te lossen door middel van een macro in VBA ?
Zo ja , hoe kunnen we de macro opbouwen ?
Test gedaan via een macro opname :
Code:
Sub TekstInvoer()
'
' TekstInvoer Macro
'
'
ChDir "D:\TEST\ANALYSES\2008"
Workbooks.OpenText Filename:= _
"D:\TEST\ANALYSES\2008\OMZET per deb van 1-01-2008 tm 31-12-2008.TXT" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(9, 1), Array(50, 1), Array(57, 1), Array(66, 1), Array(76, 1)), _
TrailingMinusNumbers:=True
End Sub
Groeten,
Georgyboy