Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
WorkbooksOpen
- Hai un problema con Excel?
Workbooks.Open
di Toti (utente non iscritto) data: 06/10/2014 13:47:12
Salve. Come si deve modificare questo rigo di codice affinché invece di mettere il percorso del file mettiamo ad esempio il valore della cella B12 (dove naturalmente c'è il percorso dei file):
Workbooks.Open ("C:UserDesktopLavoro")
Workbooks.Open [B12] non va bene.
di Grograman data: 06/10/2014 14:58:17
A parte che nemmeno la prima delle due soluzioni può andare bene, visto che per applicare il metodo "open" devi indicare un file e non un percorso
cit: "Sintassi
espressione.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
espressione Variabile che rappresenta un oggetto Workbooks."
La sintassi [B12] fa comunque riferimento all'oggetto Range con coordinate B12, non al suo contenuto in senso specifico.
Quindi puoi scrivere:
Workbooks.Open Range("B12").text & "nomefiledaaprire" O con una variabile stringa: dim sFile as string sFile = Range("B12") & "ilmiofiledaaprire" workbooks.open sFile
di Toti (utente non iscritto) data: 06/10/2014 15:37:31
Grazie della risposta. Siccome sto navigando da cell non ho la possibilità di fare copia e incolla ed ho scritto qualcosa in meno, ora riscrivo il rigo completo interessato:
Set NewWK = Workbooks.Open ("C:UserDesktopLavoroRegistro.xls")
di Toti (utente non iscritto) data: 06/10/2014 19:37:27
Quindi come va modificato?
di Toti (utente non iscritto) data: 09/10/2014 00:53:18
di Zer0Kelvin data: 09/10/2014 01:07:22
Ciao.
Non devi fare null'altro che sostituire la stringa col range.
Se la cella B12 contiene la stringa C:UserDesktopLavoroRegistro.xls
Set NewWK = Workbooks.Open (Range("B12"))
di Toti (utente non iscritto) data: 09/10/2014 10:15:35
Ok, funziona. Grazie
- Vuoi Approfondire?
