Buon giorno a tutti , ho una macro che preleva il testo scritto nella prima cella di un documendo exel e lo inserisce a fine documento in un file word . Esiste un modo per far si che il testo da inserire nel documento word non sia scritto in una cella wxel ma sia il nome della cartella che contiene il documento word?
la mia macro è questa :
Sub Importa()
'Dichiaro le variabili locali
Dim ValoreCella As String
Dim i As Integer
Selection.EndKey Unit:=wdStory
Selection.TypeBackspace
Selection.TypeText Text:="Cosi' deciso in Roma, il "
Selection.TypeParagraph
Selection.TypeText Text:="Depositato in Cancelleria il "
'Creo la nuova applicazione
Set xlApp = New Excel.Application
'Attraverso la nuova applicazione apro il Workbook
'assegnandolo alla variabile oggetto xlBook
Set xlBook = xlApp.Workbooks.Open("C:\macro\a.xls")
'Decido quale foglio utilizzare
Set xlSheet = xlBook.Worksheets("Foglio1")
'Instauro un ciclo per prendere, una alla volta, il
'valore dalle prime 100 celle della prima colonna,
'passandole sul documento Word
For i = 1 To 1
ValoreCella = xlSheet.Cells(i, 1).Value
Application.Selection.TypeText ValoreCella & vbCrLf
Next i
'Chiudo il Workbook e l'Applicazione
xlBook.Close
xlApp.Quit
'Annullo le variabili per liberare le risorse
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
Grazie in anticipo
Registrazione