/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Exel
Fra : Jens


Dato : 18-05-01 17:03

Jeg vil gerne skrive 1 2 3 i et Exel ark.. hvad mangler jeg i min kode

Option Explicit

Dim Ex As Excel.Application
Dim Cn As Sheets

Private Sub Form_Load()

Set Ex = New Excel.Application
Set Cn = Sheets

Ex.DisplayAlerts = False

Cn.Visible = True



End Sub




 
 
Leo Heuser (20-05-2001)
Kommentar
Fra : Leo Heuser


Dato : 20-05-01 16:48

Prøv på denne måde:

Option Explicit
Dim Ex As Excel.Application
Dim Wb As Excel.Workbook


Private Sub Form_Load()

Set Ex = New Excel.Application
Set Wb = Ex.workbooks.Add

Ex.DisplayAlerts = False

Wb.sheets(1).Range("A1").Value = 123
Ex.Visible = True

End Sub

Med venlig hilsen
LeoH


"Jens" <til@infojens.dk> skrev i en meddelelse
news:9e3h20$f37$1@news.inet.tele.dk...
> Jeg vil gerne skrive 1 2 3 i et Exel ark.. hvad mangler jeg i min kode
>
> Option Explicit
>
> Dim Ex As Excel.Application
> Dim Cn As Sheets
>
> Private Sub Form_Load()
>
> Set Ex = New Excel.Application
> Set Cn = Sheets
>
> Ex.DisplayAlerts = False
>
> Cn.Visible = True
>
>
>
> End Sub
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste