Aprire file excel con vba

Hai un problema con Excel?

Nuova discussione

Aprire file excel con vba
di Tonioac data: 26/01/2011
Ciao a tutti! espongo subito il mio problema, che per molti di voi credo sia una stupidagine ma io non riesco a venirne a capo..

il mio intento è quello di aprire alcuni file excel tramite vb; il file non è predefinito, bensì vi sono diversi file in diverse cartelle all'interno della cartella "archivio". il problema sorge quando devo dichiarare il percorso da cui aprire il file: la prima parte è sempre uguale (ad esempio "c:documents and settingsutentedesktoparchivio") la seconda parte è data dal nome di una cartella che l'utente inserisce in una text, per cui richiamo il valore di text1.text, mentre la terza parte invece è data dai file excel della stessa cartella, elencati in una combobox, per cui richiamo il valore di combo1.text .
il problema è che vb non mi riconosce il concatenamento del percorso fisso + il valore della text + quello della combo.

qualcuno saprebbe indicarmi se c'è un modo per farlo?

grazie mille per coloro che vorranno aiutarmi!
di Ricky53 (utente non iscritto) data: 30/01/2011
Ciao,
invia il codice che hai utilizzato e che non funziona
di Tonioac data: 31/01/2011
Ho usato questo codice:

private sub command1_click()

dim oexcel, oworkbook
dim cliente as string
dim modello as string
dim percorso as string

modello = combo1
percorso = ("c:documents and settings arriconedesktopaltri documenti" + "" + text2 + "" + combo1)

msgbox (percorso)

set oexcel = createobject("excel.application")
set oworkbook = oexcel.workbooks.open(percorso)
oexcel.visible = true

ma puntualmente mi da il debug su open(percorso);
ho provato anche con altri codice, ma l'errore è sempre lo stesso.. pare non riconosca il percorso!

grazie mille x l'aiuto!

di Albatros54 (utente non iscritto) data: 31/01/2011
Prova con questo spezzone di codice vba, da incollare in un modulo di vba di excel, e prova ad adattarlo al tuo vb.
ciao
albatros54

Private Sub m()

Dim oexcel, oworkbook
Dim cliente As String
Dim modello As String
Dim percorso As String
text2 = Application.InputBox("inserisci il nome del file ")

combo1 = Application.InputBox("inserisci il nome del file")
modello = combo1
percorso = ("c:documents and settings	arriconedesktopaltri documenti" & "" & text2 & "" & combo1)
MsgBox (percorso)


Set oexcel = CreateObject("excel.application")
Set oworkbook = oexcel.Workbooks.Open(percorso)
oexcel.Visible = True
End Sub

Problema di sintassi
di Big ronnie (utente non iscritto) data: 31/01/2011
Ciao tonioac,
nel tuo codice non ho visto le assegnazioni a text2 e a combo1 e nel modo in cui sono scritte nel percorso sembrano delle variabili.

se è così il problema è nella sintassi.
inoltre credo che la textbox e la combobox siano nello stesso form del commandbutton,quindi prova a cambiare text2 con me.text2.text e commbo1 con me.combobox1.value(esempio sotto).

fai sapere.ciao big

Tuo codice:

percorso = ("c:documents and settings	arriconedesktopaltri documenti" + "" + text2 + "" + combo1) 

Nuovo Codice:

percorso = ("c:documents and settings	arriconedesktopaltri documenti" + "" + me.text2.text + "" + me.combobox1.value)

Re
di Peppemassa data: 07/02/2011
Questo codice ti permette di aprire il file ovunque sia
diciamo che il file che vorresti aprire si chiama pippo

workbooks.open filename:=activeworkbook.path & "pippo.xls"

tutto qua
saluti
peppe
di Tonioac (utente non iscritto) data: 17/02/2011
Grazie mille! provo subito

Vuoi Approfondire?