VBA Ignorér bestemt type af fejl eller alle fejl
Jeg har en kode der kører en Text to columns.En af kolonnerne indeholder data, derfor får jeg fejlen:
"There's already data here. Do you want to replace it".
"ok" - "Cancel"
Den fejl kunne jeg godt tænke mig at acceptere med noget i stil ala
hvis fejl "there's aldready data" then accept eller
Ignorer alle fejl og eksekver eller
et forslag der er bedre
Er der nogle, der kan hjælpe med den subrutine?
MIN KODE:
Sub Open_sessions()
Workbooks.Open Filename:=CStr(Environ("USERPROFILE")) & "\Documents\sessions.csv"
Call Text_To_Columns
End Sub
ub Text_To_Columns()
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), 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), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
End Sub