Funzioni di Word e Quello di Excel Da Controllare

[A.MaurizioPartecipante A.Maurizio]

Ciao a tutti 
Il mio problema e questo :
Ho creato un progetto ché crea una esatta coppia del foglio di Excel 
Ho perlomeno ; Parte di questi Dati!
Detto questo però mi sorgono dei problemi che vorrei capire perché accadono e come fare per risolverli .
Che sono : 
1) quando nella Cella (F2) Del foglio 1 di excel , vado a prelevare dal menu a tendina la voce ( Word) automaticamente nella cella (H2) mi compare l'estensione del file (Doc)
E fin qui tutto ok .
Dopodiché premi il tasto (Crea Formato File) e dal menu Input digito (word) e successivamente confermo la mia scelta con (Ok) 
da qui il File (Doc) viene creato ed inserito nella sottocartella chiamata (Allegati)
He qui viene il bello : In quanto dopo essersi creato il file (Doc) mi sposta la selezione nel Foglio 2 ; Cosa che io non vorrei che accadesse questo .

2 ) Seguendo le mie indicazioni iniziali per formare il File , Nella cella (F2) vado a cercare la voce (Excel) per voler creare questo formato.
Tale formato viene copiato in una nuova Applicazione di Excel con all'interno tutti i dati della prima Applicazione, ma non non viene salvato e chiuso come succede per il file di (Word).
Per cortesia Riuscireste a Darmi una mani in merito Grazie
Saluti da A.Maurizio

Allegati:

You must be logged in to view attached files.

[oregon oregon]

Non ho capito nulla

 

[Aldo ErcoliniPartecipante Aldo Ercolini Karma: 19 pts]

Ho dato una scorsa veloce e non ho potuto provare in quanto mi mancano dei riferimenti.

Secondo me dovresti modificare questa Macro cosi:

Sub Crea_Formato_In_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, Estensione As String

NomeFile = Foglio1.Range("B2").Value & ""
Estensione = Foglio1.Range("H2").Value & ""

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

For Each sht In ActiveWorkbook.Worksheets

sht.Activate

sht.Range("A4:F31").Copy
oDoc.ActiveWindow.Selection.Paste
ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\Allegati\" & NomeFile & Estensione

'Application.CutCopyMode = False
Foglio1.Range("A4").Select
oDoc.Close
Next sht
Sheets("Foglio1").Select ' Inserisci questa riga
1:
End Sub

[A.MaurizioPartecipante A.Maurizio]

Ciao Oregon 
Allora: Capisco che è un Progetto un pochino articolato , ma lo ripreso e ho tolto via tutte le parti che potevano dare fastidio o confondere le idee ; Ora però basta seguire le indicazioni messe sul foglio per capire meglio il tutto .
Detto questo : Il Progetto ha un programma che non capisco il perché ora cambiando il tutto r facendone una copia più semplificata per voi ora :
1) Uno non mi salva il file anche se deseleziono la voce (.Close) 
2)  Il file di Excel quando si tenta di voler crearne una copia 
Questa si viene creata ; Ma anche questa routine non viene salvata nella sottocartella 
Come invece avviene per il formato PDF 
Tutto qui.
Grazie per i vostri suggerimenti
(P.S) Invio Altro file più ridotto e meno articolato del precedente.

e Ciao a Aldo Ercolini 

Allegati:

You must be logged in to view attached files.

[Autore]

Articoli