compileerfout

[roemaat]

Het ik het onderstaande macro gemaakt, maar ik krijg steeds een melding van compileerfout metname bij het item filename de := en Origin :=

Sub Importfile()
myFile = Application.GetOpenFilename("Text Files.*.txt")
Workbooks.OpenText. _
Filename:=myFile _
Origin:=xlWindows. _
StartRow:=4.
DataType:=xlFixedWidth. _
FieldInfo:=Array(Array(0, 1), Array(8, 1). _
Array(20, 1), Array(27, 1). _
Array(42, 1), Array(49, 1)), _
ActiveSheets.Move Before:=Workbooks("Hoofdstuk-2.xls").Sheets(1)
Selection.EntireRow.Delete
Range("A1").Select
End Sub
:evil:

 

[brandernl]

Volgens mij missen er hier en daar wat komma's en staan er punten te veel
Als je een coderegel afbreekt, altijd een komma en een underscore_