/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177560
Tips :
31968
Nyheder :
719565
Indlæg :
6408942
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.