Inlezen .csv

[jansm]

VenA, voorbeeld van de te bewerken csv zie posting 17:26

Harry, is dit wat je bedoeld?

 

[HSV]

Bij mij werkt de code perfect op het bestand van 17:26 uur Jan.
Ik zou zo gauw niet weten waarin ik het moet zoeken.

Wat is de waarde van "Ubound(sq)" eigenlijk.

 

[jansm]

hoe bepaal ik die?

 

[HSV]

Laat de code lopen tot de foutmelding komt, laat de muisaanwijzer op Ubound(sq) bewegen.
Als het goed is komt er dan een tekstvakje met de waarde in beeld.

 

[jansm]

Ubound(sq)=0

 

[jansm]

... met deze error-melding

 

[HSV]

En je laat de code lopen op het bestandje van 17:26 uur?
Of is het een ander bestandje dat je test.

 

[jansm]

echt op het betsandje van 17:26

 

[jansm]

... terwijl jouw code van 16:18 het prachtig doet. Het verschil tussen de twee codes is dus dat bij die van 16:18 ik de csv file geladen heb, bij de laatste wordt hij dus door de code geladen. Kan dat verschil maken????

 

[HSV]

Nee, alleen het verschil was de eerste rij die al goed stond in dat bestandje.
Zijn er misschien nog meer van zulke rijen zonder het scheidingsteken ";".

 

[jansm]

nee, maar je bedoelt "," (komma ipv ?

 

[jansm]

.....ipv ;

 

[HSV]

Mijn excuses, de komma bedoel ik inderdaad.
Heb je al andere .csv bestanden geprobeerd.

 

[jansm]

ja jongen, exact hetzelfde. Let op: ook datums hebben weer verkeerde notatie en getallen die als tekst worden weergegeven.

 

[HSV]

Probeer het zo eens Jan.

Sub hsv()
Dim sq, cl As Range, cll As Range
With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Users\HSV\Desktop"
  .Filters.Add "CSV Bestanden (.csv)", "*.csv", 1
  .FilterIndex = 1
 If .SelectedItems.Count = 1 And .Show = -1 Then
 .Execute
Application.ScreenUpdating = False
With ActiveWorkbook.Sheets(1)
'sq = Split(.Cells(1), ",")
' .Cells(1).Resize(, UBound(sq)) = sq
  For Each cl In .Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
  cl.Select
    cl.Replace """,""", "|", 2
    cl.Replace ",""", "|", 2
       sq = Split(cl, "|")
    cl.Resize(, UBound(sq)) = sq
 Next cl
    .Columns.AutoFit
 For Each cll In Application.Union(.Columns(2), .Columns(7), .Columns(8), .Columns(9)).SpecialCells(2)
   If IsNumeric(cll.Value) Then cll = cll.Value * 1
 Next cll
 .Columns("G:I").NumberFormat = "0.00"
   End With
  End If
 End With
End Sub

 

[jansm]

ziet er goed uit Har, alleen de eerste regel wordt niet gesplitst (komma gescheiden)

Zal de code eens goed BESTUDEREN!!!!!!!!!, heeft heel wat bloed zweet en tranen gekost. Kan je de eerste regel nog fixen? Vraag wel veel

 

[HSV]

Uiteraard,

Het stond er nog gewoon in, met een apostrof er voor (weggehaald).

Sub hsv()
Dim sq, cl As Range, cll As Range
With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Users\HSV\Desktop"
  .Filters.Add "CSV Bestanden (.csv)", "*.csv", 1
  .FilterIndex = 1
 If .SelectedItems.Count = 1 And .Show = -1 Then
 .Execute
Application.ScreenUpdating = False
With ActiveWorkbook.Sheets(1)
 sq = Split(.Cells(1), ",")
 .Cells(1).Resize(, UBound(sq)) = sq
  For Each cl In .Columns(1).SpecialCells(2).offset(1).specialcells(2)
  cl.Select
    cl.Replace """,""", "|", 2
    cl.Replace ",""", "|", 2
       sq = Split(cl, "|")
    cl.Resize(, UBound(sq)) = sq
 Next cl
    .Columns.AutoFit
 For Each cll In Application.Union(.Columns(2), .Columns(7), .Columns(8), .Columns(9)).SpecialCells(2)
   If IsNumeric(cll.Value) Then cll = cll.Value * 1
 Next cll
 .Columns("G:I").NumberFormat = "0.00"
   End With
  End If
 End With
End Sub

 

[jansm]

oeps, sorry, loopt toch weer vast, hij splitst niet

 

[HSV]

Code aangepast in vorig bericht.

 

[jansm]

whaw, heel hartelijk dank voor je werk. Maar eh, moet ik nu het orkest betalen?