Salve , mi sono appena iscritto al forum per chiedere aiuto su un problema che non riesco a risolvere da 2 giorni!
Vi posto il codice che ho scritto, praticamente non deve fare nient'altro che verificare se esiste il file nel percorso specificato e aprirlo, in caso contrario crearne uno nuovo..
Private Sub Form_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If (My.Computer.FileSystem.DirectoryExists _ ' controllo e creazione directory
("C:\Programmi\Prova") = False) Then
My.Computer.FileSystem.CreateDirectory _
("C:\Programmi\Prova")
End If
If (My.Computer.FileSystem.FileExists _
("C:\Programmi\Prova\Database.xlsx") = True) Then 'controlle esistenza file
Cartella.OpenLinks("C:\Programmi\Prova\Database.xlsx")
Else
Programma = CreateObject("excel.application")
Programma.Visible = True
Cartella = Programma.Workbooks.Add
Foglio = Cartella.ActiveSheet
Foglio.Name = "Database1"
Foglio.Cells(1, 1) = "fasdf"
Foglio.Cells(1, 2) = "fasfas"
Foglio.SaveAs("C:\Programmi\Prova\Database.xlsx")
End If
End Sub
quindi se avvio il programma senza che esista il file funziona, ma se il file è già esistente mi da questo errore: "Riferimento a un oggetto non impostato su un'istanza di oggetto."
come posso risolvere?? grazie a tutti!