CSV bestanden opslaan naar XLS

[HWV]

Beste,

Ik heb een 7 tal .CSV bestanden die ik structueel om moet zetten naar .XLS
Omdat dit regelmatig voorkomt wil ik dit doen met VBA
Enkel als ik dit doet dan lees hij alles in, in 1 regel.
In de bijlage een voorbeeld van mijn orginele .CSV bestand.

Ik wil dus een .CSV bestand openen en opslaan als .XLS met behoud dat alles netjes in kolomen komt te staan.

Hiervandaan gaat ik de bestanden samenvoegen zodat ik mijn bestand weer compleet heb.

Alvast bedankt voor de aangeboden hulp

HWV

 

[RaymondC]

Even snel met de macro recorder:

Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08/04/2009 by rcor
'

'
    Range("A1").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

 

[HWV]

Snap er niet veel van

Kan je wat meer uitleg geven want ik snap er weinig van.
Hij selecteer A1, hij kan niet meerdere kolomen aan, geef hij als melding
Ik haal mijn bestanden op :

c:\ophalen\voorbeeld -CSV opslaan naar XLS.csv
opslaan naar :
c:\ophalen\opslag\voorbeeld -CSV opslaan naar XLS.xls

Groet HWV

 

[HWV]

Even onder de aandacht

Is er iemand die mij de juiste kant op kan sturen.
Ik krijg het niet voor elkaar om met een script CSV bestanden om te zetten naar XLS,

Met vriendelijke groet,

HWV

 

[trucker10]

Is er iemand die mij de juiste kant op kan sturen.
Ik krijg het niet voor elkaar om met een script CSV bestanden om te zetten naar XLS,

Met vriendelijke groet,

HWV

Kijk eens op de link of je daar iets kan uithalen die betrekking heeft op jouw probleem. Ik kijk straks ook nog eens of ik er iets kan van bakken met een (opgenomen) macro ( VBA )

 

[HWV]

helaas

Bedankt Trucker10,

Ik moet dit verwerken in een script, ivm dat het eigenlijk een txt bestand is van 750.00 regels.
Via SNB heb ik een sript gekregen die er de troep uit haalt, en deze dan omzet naar een csv bestand. Maar dat loop ik dus nu op vast.
Met een macro heb ik het al opgenomen, maar ik kom er niet uit.

groet HWV

 

[DCWDPT]

Zo ziet het er bij mij uit

Beste HSV,

Ik doe dit ook regelmatig. Bij mij ziet de macro er als volgt uit:

Sub csvnaarxls()
'
' csvnaarxls Macro

'
    Workbooks.OpenText Filename:="L:\Temp\afdeling.csv", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, 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)), TrailingMinusNumbers:=True
    ActiveWorkbook.SaveAs Filename:="L:\Temp\Afdeling.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Ik hoop dat je hier iets aan hebt. :thumb:

 

[HWV]

Geprobeerd

Beste,

ik heb het dus geprobeerd, in de bijlage het resultaat.
Nu zie je dus duidelijk wat mijn probleem is want dit krijg ik elke keer

Hoe kan ik dit opvangen / oplossen

groet HWV

 

[trucker10]

hallo HWV , ik heb de software gedownload en getest met mijn eigen adresboek die ik als csv heb opgeslagen en nadien via de converter heb omgezet in xls en het werkt
nogmaals de link http://www.softinterface.com/Convert-XLS/Features/Convert-CSV-To-XLS.htm?gclid=CJPR97fng5oCFUKK3godeDrRFQ
Als bewijs de screenshot in bijlage en het gefilterde xls bestand waar enkel nog mijn em@iladres instaat .

 

[HWV]

Bedankt voor je reactie

Beste,

Bedankt, het zal ongetwijfeld wel werken, daar twijfel ik niet aan
Maar dit gedeelt moet ik met de hand doen, dit doet excel ook voor mij en dan kan ik hem opslaan als xls.
Enkel ik wil dit verwerken in een macro zodat mijn conversie in één keer door kan lopen.

Groet HWV

 

[trucker10]

Ik heb het gevoel dat het begin niet goed zit in het txt bestandje staan zowel ( : ) als ( ; ) het progje weet niet goed waar , wat te splitten .
Ik heb zo vrij geweest om een txt bestandje van jouw die ik gevonden heb om te zetten ( poging tot ) naar een xls bestandje bepaalde cellen zou je kunnen samenvoegen (A1&B1&C1) .
Voor mij is het hier gedaan , ik raak er niet aan uit , voor SNB :thumb: waarschijnlijk een paar seconden denkwerk en hups daar staat die macro

 

[HWV]

Bedankt voor je inzet

Beste,
bedankt voor je inzet en je tijd.
Misschien heb je al gezien dat er al veel over is geschreven op dit forum, en dat ik al veel heb gekregen hier.
SNB heeft daar zeker een grote rol in gespeeld, anders was ik nooit zo ver gekomen.
Het splitsen is dus al gedaan het gaat mij nu om de CSV naar XLS.
Even voor de duidelijkheid ik heb het voor elkaar dat mijjn conversie loopt ( 1 uur stampen ja), daar heeft SNB iets voor geschreven om dit veel senller te laten gaan volgens mij nog geen 20 seconde ( echt snel ) dit wordt dus weggeschreven naar csv maar om dit stuk nu ook in de batch mee te nemen wilde ik dit via een macro doen.

Ik blijf zoeken en kan alle hulp hierin graag gebruiken

Groet HWV