Non essendoci soluzione GRATUITA da MAC OS per trasferire i dati in una tabella EXCEL
Ho pensato di sfruttare la possibilit stessa di EXCEL di incollare direttamente una tabella html
Public Sub Doexcel()
// copia tutti i dati della tabella negli appunti in formato HTML
dim clipdata as String
dim righe as integer
dim cursoreriga as integer
dim colonne as integer
dim cursorecolonna as integer
dim allineamento as string = "left"
righe = Listbox1.ListCount - 1
colonne = Listbox1.ColumnCount -1
clipdata = clipdata + "<table>" + EndOfLine
clipdata = clipdata + "<tr>" + EndOfLine
for cursorecolonna = 0 to colonne
select case listbox1.ColumnAlignment(cursorecolonna)
case 0
allineamento = "left"
case 1
allineamento = "left"
case 2
allineamento = "center"
case 3
allineamento = "right"
end select
clipdata = clipdata + "<td align=" + chr(34) + allineamento + chr(34) + "><b>"
clipdata = clipdata + Listbox1.Heading(cursorecolonna)
clipdata = clipdata + "</b></td>"
next cursorecolonna
clipdata = clipdata + "</tr>" + EndOfLine
// righe
for cursoreriga = 0 to righe
clipdata = clipdata + "<tr>" + EndOfLine
for cursorecolonna = 0 to colonne
select case listbox1.ColumnAlignment(cursorecolonna)
case 0
allineamento = "left"
case 1
allineamento = "left"
case 2
allineamento = "center"
case 3
allineamento = "right"
end select
clipdata = clipdata + "<td align=" + chr(34) + allineamento + chr(34) + ">"
clipdata = clipdata + Listbox1.Cell(cursoreriga,cursorecolonna).tagnbsp
clipdata = clipdata + "</td>"
next cursorecolonna
clipdata = clipdata + "</tr>" + EndOfLine
next cursoreriga
clipdata = clipdata + "</table>" + EndOfLine
// copia i dati nella clipboard
Dim c As New Clipboard
c.Text = clipdata
c.Close
boxalert.messaggio("I dati sono trasferiti negli appunti, ora possibile incollarli in Excel")
End Sub