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
384
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
Vain vasemmistolaiset rakennemuutokset pelastavat Suomen
Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot243409Persut huutaa taas: "kato! muslimi!"
Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe132828- 282504
- 421917
- 511749
- 141691
- 431584
KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!
Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola101458- 541424
Missikohu edustaa nykyajan monimuotoisuutta
Puolesta vai vastaan, saako esittää pilkkaavasti jonkun toisen ihmisen syntyperäisiä ominaisuuksia? Kadulla vastaan tule2631151