Ben arrivato! Fate login o registratevi per fruire di tutte le funzionalità del forum e del sito.
Se eri già registrato e non ti ricordi la password usa questo link per recuperare l'accesso
Sito e forum dedicati al fermodellismo a tre rotaie gestito da appassionati senza fini commerciali. Qui trovate notizie storiche e suggerimenti tecnici per i vostri modelli vintage e moderni. Il nostro hobby viene praticato in molte maniere diverse, tutte ugualmente valide: hai un plastico? oppure sei un collezionista? oppure un semplice appassionato? Non esitare a scrivere nel forum, tutti gli interventi sono benvenuti ... Postate foto e video del vostro plastico e chiedete aiuto per ogni problema o curiosità inerente al nostro hobby.

Macro per foglio elettronico

La manutenzione e le riparazioni delle nostre loco ed del materiale trainato. Trucchi, suggerimenti e domande.

Moderatore: eroncelli

Rispondi
Messaggio
Autore
Avatar utente
Pietro
Märklin Supporter
Messaggi: 310
Iscritto il: 4 marzo 2008, 15:01
Nome: Pietro
Località: Piemonte
Hai ringraziato: 0
Sei stato  ringraziato: 0

Macro per foglio elettronico

#1 Messaggio da Pietro » 19 aprile 2015, 0:28

Per quelli che come me tengono una lista dei codici Maerklin su foglio elettronico....

ho creato una piccola macro che, premendo un bottone quando il cursore é su una cella contenente il codice articolo, ti apre:
- la scheda del database Maerklin
- una serie di negozi con il risultato della ricerca del codice

Questa é la primissima versione....chiaramente ampliabile a piacimento.
Tra un sito e l'altro ho messo un ritardo di 5 secondi (per permettere al browser di aprire con agilità i siti...)

La macro é scritta per openoffice; penso sia molto simile anche per excel.

Codice: Seleziona tutto

Dim launcher As Object
Dim aWebPage As String

' Si preleva il valore dalla cella attualmente attiva.
oCell= ThisComponent.CurrentSelection


If MsgBox ("Premi ok per aprire la scheda con il codice:"+ oCell.value+"", MB_OKCANCEL ) = IDOK Then
	launcher = CreateUnoService("com.sun.star.system.SystemShellExecute")
	aWebPage = "http://www.maerklin.com/en/products/tools_downloads/product_database/details.html?art_nr="+ oCell.value +"&artnr="+oCell.value+"&level1=3945&level2=4035&search=1&lang=it&era=0&gaugechoice=0&groupchoice=0&subgroupchoice=0&catalogue=0&features=0&searchtext=&backlink=/www.maerklin.com"
	launcher.execute(aWebPage, "", 0)
	
Else
  ' Cancel button pressed
End IF

If MsgBox ("Premi ok per aprire i negozi con il codice:"+ oCell.value+"", MB_OKCANCEL ) = IDOK Then
	
	aWebPage = "http://www.ricardo.ch/search/index/?CategoryNr=68882&SortingType=2&SearchId=nefB7tQXjE2IULP3_iO2iQ&SearchSentence="+ oCell.value +"&UseDescription=True&IsDidYouMean=True&IsNavbarSearch=True&SplitMode=_ab"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "https://www.menzels-lokschuppen.de/index.php?cl=alist&searchparam="+ oCell.value +"&cnid=xlsearch&attrfilter%5BBaugr%25C3%25B6%25C3%259Fe%252FMa%25C3%259Fstab%5D%5BSpurweite_H0%5D=1&fnc=executefilter"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://luessi.ch/shop/catalog/advanced_search_result.php?keywords="+ oCell.value +"&x=54&y=11&categories_id=26&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.ebay.it/sch/i.html?_odkw=h0+"+ oCell.value +"&LH_PrefLoc=3&_from=R40&_osacat=0&_from=R40&_trksid=p2045573.m570.l1313&_nkw=h0+"+ oCell.value +"&_sacat=0"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "https://shop.lokshop.de/advanced_search_result.php?keywords="+ oCell.value +"&eval_spareparts=1&inc_spareparts=0"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.modellbahnshop-lippe.com/produktsucheneu/0/0-0-0-0-0-"+ oCell.value +"-0-0-0-0-0-0-it-h/produktsucheneu.html"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://modelleisenbahn-shop.zuba-tech.ch/suche.aspx?"+ oCell.value +""
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.suter-meggen.ch/maerklin/sortiment/54_preisliste.htm"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://shop.hochhaus-ag.ch/catalog/advanced_search_result.php?keywords="+ oCell.value +"&search_in_description=1&categories_id=&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "https://www.berchersternlicht.ch/de/catalogsearch/result/?q="+ oCell.value +""
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://shop.zugkraft-stucki.ch/suche.aspx?"+ oCell.value +""
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.modellbahn-shop.ch/result.aspx?tokens="+ oCell.value +"&navId=1030"
	launcher.execute(aWebPage, "", 0)
