🚀 go-pugleaf

Ik heb het niet in detail bekeken, maar het volgende lijkt me alvast fout:

>    Dim excel As Object
...
>  Dim excel As excel.workbook
>    With excel
...

Is 'excel' nu een variabele van type Object of Workbook ?

Ga als volgt tewerk:
1. Start VB en maak een nieuw programma
2. In het Project menu, kies References, en kruis aan: 'Microsoft Excel X.0
Object Library' (waarbij X afhangt van de versie dvan Excel die je hebt)
3. Geef vervolgens volgende code ergens in, bv. in Sub Main of in Sub
Command1_Click of waar je het ook wil:
    Dim xls As New Excel.Application
    With xls
        .Workbooks.OpenText "c:\temp\xls1.txt"
        .Visible = True
    End With

Bij mij werkt dit prima.

Wat al je instellingen bij OpenText betreft, ik heb ze niet bekeken.
Misschien zijn ze goed.

Groeten,

Rudi Breedenraedt

===============================================
United Programmers Club VZW
http://upc.webhostme.com/
http://www.upc.be/
upc@POBoxes.com
===============================================
Luc Aerts heeft geschreven in bericht <396B2BE5.B5BE9CCD@leuven.be>...
>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
>
>