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?

534

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

Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on
13.11.2025 07:49Yrittäjyys
120
9935
Pystyisitkö pitämään
Näppejä erossa jos tulisi siihen tilaisuus
12.11.2025 10:56Ikävä
103
9795
Sannan kirja USA:n bestseller!
"Congratulations to Sanna Marin's HOPE IN ACTION, officially a USA TODAY bestseller!" Kertoo Scribner. Mitäs persut tä
14.11.2025 18:23Maailman menoa
34
9101
Oikeistolainen luki Med mod att leda : en biografi
...ei tykänny Sanna Marinista
14.11.2025 10:55Maailman menoa
21
7901
Sture Fjäder haluaa tuensaajien nimet julki
Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h
13.11.2025 11:55Maailman menoa
177
6284
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ä
58
5488
Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?
12.11.2025 17:54Kuhmo
10
4952
Metsäalan rikolliset
Jokohan alkaa vähitellen kaatua kulissit näillä ihmiskauppaa harjoittavilla firmoilla.
14.11.2025 13:04Sotkamo
30
4802
Milloin viimeksi näit kaivattusi?
Toimisitko nyt toisin kuin siinä tilanteessa teit?
13.11.2025 10:47Ikävä
39
4438
Tuntuuko ettet tiedä
Enää miten toimia mun suhteen. Kun en taida tietää itsekään
12.11.2025 09:50Ikävä
40
4425

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

Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa

Pystyisitkö pitämään

Sannan kirja USA:n bestseller!

Oikeistolainen luki Med mod att leda : en biografi

Sture Fjäder haluaa tuensaajien nimet julki

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

Onnettomuus

Metsäalan rikolliset

Milloin viimeksi näit kaivattusi?

Tuntuuko ettet tiedä

Amazing Race Suomi lauantai 15.11. - Julkkiskisaajissa erityisen mieluisa yllätys!

Minkä arvosanan (1-10) annat Elämäni biisi -ohjelmalle? Kommentoi vapaasti alle

Mitä harrastuksia teillä oli perheessä.

On kyllä erikoista, että kaikki artistit eivät ole mukana kaikissa Vain elämää -jaksoissa!

Trump ei taidakkaan olla niin puhdas pulmunen Epstein keississä?

Vappu Pimiä tuohtuu täysin! Lataa suorat sanat Ensitreffeistä verrattuna Maajussille morsiameen!

Ihmisillä 114,7 milrjadia tileillä rahaa.

"Oliiviöljykeisari" maajussi-Ville lataa - Tästä syystä rakkaus ei roihahtanut Outin kanssa

Horoskooppi torstai 13.11. Oinas, älä hoppuile - Leijona, avaa sanainen arkkusi - Vaaka, ota iisisti

Sammallahti (kok.) raivoaa verotietojen julkisuudesta