[VBA/OFFICE] Applicativo VBA in Access che esporta in Excel

[antonyo84]

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

[anatroccolo]

Toglimi una curiosità: utilizzi Access, quindi un database relazionale, perchè dovresti salvare i dati dei clienti su file excel o word e non direttamente su tabelle in access???

Ciao

[antonyo84]

in pratica come da richiesta di mio cugino, lo scopo del programmino sarebbe quello di allegare al cliente tutti i documenti a esso correlato, cioè tutte le sue fatture, buste paga, ecc...
loro lavorano solo con word e excel e quindi il programmino dovrebbe esempio, cerca il cliente pincopallino clicca sul pulsante della maschera di word scrive ad esempio la fattura e la salva e questa fattura dovrebbe essere collegata al cliente pincopallino

[gfantuzzi]

io farei un'altra cosa: mi terrei sul db un campo di testo contenente il percorso completo dei files (word, excel o quello che vuole).
Così tuo cugino apre una maschera di ricerca, preme un pulsante, e gli compare la scheda di questo con l'elenco di tutti i files associati, una semplice listbox se vuoi, del tipo:
data | tipo documento | descrizione

basta solo che ti crei un semplice algoritmo per la gestione dei progressivi per tipo di documento, e il gioco è fatto.

[antonyo84]

Originariamente inviato da antonyo84
in pratica come da richiesta di mio cugino, lo scopo del programmino sarebbe quello di allegare al cliente tutti i documenti a esso correlato, cioè tutte le sue fatture, buste paga, ecc...
loro lavorano solo con word e excel e quindi il programmino dovrebbe esempio, cerca il cliente pincopallino clicca sul pulsante della maschera di word scrive ad esempio la fattura e la salva e questa fattura dovrebbe essere collegata al cliente pincopallino

il problema sarebbe creare e associare il file dalla maschera stessa del programma? è fattibile con il tuo metodo? accetto suggerimenti perchè sono al primo applicativo pratico che faccio

se magari mi dettagli con qualke esempio la tua spiegazione

[gfantuzzi]

se mi dai un indirizzo mail ti mando l'applicazione funzionante. ciao

[antonyo84]

antonyo84@hotmail.com

te ne saseri davvero grato

p.s. se usi msn e ti va di aggiungermi ci sentiamo da li, ho l'auto accept quindi puoi sendare anke se non sono al pc


ciao e grazie ancora

[gfantuzzi]

per tutti, l'esempio sarà disponibile per qualche settimana qui

Saluti.

[alka]

Usate i messaggi privati per lo scambio di contatti e riferimenti. :rollo:

[antonyo84]

Originariamente inviato da gfantuzzi
per tutti, l'esempio sarà disponibile per qualche settimana qui

Saluti.

scusa hai ragione nn lo faccio +