Come De selezzionare il Foglio di Excel una Volta Copiato i Dati

[A.MaurizioPartecipante A.Maurizio]

Ciao a Tutti il mio problema e questo
Su di un foglio di Excel sto creando una procedura che mi copia i dati da una serie di Celle e li trasporta in un nuovo foglio di Word; E fin qui tutto ok
Per fare questo ho creato questa procedura:

Sub Copy_Da_Excel_A_Word()
On Error GoTo 1
Dim ctr As Integer
Dim doc As Object
Dim tbl As Object
Dim sht As Excel.Worksheet

Dim oDoc As Word.Document
Dim oApp As Word.Application
Dim NomeFile As String

NomeFile = Foglio1.Range("K1").Value

Set doc = CreateObject("Word.Document") 'New Word.Document
doc.Application.Visible = False

For Each sht In ActiveWorkbook.Worksheets

sht.Activate

sht.Range("A1:I25").Copy
doc.ActiveWindow.Selection.Paste
ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\Allegati\" & Range("K1").Value & ".docx"
doc.Close
Next sht

1:
Foglio1.Range("K1").Select
End Sub

Ora però quello che vorrei sapere sarebbe questo:
Visto che nello svolgere di questa procedura giustamente il codice Seleziona la Parte da me interessata dal foglio di Excel
Come si fa una volta creato il tutto sul foglio di Word
A dire ad excel che deve togliere la selezione !
Tutto Qui !
Grazie per Tutto L'aiuto che vorrete darmi in merito 
Saluti da A.Maurizio

[patelModeratore patel Karma: 51 pts]

Se ho capito bene cosa intendi per selezione

Application.CutCopyMode = False

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel 
Era proprio quello che mi hai suggerito tu
Cioè : Application.CutCopyMode = False

In quanto avevo l'esigenza di togliere la selezione creata dalla mia procedura eseguita sul foglio di excel
Una volta che ho traslato tutti i suoi dati nel nuovo foglio di Word appena creato.
E visto ché con molta fatica sono riuscito a salvare il tutto nella mia sottocartella di lavoro
Mi sarebbe piaciuto togliere la selezione creata sul foglio di excel , visto che incontrava la procedura (Copy)
Che senza il tuo suggerimento continuava ad essere attivo 
Ora però e tutto ok 
Grazie infinita Saluti da A.Maurizio

[A.MaurizioPartecipante A.Maurizio]

Ciao a Tutti
rima di procedere chiedo conferma su un altro quisito che vorrei capire il perché mi da una cosa anziché un altra.
Ma pur sempre inerente allo stesso progetto.
Tutto ciò per non creare malumori o scompiglio a voi del Forum.
Pertanto Posso inserirlo in questo Contesto
Ho devo aprire un altro Post ?
Attendo Vostre Delucidazioni in merito Grazie

[patelModeratore patel Karma: 51 pts]

Se l'argomento non ha niente a che fare col titolo apri una nuova discussione

[A.MaurizioPartecipante A.Maurizio]

Ciao Patel grazie per la tua delucidazione in merito 
Però nel frattempo provando a rivedere il tutto mi sono accorto dove stavo sbagliando ; Pertanto Apportato le dovute modifiche ora funziona tutto a meravigli anche in questo caso.
Mi spiego meglio :
Sempre sullo stesso progetto inserito nel mio primo post
Stavo cercando di creare in modo Automatico o Autonomo dei file del Tipo (Word/PDF/Excel)
partendo da un unico foglio di excel
E visto che fino ad ora ero riuscito a creare ogni fine messo a sua volta nella sotto cartella chiamata (Allegati) 
Il File in PDF veniva chiamato semplicemente (1) e non (1.Pdf) come da me inserito in una determinata cella del foglio di excel (di base).
Pertanto dopo ripetute prove, mi sono accorto che :

    Percorso = ThisWorkbook.Path & "\Allegati\"
    dati.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Percorso & NomeFile & Estensione, _
    Quality:=xlQualityStandard, OpenAfterPublish:=False
    MsgBox "Copia PDF Salvata Con Successo!", vbInformation, "Avviso di notifica"

Subito dopo il termine ("\Allegati\") io inizialmente avevo Inserito anche L'estensione
Pertanto non ho ancora capito il perché , ma togliendo tale codice di tipo (String) Il Tutto mi funziona perfettamente bene anche in questo caso.
Tutto qui
Scusatemio per la mia divulgazione in merito , ma era doveroso farvi sapere il tutto 
Grazie per la vostra pazienza 
Saluti e Buona Serata a tutti da A.Maurizio

[Autore]

Articoli