Documento word

Hai un problema con Excel?

Nuova discussione

Documento word
di Grace77 data: 18/01/2010
Ciao a tutti.

ho dato uno sguardo al sito. lo trovo molto interessante.

ho un problema: è possibile richiamare (visualizzare e leggere) un file word mediante una macro associata ad un pulsante?
sono riuscita solamente a trovare le istruzioni per aprire un altro file excel.

grazie in anticipo per l'aiuto.

ciao

di Maxxim (utente non iscritto) data: 18/01/2010
Ciao
ho questo codice se ti può stare bene.

metti un button sul tuo foglio
e metti il codice che ti posto.

in caso vuoi mettere un pulsante metti la macro
postata più sotto, in un modulo e richiamala dal
pulsante.

spero di esserti stato di aiuto.

ciao

Private Sub CommandButton1_Click()
FileDaAprire = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FileDaAprire = False Then Exit Sub
Dove = InputBox("SCRIVI L'INDIRIZZO DELLA CELLA DA DOVE INIZIARE A IMPORTARE")
If Dove = "" Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileDaAprire & "", Destination:=Range(Dove))
.Name = FileDaAprire
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierSingleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub


Sub miofile()
FileDaAprire = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If FileDaAprire = False Then Exit Sub
Dove = InputBox("SCRIVI L'INDIRIZZO DELLA CELLA DA DOVE INIZIARE A IMPORTARE")
If Dove = "" Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileDaAprire & "", Destination:=Range(Dove))
.Name = FileDaAprire
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierSingleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

di Enzo (utente non iscritto) data: 19/01/2010
L'istruzione posta qui sotto in pulsante in un file excel ti consente di richiamare un file word e di aprirlo.
fai sapere se ti e' stata di aiuto.

p.s.
l'istruzione cambiando dei parametri ti consente di aprire file di altre applicazioni tipo file pdf etc
se al posto di open inserisci print apre il file e lo stampa

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub apri_file_word()
On Error Resume Next
FILEWORD = Application.GetOpenFilename("WORD FILES (*.DOC), *.DOC", , "SELEZIONA IL FILE WORD DA APRIRE")
If FILEWORD = False Then Exit Sub
Dim X As Long
X = ShellExecute(0, "OPEN", FILEWORD, "", "", 1)
End Sub

Docento word 2
di Grace77 (utente non iscritto) data: 19/01/2010
Grazie dell'aiuto.

ma non è possibile aprire direttamente un file word (quello a cui vorrei collegarmi premendo il pulsante che associo alla macro) senza aprire la finestra della scelta del file da aprire?

ciao a tutti.

di Enzo (utente non iscritto) data: 19/01/2010
In questo caso lui parte in automatico
aprendo un file che e' posto in c e si chiama pippo
sostituisci a fileword il percorso ed il nome del file e il gioco e' fatto
bye

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub apri_file_word()
On Error Resume Next
FILEWORD = "C:PIPPO.DOC"
Dim X As Long
X = ShellExecute(0, "OPEN", FILEWORD, "", "", 1)
End Sub

di Enzo (utente non iscritto) data: 19/01/2010
Solo un consiglio
molte volte partendo da una istruzione e cercando di fare delle prove si puo' arrivare ad una soluzione
basta volerlo
bye
Documento word
di Grace77 (utente non iscritto) data: 19/01/2010
Grazie dell'aiuto.

l'errore che commettevo non riuscivo ad individuarlo perchè quando indicavo il nome del file lo copiavo dalle propietà del file (con le oppurtune aggiunte) invece di scriverlo direttamente.

grazie.

ciao, ciao

Vuoi Approfondire?