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?

533

Ää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

Hei! Halusin vain kertoa.
En tiedä luetko näitä, mutta näimme n.4vk sitten, vaihdoimme muutaman sanan ja tunsin edelleen kipinän välillämme. Katso
10.11.2025 11:22Tunteet
23
4824
Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois
Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait
10.11.2025 17:45Maailman menoa
158
4116
Miksi ikävä ei helpotu vuosien jälkeenkään?
Tänään olin ensimmäistä kertaa sinun lähtösi jälkeen tilassa, jossa vuosia sitten nähtiin ensimmäistä kerta. Ollessani
10.11.2025 20:04Rakkaus ja rakastaminen
13
3426
Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai
11.11.2025 07:34Maailman menoa
67
3086
Teboili alasajo on alkanut
Niinhän siinä kävi että teebboili loppuu...
10.11.2025 18:17Suomussalmi
87
2814
Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl
11.11.2025 07:23Maailman menoa
151
2652
Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist
12.11.2025 01:17Ikävä
28
2433
Pystyisitkö pitämään
Näppejä erossa jos tulisi siihen tilaisuus
12.11.2025 10:56Ikävä
37
2423
Tuntuuko ettet tiedä
Enää miten toimia mun suhteen. Kun en taida tietää itsekään
12.11.2025 09:50Ikävä
20
1665
"Sanna Marinin kirja floppasi", kertoo eräs median otsikko
"Miljardien tappio - Sanna Marin vaikenee", kertoo toinen otsikko. Marin ei siis siinä kirjassaan kerro sanallakaan For
10.11.2025 10:50Maailman menoa
121
1650

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

Hei! Halusin vain kertoa.

Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois

Miksi ikävä ei helpotu vuosien jälkeenkään?

Riikka on siis suomalaisille velkaa 84 mrd

Teboili alasajo on alkanut

Sanna on suomalaisille siis velkaa 24 mrd euroa

Luotathan siihen tunteeseen, joka välillämme on?

Pystyisitkö pitämään

Tuntuuko ettet tiedä

"Sanna Marinin kirja floppasi", kertoo eräs median otsikko

Sammallahti (kok.) raivoaa verotietojen julkisuudesta

Eläinpuistoa tyhjennetään eläimistä

Erika Vikmannille ilo uutinen.

"Sanna Marinin kirja floppasi", kertoo eräs median otsikko

Tiesitkö? Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi seksuaalirikollinen

Sofia Zida puhuu rehellisesti suhteesta Andy McCoyhin: "Se on ollut mulle tavallaan..."

Minkä arvosanan (1-10) ja miksi annat Maajussille morsian -kaudelle?

Vappu Pimiä rehellisenä rakkausasioistaan - Näin hän tiesi, että Teemu Huuhtanen on se oikea!

Gallup: Mikä on paras tv-sarja joka tulee televisiosta tällä hetkellä?

Kuka artisti on valloittanut sydämesi tai vetänyt parhaiten Vain elämää -ohjelmassa?