|
Login
  • Page:
  • 1

TOPIC: Macro copia foglio tra diversi file

Macro copia foglio tra diversi file 5 years 9 months ago #9408

Buonasera ed auguri di buon anno,
vorrei creare una macro che mi permetta di selezionare un file e di copiare, nel file attivo, tutti i fogli.
Io ho impostato la macro come di seguito:


Sub Example1()
Dim intChoice As Integer
Dim strPath As String

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

intChoice = Application.FileDialog(msoFileDialogOpen).Show

If intChoice <> 0 Then

strPath = Application.FileDialog( _
msoFileDialogOpen).SelectedItems(1)


End If
End Sub


Ora, una volta che riesco a selezionare il file non riesco a dire alla macro di copiare tutti i fogli nel file attivo..
Potete darmi una mano?
Grazie
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.298 seconds