Vba probleema

Kääpiöäly

2010-12-20 15:28:23

Vien excelin kautta tietoja toiminnanohj.järjestelmäämme.

Nyt mulla on seuraava koodi:

Set xclapp = GetObject("Excel.Application")
Set xclwbk = xclapp.Workbooks.Open("c:\documents and settings\kukkuu.xls")
Set xclsht = xclwbk.Sheets("Sheet1")

For i = 2 To xclapp.ActiveCell.SpecialCells(11).Row
For j = 1 To xclapp.ActiveCell.SpecialCells(11).Column
If j = 1 Then infot = xclsht.Cells(i, j).Value
Next

Kun aloitan tämän makron, avaa excel tämän saman tiedoston kahteen kertaan? Miten tuota exceliä pitäisi kutsua, että se tajuisi ottaa tiedot kyseisestä työkirjasta? Miten siis määritetään avoinna oleva työkirja objectiksi?

567

Äänestä

Vastaukset

untokuurna
2010-12-20 20:00:57
Ja missäköhän tämä koodi on?

Jos koodi on jo samassa työkirjassa niin silloin muutetaan viittaus (Set xclsht = xclwbk.Sheets("Sheet1")) avoinna olevaan työkirjaan. Tupla-avautumista ei pitäisi tapahtua jos koodi on jossain toisessa työkirjassa.

Kunde osannee auttaa tuossa ensimmäisessä kohdassa.
- kunde
  2010-12-21 05:11:49
  viittaus referensseissä Excel kirjastoon!
  
  Sub SiirräExceliin()
  Dim Excel As Object
  Dim ExcelSheet As Object
  
  On Error Resume Next
  Set Excel = GetObject(, "Excel.Application")
  If Err 0 Then
  Err.Clear
  Set Excel = CreateObject("Excel.Application")
  If Err 0 Then
  MsgBox "Exceliä ei voitu aukaista ", vbExclamation
  End
  End If
  End If
  On Error GoTo 0
  Excel.Visible = True
  Excel.Workbooks.Open ("c:\documents and settings\kukkuu.xls")
  ' oma koodi alkaa...
  Sheets(1).Activate
  infot = Range("J9")
  MsgBox infot
  ' oma koodi loppuu...
  Excel.Quit
  Set Excel = Nothing
  End Sub
- kääpiöäly
  2010-12-21 10:40:17
  kunde kirjoitti:
  viittaus referensseissä Excel kirjastoon!
  
  Sub SiirräExceliin()
  Dim Excel As Object
  Dim ExcelSheet As Object
  
  On Error Resume Next
  Set Excel = GetObject(, "Excel.Application")
  If Err 0 Then
  Err.Clear
  Set Excel = CreateObject("Excel.Application")
  If Err 0 Then
  MsgBox "Exceliä ei voitu aukaista ", vbExclamation
  End
  End If
  End If
  On Error GoTo 0
  Excel.Visible = True
  Excel.Workbooks.Open ("c:\documents and settings\kukkuu.xls")
  ' oma koodi alkaa...
  Sheets(1).Activate
  infot = Range("J9")
  MsgBox infot
  ' oma koodi loppuu...
  Excel.Quit
  Set Excel = Nothing
  End Sub
  Sorry, oon selittänyt taas huonosti. Tuo koodi on siis samaisessa excelissä moduuli1:ssä.
  
  Eli olen tehnyt makron kyseiseen exceliin, joka poimii tiedot sheetiltä1 ja vie ne järjestelmään. koodi toimii muuten, mutta tällä koodilla tiedosto "kukkuu" aukeaa uudestaan, vaikka se on jo auki.
  Jos vaihdan tuon CreateObjectin GetObjectiksi, saan virheilmoituksen automation error, invalid syntax.
  Tässä koko koodi, lukuunottamatta kirjautumista järjestelmään. Miten tuohon alkuun määritellään, että kyse on juurikin tästä työkirjasta?:
  
  Set xclapp = CreateObject("Excel.Application")
  Set xclwbk = xclapp.Workbooks.Open("c:\documents and settings\kukkuu.xls")
  Set xclsht = xclwbk.Sheets("Sheet1")
  For i = 2 To xclapp.ActiveCell.SpecialCells(11).Row
  For j = 1 To xclapp.ActiveCell.SpecialCells(11).Column
  If j = 1 Then infot = xclsht.Cells(i, j).Value
  Next
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = excel.Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = infot
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL" & CStr(xclapp.ActiveCell.SpecialCells(11).Row - 1) & "Excel rows processed"
  
  End Sub
