|
Login
  • Page:
  • 1

TOPIC: COPIARE Foglio in altra CARTELLA

COPIARE Foglio in altra CARTELLA 3 years 5 months ago #12385

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 221
  • Thank you received: 4
  • Karma: 5
Ciao
Tramite una UserForm compilo il foglio “Guide”
Questo foglio dovrà essere successivamente consultato, tramite accesso on-line su Box Sync, da alcuni istruttori di guida.

La cartella on line si chiama “CALENDARIO_Ciclomotori.xlsx”
Per cui tramite una macro copio il foglio “Guide” sul foglio1 della cartella “CALENDARIO_Ciclomotori.xlsx”

E fino qui riesco nell’intendo, però mi succede questo:

1) Copio il foglio Guide su CALENDARIO…
2) Salvo e chiudo il CALENDARIO…
3) Mi apre la prima cartella di lavoro
4) Mi chiede se salvarla o meno
5) Dopo aver salvato mi chiude la UserForm lasciando aperta una cartella vuota “EXCEL”

Quest’ultima mi sembra un’anomalia…

E’ possibile far eseguire soltanto i punti 1 e 2 ed evitare che esegua i punti 3, 4 e 5?

La macro è:

Sub CopiaCalendario()
Dim p As String
Dim Mpath As Variant
Cells.Select
Selection.Copy
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx"
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Close
End Sub

Il file di esempio è di dimensioni eccessive, per cui posto il collegamento al DropBox

www.dropbox.com/s/mxqrujn04xag97k/COPIA_...ra_CARTELLA.xls?dl=0

Rugantino
Last Edit: 3 years 5 months ago by rugantino.
The administrator has disabled public write access.

COPIARE Foglio in altra CARTELLA 3 years 5 months ago #12386

  • rugantino
  • rugantino's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 221
  • Thank you received: 4
  • Karma: 5
Ho risolto modificando la Macro in:

Sub CopiaCalendario()
Dim p As String
Dim Mpath As Variant
Cells.Select
Selection.Copy
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End Sub

e nella CommandButton, dopo la macro
ThisWorkbook.Save
Application.Quit

In questo modo si chiudono entrambe le cartelle :angry: ma questo è il meno….

Rugantino
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.555 seconds