Hei, yritän Vb 6:lla saada Excelin avautumaan tällaisella koodilla:
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
Tämän jälkeen tietokoneen prosessilistaan ilmstyy Excel.exe mutta itse sovellus ei kuitenkaan käynnisty. Missä lienee vika?
excelin käynnistäminen
peetee
2
365
Vastaukset
- Kunde
muista viittaus excelin objektikirjastoon
Sub Koe()
Dim Excel As Object
Dim ExcelSheet As Object
On Error Resume Next
Set Excel = GetObject(, "Excel.Application") 'onko käynnissä
If Err 0 Then
Err.Clear
Set Excel = CreateObject("Excel.Application") 'käynnistetään
If Err 0 Then
MsgBox "Exceliä ei voitu aukaista ", vbExclamation
End
End If
End If
On Error GoTo 0
Excel.Visible = True
'koodia tähän esim. avataan exceltiedosto
Excel.Workbooks.Open "C:\Summa.xls"
'koodia lisää
Excel.Quit 'lopetusjutskat
Set Excel = Nothing
End Sub- Tulostelija
Mitenkä tuommosen avatun Excel-sheetin sais tulostumaan kahtena kappaleena ennen noita lopetusjutskia? Ja sama kysymys Word-dokumentille?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa
En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod225154- 254338
- 272461
- 342244
- 371998
- 151918
En ole koskaan kokenut
Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka191587- 121521
Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...
Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons211247Kerranki asiat oikein
Ilkka ja muut pienpuolueeet...teitte hyvän työn kun valitsitte pätevän henkilön virkaan eikä kepulle passelia!! Jatkakaa101174