'	Wait 5000

Else
  ' Cancel button pressed
End IF
Ciao
Pietro
Personal page: Plastico attuale 1x2m, schema, pp3r, Adorabili BR151, BR210

Avatar utente
Admin
Amministratore forum
Messaggi: 11556
Iscritto il: 1 novembre 2005, 22:05
Nome: Tito Myhre
Località: Lombardia,Milano,Arese
Hai ringraziato: 21 volte
Sei stato  ringraziato: 22 volte
Contatta:

Re: Macro per foglio elettronico

#2 Messaggio da Admin » 19 aprile 2015, 11:30

Interessante. Ma non capisco bene come funziona.
Puoi allegare l'intero foglio ?? Grazie
Saluti
Tito
La mia mail: admin@3rotaie.net - La mia Pagina Personale 3r
La collaborazione ed i suggerimenti degli utenti sono la linfa vitale del sito e del forum, non esitate a condividere esperienze e conoscenze.
Come inserire Foto e Video

Avatar utente
Pietro
Märklin Supporter
Messaggi: 310
Iscritto il: 4 marzo 2008, 15:01
Nome: Pietro
Località: Piemonte
Hai ringraziato: 0
Sei stato  ringraziato: 0

Re: Macro per foglio elettronico

#3 Messaggio da Pietro » 19 aprile 2015, 14:19

Ciao Tito.

Ci provo
Ecco il file:
articoli maerklin.ods
macro.jpg
In pratica premi il pulsantino (quello cerchiato) su un codice articolo, il programma ti chiede se vuoi aprire le schede.
Se il pulsantino non si vede magari non é visibile: prova a selezionare menù "Visualizza->Barre degli strumenti->Macro personalizzate"
O magari il pulsante é dietro altre barre....

-----------

il sorgente completo (nuovo):

Codice: Seleziona tutto

Dim launcher As Object
Dim aWebPage As String

' Si preleva il valore dalla cella attualmente attiva.
oCell= ThisComponent.CurrentSelection

If MsgBox ("Premi ok per aprire la scheda con il codice:"+ oCell.value+"", MB_OKCANCEL ) = IDOK Then
	launcher = CreateUnoService("com.sun.star.system.SystemShellExecute")
	aWebPage = "http://www.maerklin.com/en/products/tools_downloads/product_database/details.html?art_nr="+ oCell.value +"&artnr="+oCell.value+"&level1=3945&level2=4035&search=1&lang=it&era=0&gaugechoice=0&groupchoice=0&subgroupchoice=0&catalogue=0&features=0&searchtext=&backlink=/www.maerklin.com"
	launcher.execute(aWebPage, "", 0)
	
Else
  ' Cancel button pressed
End IF

