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
372
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
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433007Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721674- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 371247
- 791070