🚀 go-pugleaf

Ik wens in een Visual Basic programma, via excel een .txt file te
openen. Het moet er ongeveer zo uitzien maar het werkt niet

Public Sub LayOut()
    Dim excel As Object
    Set excel = CreateObject("excel.application")
  Dim excel As excel.workbook
    With excel

    .Workbooks.OpenText FileName:="D:\Data\Excel\liquid.txt",
Origin:=xlWindows, 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),
Array(5, 1), Array(6, 1), Array(7, 1))
    .Columns("C:E").Select
    .Selection.NumberFormat = "#,##0"
   .Range("A1").Select
   End With

End Sub

Kan iemand mij helpen?

met vriendelijke groeten

Luc