salve raga, mi servirebbe un po di aiuto, in pratica sto facendo un programmino in acces 2003 per mio cugino commercialista, in poche parole il programmino dovrebbe tenere in ordine i documenti relativi a tutti i clienti dello studio, quindi creare un file .doc o .xls e associarli al cliente, in modo da avere un anagrafica cliente e tutti i doc ad essi correlati, ho scritto un po di codice all'interno di un modulo di access anche se non sono molto padrone del linguaggio, ve lo posto qui:

Dim wordApp As Object
Dim wordDoc As Object
Dim blOpen As Boolean
On Error Resume Next
blOpen = True
Set wordApp = GetObject(, "Word.Application")
If Err.Number = 429 Then
Set wordApp = CreateObject("Word.Application")
blOpen = False
Err.Number = 0
End If
On Error GoTo gestErrori
Set wordDoc = wordApp.Documents.Add()

intero = 1
While (intero)
stouse = InputBox$("Dammi il nome del file")

If Len(Trim(stouse)) = 0 Then
intero = intero - 1
Exit Sub

Else

'intero = intero - 1
If Len(Dir("E:\" & stouse & ".doc")) = 0 Then

With wordApp
.Visible = True
.Activate
.Selection.Style = wordDoc.Styles("Titolo 1")
.Selection.TypeText "Prova Prova Prova ...."
.Documents(wordApp.Documents.Count).SaveAs "E:\" & stouse & ".doc"


Exit Sub

End With
End If



MsgBox "Esiste un file con lo stesso nome, sceglierne un altro"
'Exit Sub
End If
Wend

'End If

If Not blOpen Then
wordDoc.Close savechanges:=True
wordApp.Application.Quit
End If
esci:
Set wordDoc = Nothing
Set wordApp = Nothing
Exit Sub
gestErrori:
MsgBox Err.Number & " - " & Err.Description
GoTo esci

End Sub


in pratica questo codice crea un file .doc di word chiedendo il nome del file da inputbox, ora ho provato fare lo stesso con excel,

ho provato a cambiare Set wordApp = GetObject(, "Word.Application")
mettendo Set wordApp = GetObject(, "Excel.Application")

ma non funziona


poi 1 ultima cosa forse la + importante


dovrei provare a salvarmi il percorso del file in questione nel database in modo da associare i file ai clienti cui appartengono, avete qualke idea su come fare?



vi chiedo un po di aiuto in attesa di alcuni manuali che dovrebbero arrivarmi per posta :P


vi ringrazio anticipatamente per un'eventuale risposta

e complimentoni per il forum

cordiali saluti