Importare un range di dati da un file esterno

[JohnB]

Un cordiale saluto a Voi tutti.
Ho il seguente quesito:
In un file esterno, denominato "Serie", ho da A1 a G31 una serie di dati.
Nel file "Master" con un pulsante, se possibile, vorrei importare solo le
ultime 14 righe del range A1-G31 sopracitato nel foglio "Valori_Update" a
partire da B2 fino a H15.

Vi ringrazio fin d'ora.
Ciao
Giovanni

[eliano]

Hai provato con il registratore di macro, così, tanto per cominciare ?

[Bruno Campanini]

"JohnB" <pr...@example.com> wrote in message
news:4c7ffb46$0$31384$4faf...@reader1.news.tin.it...

> Un cordiale saluto a Voi tutti.
> Ho il seguente quesito:
> In un file esterno, denominato "Serie", ho da A1 a G31 una serie di dati.
> Nel file "Master" con un pulsante, se possibile, vorrei importare solo le
> ultime 14 righe del range A1-G31 sopracitato nel foglio "Valori_Update" a
> partire da B2 fino a H15.

================================
Public Sub Test20()
Dim App As Excel.Application, SourceFile As Object
Dim SourceRange As Range, TargetRange As Range
Dim ExternalFileName As String, ExternalSheetName As String

' Definizioni
' -----------------------------------------
ExternalFileName = "D:\Book0.xlsm"
ExternalSheetName = "Serie"
Set TargetRange = [Valori_Update!B2:H15]
' -----------------------------------------

Set App = CreateObject("Excel.Application")
Set SourceFile = App.Workbooks.Open(ExternalFileName)
Set SourceRange = SourceFile.Worksheets(ExternalSheetName).Range("A18:G31")
TargetRange = SourceRange.Value
SourceFile.Close
End Sub
=================================

Bruno

[JohnB]

Grazie Bruno,
funziona tutto alla perfezione.

Grazie ancora e buon fine settimana. Ciao
Giovanni

"Bruno Campanini" <B...@gmail.com> ha scritto nel messaggio
news:4c81203e$0$12124$4faf...@reader4.news.tin.it...