- kunde
  2010-12-21 12:46:48
  kääpiöäly kirjoitti:
  Sorry, oon selittänyt taas huonosti. Tuo koodi on siis samaisessa excelissä moduuli1:ssä.
  
  Eli olen tehnyt makron kyseiseen exceliin, joka poimii tiedot sheetiltä1 ja vie ne järjestelmään. koodi toimii muuten, mutta tällä koodilla tiedosto "kukkuu" aukeaa uudestaan, vaikka se on jo auki.
  Jos vaihdan tuon CreateObjectin GetObjectiksi, saan virheilmoituksen automation error, invalid syntax.
  Tässä koko koodi, lukuunottamatta kirjautumista järjestelmään. Miten tuohon alkuun määritellään, että kyse on juurikin tästä työkirjasta?:
  
  Set xclapp = CreateObject("Excel.Application")
  Set xclwbk = xclapp.Workbooks.Open("c:\documents and settings\kukkuu.xls")
  Set xclsht = xclwbk.Sheets("Sheet1")
  For i = 2 To xclapp.ActiveCell.SpecialCells(11).Row
  For j = 1 To xclapp.ActiveCell.SpecialCells(11).Column
  If j = 1 Then infot = xclsht.Cells(i, j).Value
  Next
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = excel.Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = infot
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL" & CStr(xclapp.ActiveCell.SpecialCells(11).Row - 1) & "Excel rows processed"
  
  End Sub
  Siis kukkuu on avoinna ja haluat siitä siirtää Sheet1 A sarakkeen tiedot alueelta A2:Axx vai?
  Jos näin on niin excelin objekti on turha
  
  parempi toteuttaa näin
  
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = infot
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  End Sub
- Kääpiöäly
  2010-12-21 13:36:56
  kunde kirjoitti:
  Siis kukkuu on avoinna ja haluat siitä siirtää Sheet1 A sarakkeen tiedot alueelta A2:Axx vai?
  Jos näin on niin excelin objekti on turha
  
  parempi toteuttaa näin
  
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = infot
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  End Sub
  Joo siis tämän tiedoston nimi on kukkuu, eli yhdestä tiedostosta kyse. Tuo on muuten hyvä, mutta nyt siirtyy kaikki sarakkeen A rivit yhtenä könttänä, kun mulla tuossa koodissa oli tarkoitus siirtää rivi kerrallaan.
  
  Eli mulla on kaksi paikkaa toim.ohj.järjestelmässä, johon dataa siirrän. Toinen on tuo session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value, jossa tuo Cells(1, 10) on aina vakio.
  ja toinen:
  session.findById("wnd[0]/usr/ctxt[4]").Text = infot, johon pitäisi siis tulla aina arvo A-sarakkeesta. Ensin A1, sitten A2 jne.,
  Jokaisen A-sarakkeesta syötetyn solun jälkeen järjestelmä painaa automaattisesti tallennusta: session.findById("wnd[0]").sendVKey 0 Ja valitsee seuraavan solun A-sarakkeesta, sekä ilmoittaa, kun rivit on käsitelty.
  
  Tuo mun aiemmin esittämä koodi siis toimii kun se laukaistaan jostain toisesta paikkaa, nyt kuitenkin haluasin, että kaikki olisi tuossa yhdessää kukkuu tiedostossa. Eli Sheetillä 1 arvot ja makro tietojen vientiin
  
  Helkkari näitä on vaikea selittää, kun olen vielä aika keltanokka varsinkin excelin kanssa.
- kunde
  2010-12-21 14:33:45
  Kääpiöäly kirjoitti:
  Joo siis tämän tiedoston nimi on kukkuu, eli yhdestä tiedostosta kyse. Tuo on muuten hyvä, mutta nyt siirtyy kaikki sarakkeen A rivit yhtenä könttänä, kun mulla tuossa koodissa oli tarkoitus siirtää rivi kerrallaan.
  
  Eli mulla on kaksi paikkaa toim.ohj.järjestelmässä, johon dataa siirrän. Toinen on tuo session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value, jossa tuo Cells(1, 10) on aina vakio.
  ja toinen:
  session.findById("wnd[0]/usr/ctxt[4]").Text = infot, johon pitäisi siis tulla aina arvo A-sarakkeesta. Ensin A1, sitten A2 jne.,
  Jokaisen A-sarakkeesta syötetyn solun jälkeen järjestelmä painaa automaattisesti tallennusta: session.findById("wnd[0]").sendVKey 0 Ja valitsee seuraavan solun A-sarakkeesta, sekä ilmoittaa, kun rivit on käsitelty.
  
  Tuo mun aiemmin esittämä koodi siis toimii kun se laukaistaan jostain toisesta paikkaa, nyt kuitenkin haluasin, että kaikki olisi tuossa yhdessää kukkuu tiedostossa. Eli Sheetillä 1 arvot ja makro tietojen vientiin
  
  Helkkari näitä on vaikea selittää, kun olen vielä aika keltanokka varsinkin excelin kanssa.
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
- Kääpiöäly
  2010-12-21 15:32:58
  kunde kirjoitti:
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
  Nyt toimii hyvin! Ja erittäin suuri kiitos jälleen!
