Buongiorno,
sto cercando di impostare la lettura di alcune celle di un foglio excel in modo che i rispettivi valori vengano memorizzati in una tabella di MSAccess.
Le celle che sto leggendo da IlMioFile.xlsx contengono un valore in formato ORARIO (HH:MM) e anche se la routine sembra funzionare, i valori "letti" sono solo degli 1 e così vengono memorizzati nella tabella.
Il codice è il seguente:
Private Sub LeggiValori()
Dim xl As Excel.Application
Dim xlWrkBk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Dim myRec As DAO.Recordset
Set xl = CreateObject("Excel.Application")
Set xlWrkBk = GetObject("D:/IlMioFile.xlsx")
Set xlsht = xlWrkBk.Worksheets(1)
Set myRec = CurrentDb.OpenRecordset("000LeggiOrari")
myRec.AddNew
myRec.Fields("OreNovembre") = xlsht.Cells(6, "I")
myRec.Fields("OreDicembre") = xlsht.Cells(7, "I")
myRec.Fields("OreGennaio") = xlsht.Cells(8, "I")
myRec.Fields("OreFebbraio") = xlsht.Cells(9, "I")
myRec.Fields("OreMarzo") = xlsht.Cells(10, "I")
myRec.Fields("OreAprile") = xlsht.Cells(11, "I")
myRec.Fields("OreMaggio") = xlsht.Cells(12, "I")
myRec.Fields("OreGiugno") = xlsht.Cells(13, "I")
myRec.Update
End Sub
Dove sto sbagliando?
Vi ringrazio in anticipo
M.