csv bestand openen in excel

[robbie32]

Hoi,

Ik wil in excel 2003 een CSV bestand openen via een macro.
Als ik het bestand normaal open met excel dan krijg ik het goed ik beeld
echter als ik het bestand via een macro naar een hoofdbestand wil copieeren dan krijg ik ineens de scheidingstekens te zien de ; .
Hoe kan ik dit bestand (een logfile van een data schrijver) importeren zodat ik deze kan laten bewerken via een makro in excel.


gr. Robbie32

 

[arafy]

je kan een regeltje toevoegen: (ik heb het vlug even met de macrorecorder opgenomen extra - tekst naar kolom)

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

steven

 

[robbie32]

Helaas is dit niet de oplossing.

Ik moet het bestand openen via een macro, als het dan geopend wordt dan opent het bestand correct in een nieuw venster. Wil ik dan echter de sheet (een copie daarvan) verplaatsen naar het bestand waar het in moet komen, staat het er weer met ;'s

 

[robbie32]

Niemand???

 

[NuMan]

Probeer onderstaande macro....

Sub csv_import()
Dim aw_name As String
Dim csv_bestand As Variant
aw_name = ActiveWorkbook.Name
csv_bestand = Application.GetOpenFilename("CSV Files (*.csv), .csv", , "Kies ..... CSV Bestand..... (CSV Bestand)")
Application.ScreenUpdating = False
Workbooks.Open csv_bestand
csv_bestand = ActiveWorkbook.Name
Workbooks(csv_bestand).Activate
Cells.Copy
Workbooks(aw_name).Activate
Sheets("Blad2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Workbooks(csv_bestand).Close 1
Workbooks(aw_name).Activate
Application.ScreenUpdating = True
Sheets("Blad1").Select
MsgBox "Het is klaar"
End Sub

succes