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?

521

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

Laitetaas nyt kirjaimet tänne
kuka kaipaa ja ketä ?
05.07.2025 01:01Ikävä
91
7462
Pieni häivähdys sinusta
Olet niin totinen
05.07.2025 02:37Ikävä
40
3602
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
04.07.2025 00:15Ikävä
102
1836
Missä olet ollut tänään kaivattuni?
Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
05.07.2025 23:19Ikävä
24
1040
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
05.07.2025 12:29NATO
32
923
Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
05.07.2025 09:08Nurmes
27
901
Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk
04.07.2025 11:37Ikävä
53
807
Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄
04.07.2025 11:22Ikävä
60
729
Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt
04.07.2025 21:38Ikävä
31
722
Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
05.07.2025 12:32Nurmes
26
652

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

Laitetaas nyt kirjaimet tänne

Pieni häivähdys sinusta

Lähetä terveisesi kaipaamallesi henkilölle

Missä olet ollut tänään kaivattuni?

Taas ryssittiin oikein kunnolla

Valtimon Haapajärvellä paatti mäni nurin

Rakastuminenhan on psykoosi

Tähän vaivaan ei auta kuin kaksi asiaa

Olisinko mä voinut käsittää sut väärin

Känniläiset veneessä?

Useita puukotettu Tampereella

Etelän matkojen suosio kasvussa

Suomessa EU:n toiseksi korkein työttömyys

PS uusimman gallupin rakettimainen nousija

Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

Perusmuotoiset TV-lähetykset loppu

Mitä alkoholijuomaa on myyty sekä Linda Lampeniuksen että Matti Nykäsen nimellä? Testaa tietosi!

Artistilegenda Marion Rung paljasti somessa Vain elämää -päivästään: "Vihdoin voin..."

Luvattiin työpaikka, mutta mitään ei kuulukaan

Syksyn eka Elämäni Biisi TV:ssä - Tämä mielenkiintoinen paljastus tulevasta kaudesta!