🚀 go-pugleaf

Rudi

Dank U

Rudi Breedenraedt wrote:

> 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
> >
> >

--


met vriendelijke groeten


Luc
****************************************************
Stad Leuven
Luc Aerts
Stadsontvanger
Grote Markt
B-3000 Leuven

tel. (32)016/211.560
fax. (32)016/211.599
luc.aerts@leuven.be

http://www.leuven.be/
****************************************************