- kääpiöäly
  2011-02-09 10:20:11
  kunde kirjoitti:
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
  Miten koodia on muutettava, jos halutaan sarakkeen B arvot kohtaan: session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value, per rivi?
  
  Yritin näin mutta ei toimi:
  
  Dim vika As Long
  Dim vika2 As Long
  vika = Range("A65536").End(xlUp).Row
  vika2 = Range("B65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  For Each solu2 In Range("B2:B" & vika2)
  session.findById("wnd[0]/usr/ctxt[0]").Text = solu2
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
- kunde
  2011-02-09 11:39:18
  kääpiöäly kirjoitti:
  Miten koodia on muutettava, jos halutaan sarakkeen B arvot kohtaan: session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value, per rivi?
  
  Yritin näin mutta ei toimi:
  
  Dim vika As Long
  Dim vika2 As Long
  vika = Range("A65536").End(xlUp).Row
  vika2 = Range("B65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  For Each solu2 In Range("B2:B" & vika2)
  session.findById("wnd[0]/usr/ctxt[0]").Text = solu2
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = solu.Offset(0, 1)
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
  
  Keep EXCELing
  @Kunde
- kääpiöäly
  2011-02-09 12:45:12
  kunde kirjoitti:
  Sub Siirrä()
  Dim vika As Long
  vika = Range("A65536").End(xlUp).Row
  Sheets("Sheet1").Activate
  For Each solu In Range("A2:A" & vika)
  session.findById("wnd[0]").maximize
  session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
  session.findById("wnd[0]/usr/ctxt[0]").Text = solu.Offset(0, 1)
  session.findById("wnd[0]/usr/ctxt[4]").Text = solu
  session.findById("wnd[0]/usr/ctxt[4]").SetFocus
  session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
  session.findById("wnd[0]").sendVKey 0
  Next
  MsgBox "ALL " & vika - 1 & " Excel rows processed"
  End Sub
  
  Keep EXCELing
  @Kunde
  Ohhoijjaa, kun tunnen taas itseni tyhmäksi.... Kiitos!

Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

Takaisin ylös

Luetuimmat keskustelut

Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
11.03.2026 08:31Arvot ja etiikka
20
11408
Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
10.03.2026 19:32Maailman menoa
46
3964
Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
10.03.2026 06:47Tunteet
113
3140
Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
11.03.2026 10:02Maailman menoa
134
2454
Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin
11.03.2026 12:33Maailman menoa
96
2171
Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
10.03.2026 01:03Henkinen hyvinvointi ja mielenterveys
200
1814
Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.
10.03.2026 12:56Maailman menoa
307
1069
Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta
10.03.2026 04:34Kuhmo
18
865
Toisten elämän moralisointi
Eikö kukin voisi keskittyä lähinnä omaan elämäänsä? Jos jollakulla muulla on tunteita, ajatuksia, tai tekoja oman suhte
10.03.2026 09:27Tunteet
143
785
Missä milloin
Missä milloin nähdään?
10.03.2026 20:12Ikävä
53
729

Vba probleema

Vastaukset

kunde kirjoitti:

kääpiöäly kirjoitti:

kunde kirjoitti:

Kääpiöäly kirjoitti:

kunde kirjoitti:

kunde kirjoitti:

kääpiöäly kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

Veli Sofia teki urosmehiläisen työn

Unisex-vessat

Sosiaalidemokratia romahtanut kautta maailman

Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?

Vastuun ottaminen omasta hyvinvoinnista

Sofia Virralle täydet 12 pistettä!

Miksi Hotelli Kainuuta dissataan?

Toisten elämän moralisointi

Missä milloin

Tykkäisitkö tällaisesta mökistä? Anni Ihamäki sai tv:ssä massiivisen remontin kesämökille

Katsotko Yle Areenasta sarjoja? Nämä ulkomaiset sarjat alkavat maaliskuussa

Unisex-vessat

Vastuun ottaminen omasta hyvinvoinnista

Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

Mitäs nyt sijoittajat?

Minkä kouluarvosanan 4-10 annat Beck-leffoille?

Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."

Veli-matti savolainen kieltäyty pride paidasta koska se on hänen arvojen vastaista