Visualizzazione dei risultati da 1 a 10 su 11

Hybrid View

elemiah copiare foglio excel in nuova... 04-10-2007, 00:58
claudio2002 ciao a tutti sono nuovo e... 24-02-2015, 20:29
claudio2002 Probabilmente sto' scrivendo... 02-03-2015, 12:55
LeleFT @claudio2002: sono passati... 02-03-2015, 19:11
icecube_HT Re: copiare foglio excel in... 04-10-2007, 15:56
elemiah Grandissimo, proprio quello... 04-10-2007, 18:07
icecube_HT Non credo si possa... 04-10-2007, 18:24
elemiah Grazie, di tutto. Se ci... 04-10-2007, 21:05
elemiah Ciao, rieccomi dopo avere... 04-10-2007, 22:34
icecube_HT Non sapevo che VBA esponesse... 05-10-2007, 14:44
furly Scusate se mi intrometto, ma... 15-11-2007, 14:04
  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2007
    Messaggi
    4

    copiare foglio excel in nuova cartella

    Ciao a tutti, spero qualcuno mi possa aiutare, ho cercato in lungo e largo ma non trovo quello che mi serve.

    Ho una cartella excel (cartel1) con 12 fogli, al termine del lavoro svolto su un foglio qualsiasi dei 12, mi servirebbe tramite VBA riuscire a salvare il lavoro creando e salvando una nuova cartella (cartel2) che contenga solo il foglio attivo della cartella (cartel1) e possibilmente senza macro, o link di riferimento.

  2. #2
    ciao a tutti sono nuovo e capisco poco di VBA ...ho copiato i codici di cui sopra e li ho adattati alle mie necessita',pero' non riesco a fare in modo che :
    il foglio attivo sia copiato avendo la possibilita' di dargli un altro nome file
    fare in modo che non mantenga i collegamenti delle formule presenti nei fogli e neanche le macro ...
    E' Possibile ????
    Grazie a chiunque voglia darmi una dritta
    Questo e' il codice che ho rappezzato dal vs. forum (FUNZIONA ma copia tutto compreso collegamenti )
    Dim VBC As Object
    Dim p As String

    Sub CopiaFoglio()

    ' (1)...
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = DDir '<<< Filtro per nome
    .Title = "Scegli la directory per il foglio " & ActiveSheet.Name
    .Show
    If .SelectedItems.Count = 0 Then 'directory non scelta
    MsgBox ("Scelta non effettuata, procedura abortita"): Exit Sub
    End If
    DDir = .SelectedItems(1) & "\"
    End With
    ' (2)...
    NewFName = DDir & FPrefix & ActiveSheet.Name & ".xlsx"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=NewFName
    ActiveWorkbook.Close


    With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
    If VBC.Type = 100 Then
    With VBC.CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
    End With
    End If
    Next VBC
    End With
    End Sub

  3. #3
    Probabilmente sto' scrivendo nel posto sbagliato .....ma se qualcuno ci capita ......potrebbe essere utile a tutti ....
    ho trovato una modifica che permette di copiare un singolo foglio di excel 2010 e salvarlo in una directory ....senza copiare anche tutti i collegamenti ai vari fogli di origine !!!! FUNZIONA




    MACRO FUNZIONANTE COPIA SINGOLO FOGLIO EXCEL SENZA FORMULE RIPORTANDO TUTTI I DATI DI TESTO (PERFETTO)



    Dim VBC As Object
    Dim p As String

    Sub CopiaFoglio()

    ' Seleziona la cartella destinazione in DDir
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = DDir '<<< Filtro per nome
    .Title = "Scegli la directory per il foglio " & ActiveSheet.Name
    .Show
    If .SelectedItems.Count = 0 Then 'directory non scelta
    MsgBox ("Scelta non effettuata, procedura abortita")
    Exit Sub
    End If
    DDir = .SelectedItems(1) & "\"
    End With

    'Copia il foglio in un'altro al volo
    'Converte tutte le formule del foglio nel
    'valore al momento calcolato
    ActiveSheet.Copy
    Cells.Select
    Selection.Copy
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select

    ' Salva il foglio
    NewFName = DDir & FPrefix & ActiveSheet.Name & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=NewFName
    ActiveWorkbook.Close

    With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
    If VBC.Type = 100 Then
    With VBC.CodeModule
    .DeleteLines 1, .CountOfLines
    .CodePane.Window.Close
    End With

    End If
    Next VBC
    End With
    End Sub


    cIAO A TUTTI

  4. #4
    Moderatore di Programmazione L'avatar di LeleFT
    Registrato dal
    Jun 2003
    Messaggi
    17,320
    @claudio2002: sono passati più di 7 anni dall'ultimo intervento in questa discussione... non risollevare discussioni oramai morte e sepolte. Apri una nuova discussione, eventualmente linkando questa come riferimento.

    PS: il codice va postato all'interno degli appositi tag [CODE] .. [/CODE] per mantenerne indentazione e formattazione.

    Chiudo questa discussione.


    Ciao.
    "Perchè spendere anche solo 5 dollari per un S.O., quando posso averne uno gratis e spendere quei 5 dollari per 5 bottiglie di birra?" [Jon "maddog" Hall]
    Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.