Ciao a tutti, ho un problema e spero che qualcuno possa aiutarmi.
Sto creando un programma in Visual Basic che, dopo aver eseguito una query di selezione da un database access apre un file excel e vi inserisce tutti questi dati.
Ora, sul mio pc il tutto funziona; anche facendo il pacchetto di installazione funziona tutto. Il problema è che quando installo il programma su altri computer questa stessa funzione mi crea problemi e, dopo tante prove, ho capito anche quale istruzione crea problemi. Vi riporto la parte del codice:
Public FileExcel As Workbook
__________________________________________________ __________________________
Sub ControlloFileExcel(operazione)
If VerifyFile(App.Path & "\" & operazione) Then
'imposto la variabile oggetto FileExcel con il nome del file xls
Set FileExcelTemp = Excel.Workbooks.Open(App.Path & "\" & operazione)
If VerifyFile("C:\" & operazione) Then
Kill "C:\" & operazione
FileExcelTemp.SaveAs ("C:\" & operazione)
Else
FileExcelTemp.SaveAs ("C:\" & operazione)
End If
Set FileExcel = Excel.Workbooks.Open("C:\" & operazione)
If operazione = "Graduatoria.xls" Then
Set CreaGraduatoria = New ClsCreaGraduatoria
Call CreaGraduatoria.RiempiFoglio
Else
Set CreaReportSelezione = New ClsCreaSelezione
Call CreaReportSelezione.RiempiFoglio
End If
Else
MsgBox "Impossibile eseguire il programma" & _
vbCrLf & "Il file " & App.Path & "\" & operazione & " non è stato trovato.", vbOKOnly
End
End If
End Sub
Public Function VerifyFile(FileName As String)
On Error Resume Next
Open FileName For Input As #1
If Err Then
VerifyFile = False
Exit Function
End If
Close #1
VerifyFile = True
End Function
Ora, il problema nasce nella settima riga (Set FileExcelTemp = Excel.Workbooks.Open(App.Path & "\" & operazione))...non ho ancora capito perchè sugli altri pc questa istruzione crea problemi...purtroppo non ricordo che tipo di errore esce però forse sbaglio nell'istanziare l'oggetto...magari esiste un altro modo, nn lo so...
Grazie a tutti quelli che vorranno darmi una mano!
