opps ora ti mando il codice in vb.net..


ho la dll fatta in 2 ling.



Sub esegui_esportazione(ByRef soc As String, ByRef prog As String)
''''''''''''''''
'**** preparazione cartela ****
On Error GoTo errmgr


oapplicazione = New Excel.Application()
oCartella = oapplicazione.Workbooks.Add
oFoglio = oCartella.Worksheets("Foglio1")


VerificaWF(NomeRisorsa, myAnno, myMese)

TOTALE_VAR = ""
counter = 0
TOTALE_SpeseRIM = 0
SpesePrepagateCC = 0
SpesePrepagate = 0
SpeseSostenute = 0
'TOTAnticipi = 0
ImpTRASP_P = 0
ImpTRASP_C = 0
ImpTRASP_SOS = 0
ImpALLOG_P = 0
ImpALLOG_C = 0
ImpALLOG_SOS = 0
ImpPRANZO_P = 0
ImpPRANZO_C = 0
ImpPRANZO_SOS = 0
ImpCENA_P = 0
ImpCENA_C = 0
ImpCENA_SOS = 0
ImpALTRO_P = 0
ImpALTRO_C = 0
ImpALTRO_SOS = 0
'------------


Rapp_Attivita = Run(ConnString_Rapp, "qryRapp_Attivita")
RI_Ris = Run(ConnString_WI, "qryRI_Ris")
Giorni_Att = Run(ConnString_Rapp, "qryGiorni_Att")
AN_Anticipi = Run(ConnString_Rapp, "qryAN_Anticipi")
TOTALE_FERIE = 0
TOTALE_ASSENZA = 0
TOTALE_ORE_FERIE = 0
TOTALE_ORE_ASSENZA = 0
TOTAnticipi = 0
totaleore = 0
totgiorni = 0
totTICKET = 0
totdiariaA = 0
totdiariaB = 0
nriga = 0
With oCartella

setVariabili()
'******************** TESTA ***************************

strValue = "COGNOME:"
subHeader(strValue, col(cognome), riga(cognome), "", 51, True, 8, 7, False, False, False)

strValue = UCase(mycognome)
subHeader(strValue, col(cognome) + 2, riga(cognome), "", 1, False, 8, 11, False, False, False)

strValue = "NOME:"
subHeader(strValue, col(c_nome), riga(c_nome), "", 51, True, 8, 10, False, False, False)

strValue = UCase(mynome)
subHeader(strValue, col(c_nome) + 1, riga(c_nome), "", 1, False, 8, 4, False, False, False)

strValue = "ORE STD:"
subHeader(strValue, col(ore), riga(ore), "", 51, True, 8, 7, False, False, False)

strValue = RI_Ris.Fields("RI_NUM_OreStd").Value
subHeader(strValue, col(ore) + 2, riga(ore), "", 1, False, 8, 11, False, False, False)

strValue = "C di C:"
subHeader(strValue, col(CDC), riga(CDC), "", 51, True, 8, 10, False, False, False)

'UPGRADE_WARNING: Use of Null/IsNull() detected. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1049"'
If IsDBNull(RI_Ris.Fields("RI_ID_CDCAdd").Value) Then
'Set myCDC2 = New ADODB.Recordset
myCDC2 = Run(ConnString_WI, "qry_CDC2")
strValue = myCDC2.Fields("UO_ID_CDC").Value
subHeader(strValue, col(CDC) + 1, riga(CDC), "", 1, False, 8, 4, False, False, False)
Else
strValue = RI_Ris.Fields("RI_ID_CDCAdd").Value
subHeader(strValue, col(CDC) + 1, riga(CDC), "", 1, False, 8, 4, False, False, False)
End If

strValue = "SEDE:"
subHeader(strValue, col(Sede), riga(Sede), "", 51, True, 8, 10, False, False, False)

strValue = RI_Ris.Fields("RI_ID_Sede").Value
subHeader(strValue, col(Sede) + 1, riga(Sede), "", 1, False, 8, 4, False, False, False)

strValue = "NOTA SPESE:"
subHeader(strValue, col(italia), riga(italia), "", 51, True, 8, 7, False, False, False)

strValue = Rapp_Attivita.Fields("RA_FLG_Italia").Value
subHeader(strValue, col(italia) + 2, riga(italia), "", 1, False, 8, 11, False, False, False)

strValue = "VALUTA:"
subHeader(strValue, col(Valuta), riga(Valuta), "", 51, True, 8, 7, False, False, False)

strValue = Rapp_Attivita.Fields("Valuta").Value
subHeader(strValue, col(Valuta) + 2, riga(Valuta), "", 1, False, 8, 11, False, False, False)

strValue = "MESE:"
subHeader(strValue, col(mese), riga(mese), "", 51, True, 8, 7, False, False, False)

strValue = Rapp_Attivita.Fields("mese").Value
subHeader(strValue, col(mese) + 2, riga(mese), "", 1, False, 8, 11, False, False, False)

strValue = "ANNO:"
subHeader(strValue, col(anno), riga(anno), "", 51, True, 8, 10, False, False, False)

strValue = Rapp_Attivita.Fields("RA_NUM_Anno").Value
subHeader(strValue, col(anno) + 1, riga(anno), "", 1, False, 8, 4, False, False, False)

strValue = "STATO:"
subHeader(strValue, col(stato), riga(stato), "", 51, True, 8, 10, False, False, False)

'strValue = Rapp_Attivita.Fields("StatiDoc").Value
strValue = "IN APPROVAZIONE"
subHeader(strValue, col(stato) + 1, riga(stato), "", 1, False, 8, 4, False, False, False)

formatta_Cella()
'*********************** BODY **************************
strValue = "GIORNO"
subHeader(strValue, col(giorni), riga(giorni), "", 1, True, 8, 7, False, True, True)

strValue = "D/T"
subHeader(strValue, col(ticket), riga(ticket), "", 1, True, 8, 6, False, True, True)

strValue = "CLIENTE FINALE"
subHeader(strValue, col(cliente_fil), riga(cliente_fil), "", 1, True, 8, 13, False, True, True)

strValue = "LOCALITA'"
subHeader(strValue, col(localita), riga(localita), "", 1, True, 8, 11, False, True, True)

strValue = "COMMESSA"
subHeader(strValue, col(CommPropria), riga(CommPropria), "", 1, True, 8, 10, False, True, True)

strValue = "COD ATT."
subHeader(strValue, col(AttivitaPropria), riga(AttivitaPropria), "", 1, True, 8, 4, False, True, True)

strValue = "CDC"
subHeader(strValue, col(CDCPropria), riga(CDCPropria), "", 1, True, 8, 4, False, True, True)

strValue = "ORE"
subHeader(strValue, col(NUMore), riga(NUMore), "", 1, True, 8, 4, False, True, True)


.......
...
.....

FileName = NomeRisorsa & " _ " & myAnno & " _ " & myMese & " _ " & GrSocieta & " _ " & VB6.Format(Now, "yymmddhhmmss")
.SaveAs(Path & "\" & FileName)


End With
oapplicazione.Workbooks.Close()
oapplicazione.Quit()

If oapplicazione Is Nothing = False Then oapplicazione = Nothing
Exit Sub
errmgr:
myErrMessage = "127 - E' stato rilevato il seguente errore: " & Err.Number & " - " & Err.Description

End Sub