Ciao Marco, se hai necessità di aprire un file già aperto e non locked oppure se vuoi leggere i dati in tempo reale (se il programma lo prevede), oppure ancora se vuoi riaprire lo stesso file excel ed IGNORARE le righe già lette, potresti
dover usare VBScript o VBA per creare una macro/automazione per leggere il file.
Per esempio, potresti usare uno script come questo:
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set ObjCDO = CreateObject("UserAccounts.CommonDialog")
ObjCDO.Filter = "Excel 2007/2010|*.xlsx|Excel vecchi|*.xls|Tutti i files|*.*"
ObjCDO.FilterIndex = 1
ObjCDO.showOpen
Set objWorkbook = objExcel.Workbooks.Open(ObjCDO.FileName)
Set objWorksheet = objWorkbook.Worksheets(1)
i = 3
Do Until x = 1
If objWorksheet.Cells(i,1) = "" Then
Exit Do
End If
if objWorksheet.Cells(i,16).Value <> "OK" Then
<Azione per inserire le righe nel DB>
End If
i = i + 1
Loop
per selezionare il file da aprire tutte le volte,
oppure come questo :
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open(<il percorso del file di excel da aprire>)
Set objWorksheet = objWorkbook.Worksheets(1)
i = 3
Do Until x = 1
If objWorksheet.Cells(i,1) = "" Then
Exit Do
End If
if objWorksheet.Cells(i,16).Value <> "OK" Then
<azioni per inserire le righe nel DB>
objWorksheet.Cells(i,16).Value = "OK"
End If
i = i + 1
Loop
se vuoi aprire sempre lo stesso file, ma leggere solo le righe che alla 16esima colonna NON hanno scritto OK (e tu lo scrivi man mano che le leggi).
potresti anche fare un filtro per il background color delle celle, a questo punto.
Lo so che non è la soluzione più diretta al tuo problema... ma .... così: avevo voglia di scrivere un po' di VBSCript, stamattina. :-)
Diego Castelli - MCSA 2003, MCP ISA 2004, MCTS Forefront. ITA: Questo post è fornito "così com'è". Non conferisce garanzie o diritti di alcun tipo. Ricorda di usare la funzione "segna come risposta" per i post che ti hanno aiutato a
risolvere il problema e "deseleziona come risposta" quando le risposte segnate non sono effettivamente utili. Questo è particolarmente utile per altri utenti che leggono il thread, alla ricerca di soluzioni a problemi similari. ENG: This posting
is provided "AS IS" with no warranties, and confers no rights. Please remember to click "Mark as Answer" on the post that helps you, and to click "Unmark as Answer" if a marked post does not actually answer your question. This
can be beneficial to other community members reading the thread.
