csv openen in kolomen en celeigenschappen veranderen.

[Tweety1]

Hoe kan ik de macro aanpassen zodat de gegevenstype/celeigenschappen tekst is en niet standaard.

Sub test()
  Workbooks.Open Filename:=ThisWorkbook.Path & "\LogFile.csv"
  ActiveSheet.Columns(1).TextToColumns [A1], , xlNone, , , , True
      ActiveSheet.UsedRange.Columns.AutoFit
End Sub

 

[Haije]

Tweety1,

de volledige syntax luidt:

Expressie.TextToColumns(Destination, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers)

waarbij je in FieldInfo per kolom kunt aangeven of er Tekst, getallen, datums, etc opgemaakt moet worden

TIP: voer e.e.a. eens uit terwijl je de macrorecorder aan hebt staan. Je ziet dan direct hoe het er uit ziet.

 

[Tweety1]

Bedankt voor de uitleg.