If MsgBox ("Premi ok per aprire i negozi con il codice:"+ oCell.value+"", MB_OKCANCEL ) = IDOK Then
	
	aWebPage = "http://www.ricardo.ch/search/index/?CategoryNr=68882&SortingType=2&SearchSentence="+ oCell.value +"&UseDescription=True&IsDidYouMean=True&IsNavbarSearch=True&SplitMode=_ab"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "https://www.menzels-lokschuppen.de/index.php?cl=alist&searchparam="+ oCell.value +"&cnid=xlsearch&attrfilter%5BBaugr%25C3%25B6%25C3%259Fe%252FMa%25C3%259Fstab%5D%5BSpurweite_H0%5D=1&fnc=executefilter"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://luessi.ch/shop/catalog/advanced_search_result.php?keywords="+ oCell.value +"&x=54&y=11&categories_id=26&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.ebay.it/sch/i.html?_odkw=&LH_PrefLoc=3&_from=R40%7CR40&_osacat=9083&_from=R40&_trksid=p2045573.m570.l1313.TR0.TRC0.H0.Xmaerklin+"+ oCell.value +".TRS0&_nkw=maerklin+37805&_sacat=9083"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "https://shop.lokshop.de/advanced_search_result.php?keywords="+ oCell.value +"&eval_spareparts=1&inc_spareparts=0"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.modellbahnshop-lippe.com/produktsucheneu/0/0-0-0-0-0-"+ oCell.value +"-0-0-0-0-0-0-it-h/produktsucheneu.html"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://modelleisenbahn-shop.zuba-tech.ch/suche.aspx?"+ oCell.value +""
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.suter-meggen.ch/maerklin/sortiment/54_preisliste.htm"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://shop.hochhaus-ag.ch/catalog/advanced_search_result.php?keywords="+ oCell.value +"&search_in_description=1&categories_id=&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "https://www.berchersternlicht.ch/de/catalogsearch/result/?q="+ oCell.value +""
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://shop.zugkraft-stucki.ch/suche.aspx?"+ oCell.value +""
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://www.modellbahn-shop.ch/result.aspx?tokens="+ oCell.value +"&navId=1030"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://stores.ebay.it/Il-paradiso-del-Fermodellista/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
	launcher.execute(aWebPage, "", 0)
	Wait 5000
	
	aWebPage = "http://stores.ebay.it/tecnomodel-treni-it/_i.html?_nkw="+ oCell.value +"&LH_TitleDesc=1&submit.x=0&submit.y=0"
	launcher.execute(aWebPage, "", 0)
	Wait 5000	

	aWebPage = "http://stores.ebay.it/IL-MODELLISMO-FERRARA/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://stores.ebay.it/artedeltreno/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
	launcher.execute(aWebPage, "", 0)
	Wait 5000

	aWebPage = "http://stores.ebay.it/Hobbymodel10?_dmd=1&_nkw="+ oCell.value +"&LH_TitleDesc=1"
	launcher.execute(aWebPage, "", 0)
	Wait 5000
	
	aWebPage = "http://stores.ebay.it/DISCOUNT-MODELS/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
	launcher.execute(aWebPage, "", 0)
						
Else
  ' Cancel button pressed
End IF
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
Personal page: Plastico attuale 1x2m, schema, pp3r, Adorabili BR151, BR210

Avatar utente
Admin
Amministratore forum
Messaggi: 11556
Iscritto il: 1 novembre 2005, 22:05
Nome: Tito Myhre
Località: Lombardia,Milano,Arese
Hai ringraziato: 21 volte
Sei stato  ringraziato: 22 volte
Contatta:

Re: Macro per foglio elettronico

#4 Messaggio da Admin » 19 aprile 2015, 19:01

Pietro ha scritto:Per quelli che come me tengono una lista dei codici Maerklin su foglio elettronico....

ho creato una piccola macro che, premendo un bottone quando il cursore é su una cella contenente il codice articolo, ti apre:
- la scheda del database Maerklin
- una serie di negozi con il risultato della ricerca del codice
*********
Ciao Pietro,

utile :yes:
mi apre regolarmente la scheda corrispondente al codice, ma si ferma lì.

Cosa intendi per "- una serie di negozi con il risultato della ricerca del codice" ??
Saluti
Tito
La mia mail: admin@3rotaie.net - La mia Pagina Personale 3r
La collaborazione ed i suggerimenti degli utenti sono la linfa vitale del sito e del forum, non esitate a condividere esperienze e conoscenze.
Come inserire Foto e Video

Avatar utente
Admin
Amministratore forum
Messaggi: 11556
Iscritto il: 1 novembre 2005, 22:05
Nome: Tito Myhre
Località: Lombardia,Milano,Arese
Hai ringraziato: 21 volte
Sei stato  ringraziato: 22 volte
Contatta:

Re: Macro per foglio elettronico

#5 Messaggio da Admin » 19 aprile 2015, 21:38

Admin ha scritto:****
Cosa intendi per "- una serie di negozi con il risultato della ricerca del codice" ??
Capito !! :ridi:
Ottimo :hand:
Saluti
Tito
La mia mail: admin@3rotaie.net - La mia Pagina Personale 3r
La collaborazione ed i suggerimenti degli utenti sono la linfa vitale del sito e del forum, non esitate a condividere esperienze e conoscenze.
Come inserire Foto e Video

Avatar utente
Pietro
Märklin Supporter
Messaggi: 310
Iscritto il: 4 marzo 2008, 15:01
Nome: Pietro
Località: Piemonte
Hai ringraziato: 0
Sei stato  ringraziato: 0

Re: Macro per foglio elettronico

#6 Messaggio da Pietro » 19 aprile 2015, 23:04

Ottimo...
Ho gia'trovato un baco :mrgreen:
Se hai qualche link in più posso provare ad integrarli.
Volevo anche creare un form un po' piu' intelligente che solo "ok" e basta ...
Pietro
Personal page: Plastico attuale 1x2m, schema, pp3r, Adorabili BR151, BR210

Avatar utente
eroncelli
Märklinista
Messaggi: 5444
Iscritto il: 27 aprile 2008, 14:42
Nome: Eugenio Roncelli
Località: Bergamo
Hai ringraziato: 2 volte
Sei stato  ringraziato: 12 volte

Re: Macro per foglio elettronico

#7 Messaggio da eroncelli » 20 aprile 2015, 8:36

Niente da fare: provato su altro PC, ma mi dà sempre errore e la macro non viene caricata.
Stranamente, l'icona è di un file pdf, ma poi si apre Excel, con l'errore.
Eugenio
(Töcc i òmen e fómne i nàs lìberi e compàgn in dignità e derécc)

Avatar utente
fumettino
Märklinista
Messaggi: 5577
Iscritto il: 14 marzo 2009, 19:57
Nome: Maurizio
Località: Lazio, RM, Roma
Hai ringraziato: 0
Sei stato  ringraziato: 0

#8 Messaggio da fumettino » 20 aprile 2015, 9:06

eroncelli ha scritto:Niente da fare
- In verità sono poco interessato alla come si chiama ma, tanto per provare a curiosare, per impicciarmi un po'...


error-400.jpg

MA QUANTO ME PIACE DE CHIACCHIERA' - Maurizio Roma
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
tanto buon gioco da maurizio.fumettino grafico pubblicitario

Avatar utente
Admin
Amministratore forum
Messaggi: 11556
Iscritto il: 1 novembre 2005, 22:05
Nome: Tito Myhre
Località: Lombardia,Milano,Arese
Hai ringraziato: 21 volte
Sei stato  ringraziato: 22 volte
Contatta:

Re: Macro per foglio elettronico

#9 Messaggio da Admin » 20 aprile 2015, 13:33

eroncelli ha scritto:Niente da fare: provato su altro PC, ma mi dà sempre errore e la macro non viene caricata.
Stranamente, l'icona è di un file pdf, ma poi si apre Excel, con l'errore.
Ho provato con Excel e NON funziona
invece va benissimo con OpenOffice :ridi:
Saluti
Tito
La mia mail: admin@3rotaie.net - La mia Pagina Personale 3r
La collaborazione ed i suggerimenti degli utenti sono la linfa vitale del sito e del forum, non esitate a condividere esperienze e conoscenze.
Come inserire Foto e Video

Avatar utente
riccardo fenoglio
Junior Märklin Supporter
Messaggi: 924
Iscritto il: 6 settembre 2010, 22:27
Nome: Riccardo
Località: Airasca
Hai ringraziato: 0
Sei stato  ringraziato: 0
Contatta:

Re: Macro per foglio elettronico

#10 Messaggio da riccardo fenoglio » 20 aprile 2015, 14:15

Ho riscontrato solo un problema,che una volta lanciai i collegamenti,non vi è nessun modo per fermarli,devi aspettare che si aprano tutte le pagine inserite nel list della macro.



Riccardo
Riccardo
http://www.3rotaie.it/pp3r/index.php
Se una cosa non funziona è perchè probabilmente non sei capace di farla funzionare.

Avatar utente
Pietro
Märklin Supporter
Messaggi: 310
Iscritto il: 4 marzo 2008, 15:01
Nome: Pietro
Località: Piemonte
Hai ringraziato: 0
Sei stato  ringraziato: 0

Re: Macro per foglio elettronico

#11 Messaggio da Pietro » 20 aprile 2015, 23:06

Ciao a tutti

Il foglio elettronico funziona solo su Openoffice (file .ods)
Appena ho un po' di tempo lo converto per excel (eh...devo trovare qualcuno che ha Office....)

Nel mentre ho migliorato la funzione aggiungendoci una finestra di dialogo, migliorando i vari siti. Se ne avete altri li metto volentieri nel (meta)motore di ricerca.
file:
articoli maerklin V1.0.ods
sorgente:

Codice: Seleziona tutto

REM  *****  BASIC  *****

Global Dlg As Object
Global bFermati As Boolean
Sub Main

bFermati = False
DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Selezione_negozi)

oCell= ThisComponent.CurrentSelection
Dlg.Model.CodiceSelezionato.Label = "Articolo selezionato:"+oCell.value+""
Dlg.Model.StatoLabel.Label = "Stato: Fermo"

Dlg.Execute()
Dlg.dispose()

End Sub

Sub Ferma
Dlg.Model.CommandFerma.Enabled=False						
Dlg.Model.CommandParti.Enabled=True
Dlg.Model.StatoLabel.Label = "Stato: Fermato"
End Sub

Sub Premi_Start
Dim launcher As Object
Dim aWebPage As String

' Si preleva il valore dalla cella attualmente attiva.
bFermati=False
launcher = CreateUnoService("com.sun.star.system.SystemShellExecute")
oCell= ThisComponent.CurrentSelection	

Dlg.Model.CommandFerma.Enabled=True
Dlg.Model.CommandParti.Enabled=False
Dlg.Model.StatoLabel.Label = "Stato: Caricando URL"

	if (Dlg.Model.MarklinCheckBox.state=1) Then
		aWebPage = "http://www.maerklin.com/en/products/tools_downloads/product_database/details.html?art_nr="+ oCell.value +"&artnr="+oCell.value+"&level1=3945&level2=4035&search=1&lang=it&era=0&gaugechoice=0&groupchoice=0&subgroupchoice=0&catalogue=0&features=0&searchtext=&backlink=/www.maerklin.com"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	End If
	
	if (Dlg.Model.RicardoCheck.state=1) Then
		aWebPage = "http://www.ricardo.ch/search/index/?CategoryNr=68882&SortingType=2&SearchSentence="+ oCell.value +"&UseDescription=True&IsDidYouMean=True&IsNavbarSearch=True&SplitMode=_ab"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 
	if (Dlg.Model.NegoziDECheck.state=1) Then	
		aWebPage = "https://www.menzels-lokschuppen.de/index.php?cl=alist&searchparam="+ oCell.value +"&cnid=xlsearch&attrfilter%5BBaugr%25C3%25B6%25C3%259Fe%252FMa%25C3%259Fstab%5D%5BSpurweite_H0%5D=1&fnc=executefilter"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://www.modellbahnshop-lippe.com/produktsucheneu/0/0-0-0-0-0-"+ oCell.value +"-0-0-0-0-0-0-it-h/produktsucheneu.html"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "https://shop.lokshop.de/advanced_search_result.php?keywords="+ oCell.value +"&eval_spareparts=1&inc_spareparts=0"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 
	if (Dlg.Model.NegoziCHCheck.state=1) Then
		aWebPage = "http://luessi.ch/shop/catalog/advanced_search_result.php?keywords="+ oCell.value +"&x=54&y=11&categories_id=26&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://modelleisenbahn-shop.zuba-tech.ch/suche.aspx?"+ oCell.value +""
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://www.suter-meggen.ch/maerklin/sortiment/54_preisliste.htm"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://shop.hochhaus-ag.ch/catalog/advanced_search_result.php?keywords="+ oCell.value +"&search_in_description=1&categories_id=&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "https://www.berchersternlicht.ch/de/catalogsearch/result/?q="+ oCell.value +""
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://shop.zugkraft-stucki.ch/suche.aspx?"+ oCell.value +""
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://www.modellbahn-shop.ch/result.aspx?tokens="+ oCell.value +"&navId=1030"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	

	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 
	if (Dlg.Model.NegoziITCheck.state=1) Then
	
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 	
	if (Dlg.Model.CheckBoxEbay.state=1) Then
		
		aWebPage = "http://www.ebay.it/sch/i.html?_odkw=&LH_PrefLoc=3&_from=R40%7CR40&_osacat=9083&_from=R40&_trksid=p2045573.m570.l1313.TR0.TRC0.H0.Xmaerklin+"+ oCell.value +".TRS0&_nkw=maerklin+"+ oCell.value +"&_sacat=9083"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://www.ebay.ch/sch/Modelleisenbahn-Spur-H0-/9053/i.html?Marke=M%25C3%25A4rklin&_catref=1&_dcat=9053&_from=R40&_nkw="+ oCell.value +"&LH_PrefLoc=2&_arm=1&_armm=63"
		launcher.execute(aWebPage, "", 0)
		Wait 5000

		aWebPage = "http://www.ebay.de/sch/Modelleisenbahn-Spur-H0-/9053/i.html?Marke=M%25C3%25A4rklin&_fslt=1&_dmd=2&LH_BIN=1&_dcat=9053&_from=R40|R40&_nkw="+ oCell.value +"&rt=nc&LH_PrefLoc=0"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://www.ebay.nl/sch/i.html?_odkw=&_osacat=33219&_from=R40&_trksid=m570.l1313&_nkw="+ oCell.value +"&_sacat=33219"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 

	if (Dlg.Model.EbayNegoziCheckBox.state=1) Then

		aWebPage = "http://stores.ebay.it/Il-paradiso-del-Fermodellista/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://stores.ebay.it/tecnomodel-treni-it/_i.html?_nkw="+ oCell.value +"&LH_TitleDesc=1&submit.x=0&submit.y=0"
		launcher.execute(aWebPage, "", 0)
		Wait 5000	
	
		aWebPage = "http://stores.ebay.it/IL-MODELLISMO-FERRARA/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://stores.ebay.it/artedeltreno/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://stores.ebay.it/Hobbymodel10?_dmd=1&_nkw="+ oCell.value +"&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://stores.ebay.it/DISCOUNT-MODELS/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
	
	End If

Dlg.Model.CommandFerma.Enabled=False						
Dlg.Model.CommandParti.Enabled=True
Dlg.Model.StatoLabel.Label = "Stato: Finito"
End Sub

Sub Premi_Stop
	bFermati=True
	Dlg.Model.CommandFerma.Enabled=False						
	Dlg.Model.CommandParti.Enabled=True
	Dlg.Model.StatoLabel.Label = "Stato: Fermando"
End Sub

Sub Premi_Azzera

Dlg.Model.MarklinCheckBox.State=0
Dlg.Model.CheckBoxEbay.State=0
Dlg.Model.EbayNegoziCheckBox.State=0
Dlg.Model.NegoziDECheck.State=0
Dlg.Model.NegoziITCheck.State=0
Dlg.Model.NegoziCHCheck.State=0
Dlg.Model.RicardoCheck.State=0


End Sub

Ciao
Pietro
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
Personal page: Plastico attuale 1x2m, schema, pp3r, Adorabili BR151, BR210

Avatar utente
Pietro
Märklin Supporter
Messaggi: 310
Iscritto il: 4 marzo 2008, 15:01
Nome: Pietro
Località: Piemonte
Hai ringraziato: 0
Sei stato  ringraziato: 0

Re: Macro per foglio elettronico

#12 Messaggio da Pietro » 3 gennaio 2016, 13:01

Ciao a tutti

ho aggiornato la macro alla V1.1, aggiornando il link al nuovo database Maerklin e correggendo altri siti.

Ciao
Pietro
articoli maerklin V1.1.ods

Codice: Seleziona tutto

REM  *****  BASIC  *****
REM Versione 1.1

Global Dlg As Object
Global bFermati As Boolean
Sub Main

bFermati = False
DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Selezione_negozi)

oCell= ThisComponent.CurrentSelection
Dlg.Model.CodiceSelezionato.Label = "Articolo selezionato:"+oCell.value+""
Dlg.Model.StatoLabel.Label = "Stato: Fermo"

Dlg.Execute()
Dlg.dispose()

End Sub

Sub Ferma
Dlg.Model.CommandFerma.Enabled=False						
Dlg.Model.CommandParti.Enabled=True
Dlg.Model.StatoLabel.Label = "Stato: Fermato"
End Sub

Sub Premi_Start
Dim launcher As Object
Dim aWebPage As String

' Si preleva il valore dalla cella attualmente attiva.
bFermati=False
launcher = CreateUnoService("com.sun.star.system.SystemShellExecute")
oCell= ThisComponent.CurrentSelection	

Dlg.Model.CommandFerma.Enabled=True
Dlg.Model.CommandParti.Enabled=False
Dlg.Model.StatoLabel.Label = "Stato: Caricando URL"

	if (Dlg.Model.MarklinCheckBox.state=1) Then
		aWebPage = "http://www.maerklin.de/en/products/details/article/"+ oCell.value +"/136/?tx_torrpdb_pi1[backlink]=136&tx_torrpdb_pi1[page]=1&tx_torrpdb_pi1[perpage]=10&tx_torrpdb_pi1[era]=&tx_torrpdb_pi1[newonly]=0&tx_torrpdb_pi1[gaugechoice]=0&tx_torrpdb_pi1[groupchoice]=0&tx_torrpdb_pi1[subgroupchoice]=0&tx_torrpdb_pi1[lang]=5"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	End If
	
	if (Dlg.Model.RicardoCheck.state=1) Then
		aWebPage = "http://www.ricardo.ch/search/index/?CategoryNr=68882&SortingType=2&SearchSentence="+ oCell.value +"&UseDescription=True&IsDidYouMean=True&IsNavbarSearch=True&SplitMode=_ab"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 
	if (Dlg.Model.NegoziDECheck.state=1) Then	
		aWebPage = "https://www.menzels-lokschuppen.de/index.php?cl=alist&searchparam="+ oCell.value +"&cnid=xlsearch&attrfilter%5BBaugr%25C3%25B6%25C3%259Fe%252FMa%25C3%259Fstab%5D%5BSpurweite_H0%5D=1&fnc=executefilter"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://www.modellbahnshop-lippe.com/produktsucheneu/0/0-0-0-0-0-"+ oCell.value +"-0-0-0-0-0-0-it-h/produktsucheneu.html"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "https://shop.lokshop.de/advanced_search_result.php?keywords="+ oCell.value +"&eval_spareparts=1&inc_spareparts=0"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 
	if (Dlg.Model.NegoziCHCheck.state=1) Then
		aWebPage = "http://luessi.ch/shop/catalog/advanced_search_result.php?keywords="+ oCell.value +"&x=54&y=11&categories_id=26&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://modelleisenbahn-shop.zuba-tech.ch/suche?s="+ oCell.value +""
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://www.suter-meggen.ch/maerklin/sortiment/54_preisliste.htm"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://shop.hochhaus-ag.ch/catalog/advanced_search_result.php?keywords="+ oCell.value +"&search_in_description=1&categories_id=&inc_subcat=1&manufacturers_id=&pfrom=&pto=&dfrom=&dto="
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "https://www.berchersternlicht.ch/de/catalogsearch/result/?q="+ oCell.value +""
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://shop.zugkraft-stucki.ch/suche?s="+ oCell.value +""
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://www.modellbahn-shop.ch/result.aspx?tokens="+ oCell.value +"&navId=1030"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	

	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 
	if (Dlg.Model.NegoziITCheck.state=1) Then
		aWebPage = "https://www.toytrains.it/it/index.asp"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 	
	if (Dlg.Model.CheckBoxEbay.state=1) Then
		
		aWebPage = "http://www.ebay.it/sch/i.html?_odkw=&LH_PrefLoc=3&_from=R40%7CR40&_osacat=9083&_from=R40&_trksid=p2045573.m570.l1313.TR0.TRC0.H0.Xmaerklin+"+ oCell.value +".TRS0&_nkw=maerklin+37805&_sacat=9083"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://www.ebay.ch/sch/Modelleisenbahn-Spur-H0-/9053/i.html?Marke=M%25C3%25A4rklin&_catref=1&_dcat=9053&_from=R40&_nkw="+ oCell.value +"&LH_PrefLoc=2&_arm=1&_armm=63"
		launcher.execute(aWebPage, "", 0)
		Wait 5000

		aWebPage = "http://www.ebay.de/sch/Modelleisenbahn-Spur-H0-/9053/i.html?Marke=M%25C3%25A4rklin&_fslt=1&_dmd=2&LH_BIN=1&_dcat=9053&_from=R40|R40&_nkw="+ oCell.value +"&rt=nc&LH_PrefLoc=0"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://www.ebay.nl/sch/i.html?_odkw=&_osacat=33219&_from=R40&_trksid=m570.l1313&_nkw="+ oCell.value +"&_sacat=33219"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
	End If
	if (bFermati=True) Then 
		Ferma
		End
	End If 

	if (Dlg.Model.EbayNegoziCheckBox.state=1) Then

		aWebPage = "http://stores.ebay.it/Il-paradiso-del-Fermodellista/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://stores.ebay.it/tecnomodel-treni-it/_i.html?_nkw="+ oCell.value +"&LH_TitleDesc=1&submit.x=0&submit.y=0"
		launcher.execute(aWebPage, "", 0)
		Wait 5000	
	
		aWebPage = "http://stores.ebay.it/IL-MODELLISMO-FERRARA/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://stores.ebay.it/artedeltreno/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
	
		aWebPage = "http://stores.ebay.it/Hobbymodel10?_dmd=1&_nkw="+ oCell.value +"&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
		Wait 5000
		
		aWebPage = "http://stores.ebay.it/DISCOUNT-MODELS/_i.html?_nkw="+ oCell.value +"&submit=Cerca&LH_TitleDesc=1"
		launcher.execute(aWebPage, "", 0)
	
	End If

Dlg.Model.CommandFerma.Enabled=False						
Dlg.Model.CommandParti.Enabled=True
Dlg.Model.StatoLabel.Label = "Stato: Finito"
End Sub

Sub Premi_Stop
	bFermati=True
	Dlg.Model.CommandFerma.Enabled=False						
	Dlg.Model.CommandParti.Enabled=True
	Dlg.Model.StatoLabel.Label = "Stato: Fermando"
End Sub

Sub Premi_Azzera

if (Dlg.Model.RicardoCheck.state=1) Then

End If 

Dlg.Model.MarklinCheckBox.State=0
Dlg.Model.CheckBoxEbay.State=0
Dlg.Model.EbayNegoziCheckBox.State=0
Dlg.Model.NegoziDECheck.State=0
Dlg.Model.NegoziITCheck.State=0
Dlg.Model.NegoziCHCheck.State=0
Dlg.Model.RicardoCheck.State=0


End Sub

Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
Personal page: Plastico attuale 1x2m, schema, pp3r, Adorabili BR151, BR210

Avatar utente
Torrepisana
Junior Märklin Supporter
Messaggi: 968
Iscritto il: 6 aprile 2013, 18:29
Nome: Funai Romens
Località: Estero Germania Weilheim-Teck
Hai ringraziato: 3 volte
Sei stato  ringraziato: 9 volte

Re: Macro per foglio elettronico

#13 Messaggio da Torrepisana » 3 gennaio 2016, 14:40

Ciao Pietro,
ho scaricato il tuo PDF, ma la sicurezza elettronica mi avvisa che possono asserci dei Virus nel macro.

Tu che cosa ne sai?

Romens
Romens.

Avatar utente
Admin
Amministratore forum
Messaggi: 11556
Iscritto il: 1 novembre 2005, 22:05
Nome: Tito Myhre
Località: Lombardia,Milano,Arese
Hai ringraziato: 21 volte
Sei stato  ringraziato: 22 volte
Contatta:

Re: Macro per foglio elettronico

#14 Messaggio da Admin » 3 gennaio 2016, 18:36

L'avviso è standard. Se hai un normale anti-virus installato puoi procedere tranquillamente.
Saluti
Tito
La mia mail: admin@3rotaie.net - La mia Pagina Personale 3r
La collaborazione ed i suggerimenti degli utenti sono la linfa vitale del sito e del forum, non esitate a condividere esperienze e conoscenze.
Come inserire Foto e Video

Avatar utente
Torrepisana
Junior Märklin Supporter
Messaggi: 968
Iscritto il: 6 aprile 2013, 18:29
Nome: Funai Romens
Località: Estero Germania Weilheim-Teck
Hai ringraziato: 3 volte
Sei stato  ringraziato: 9 volte

Re: Macro per foglio elettronico

#15 Messaggio da Torrepisana » 3 gennaio 2016, 19:25

Grazie Tito,ora sono piu´tranquillo. :up:

Romens.
Romens.

Avatar utente
Pietro
Märklin Supporter
Messaggi: 310
Iscritto il: 4 marzo 2008, 15:01
Nome: Pietro
Località: Piemonte
Hai ringraziato: 0
Sei stato  ringraziato: 0

Re: Macro per foglio elettronico

#16 Messaggio da Pietro » 3 gennaio 2016, 19:34

Ciao Romens
Si, vai tranquillo, non scrivo virus :wink:
Ciao
Pietro
Personal page: Plastico attuale 1x2m, schema, pp3r, Adorabili BR151, BR210

Rispondi