Beste bezoekers,
Ik ben bezig met een programma die waarden omzet uit een tekstbestand en vervolgens uit meerdere bestanden de gegevens in een grafiek zet. Alles werkt prima, tot een bestand wordt aangesproken waar een spatie in zit. Weet iemand hoe ik in dit programma een code kan schrijven die de spatie uit de bestandsnaam herkend en een MsgBox geeft dat er een spatie in voorkomt?
met vriendelijke groet,
Jordi
Ik ben bezig met een programma die waarden omzet uit een tekstbestand en vervolgens uit meerdere bestanden de gegevens in een grafiek zet. Alles werkt prima, tot een bestand wordt aangesproken waar een spatie in zit. Weet iemand hoe ik in dit programma een code kan schrijven die de spatie uit de bestandsnaam herkend en een MsgBox geeft dat er een spatie in voorkomt?
met vriendelijke groet,
Jordi
Code:
NewFN = Application.GetOpenFilename("Text files (*.txt), *.txt", , "Choose a textfile", , False)
If NewFN = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
Workbooks.OpenText Filename:=NewFN, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
CommandButton2.Enabled = True
'sheet name
werkboeknaam = ActiveWorkbook.Name
ActiveWorkbook.ActiveSheet.Name = werkboeknaam
Laatst bewerkt: