[Risolto] Creazione Qrcode elenco dati

Creare una macro - Scrivere uno script - Usare le API
Rispondi
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

[Risolto] Creazione Qrcode elenco dati

Messaggio da Luka2017 »

Buongiorno io ho questa formula per creare il Qrcode dell'elenco di dati presente nella colonna b.
Non riesco ad inserire la possibilita', che all'interno del Qrcode, appaia riga per riga il contenuto presente dalla colonna b alla colonna d. Grazie

Codice: Seleziona tutto

Sub Crea_qrcode2
Sheet4 = ThisComponent.Sheets(4)
Sheet5 = ThisComponent.Sheets(5)
c = Sheet4.createCursor
c.gotoEndOfUsedArea(false)
LastRow1 = c.RangeAddress.EndRow + 1
c = Sheet5.createCursor
c.gotoEndOfUsedArea(false)
LastRow2 = c.RangeAddress.EndRow + 2
dim s1 as String 
dim document   as object 
dim dispatcher as object
dim arr()
s1=Sheet5.getCellRangeByName("A1").String 
CellRange = Sheet4.getCellRangeByName("B2:B" & LastRow1)
arr = CellRange.getDataArray
For i = LBound(arr()) To UBound(arr())
   oRow() = arr(i)
   s1=s1 & " " & oRow(0) & " "
Next
oCell=Sheet5.getCellRangeByName("A3")
ThisComponent.CurrentController.Select(oCell)  
If s1 <> "" then 
document   = ThisComponent.CurrentController.Frame 
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 
dim args30(2) as new com.sun.star.beans.PropertyValue
args30(0).Name = "FileName" 
args30(0).Value = "http://chart.apis.google.com/chart?chs=110x110&cht=qr&chl=" & s1 
args30(1).Name = "FilterName" 
args30(1).Value = "<All formats>" 
args30(2).Name = "AsLink" 
args30(2).Value = false 
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args30())
End If
End Sub
Open office 3.1 Windows 7
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Creazione Qrcode elenco dati

Messaggio da patel »

allega un file di esempio e spiegati meglio
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Creazione Qrcode elenco dati

Messaggio da Luka2017 »

Ciao ti allego il file da te richiesto.
nel foglio uno dalla colonna b alla d ho i dati riportati e tramite quella macro postata in precedenza vorrei che creasse un qr code nel foglio 2.

Però quella macro mi crea solamente il qr code con i dati presenti nella colonna b, mi piacerebbe che all'interno del qr code fosse codificato l'intero elenco presente dalla colonna b alla colonna d come si vede nel foglio 1

Grazie Luca
TESTQRCODE.ods
(8.32 KiB) Scaricato 170 volte
Open office 3.1 Windows 7
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Creazione Qrcode elenco dati

Messaggio da patel »

nel foglio allegato non c'è la macro, vorrei qualcosa da testare, nella macro si parla di fogli 4 e 5 che nell'allegato non ci sono, insomma non ho capito niente
Luka2017 ha scritto: Però quella macro mi crea solamente il qr code con i dati presenti nella colonna b
non credo proprio che lo faccia
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Creazione Qrcode elenco dati

Messaggio da Luka2017 »

Ciao
ho sistemato le numerazioni dei fogli. Inoltre ho inserito un'altra macro che avevo provato dove mi crea il qrcode con i dati presenti nelle colonne b c d, pero' come vedi dovrei inserire riga per riga ed è probabile che dabba inserire 100 righe. La mia richiesta sarebbe, se gentilmente, esiste la possibilita' di far codificare nel qrcode i dati presenti dalla colonna b alla d in base ai dati presenti nel foglio 1.
Allegati
TESTQRCODE.ods
(11.04 KiB) Scaricato 149 volte
Open office 3.1 Windows 7
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Creazione Qrcode elenco dati

Messaggio da patel »

Continuo a non capire
1) il foglio2 a cosa serve ?
2) se i dati da considerare sono nel foglio1 dove vuoi inserire i qrcode ? nel foglio 1 o nel foglio3 ?
3) se li vuoi nel foglio3 come fai poi a riconoscerli ?
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

[Risolto] Re: Creazione Qrcode elenco dati

Messaggio da Luka2017 »

Grazie mille come al solito
Open office 3.1 Windows 7
patel
Volontario attivo
Volontario attivo
Messaggi: 4019
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Creazione Qrcode elenco dati

Messaggio da patel »

Ti dispiace postare la soluzione ?
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Luka2017
Messaggi: 67
Iscritto il: giovedì 16 febbraio 2017, 11:59

Re: Creazione Qrcode elenco dati

Messaggio da Luka2017 »

Siccome ce l'ho salvato nel computer del lavoro domani te lo giro
Open office 3.1 Windows 7
Rispondi