DOMANDA Macro per esportare foglio excel in word

Egerfaust

Utente Attivo
455
55
CPU
i5-750 @3.35 GHz vcore 1.136
Scheda Madre
Gigabyte p55a-ud3 rev1
HDD
1TB WD Caviar Green
RAM
4x2gb Corsair xms3 1600MHz cl9
GPU
Gigabyte 6950 OC 1GB
Audio
Integrata
Monitor
Asus vw228n
PSU
750W
Case
AeroCool vx-e pro
OS
w7, ubuntu 10.10
Ciao a tutti ragazzi,
avrei bisogno di sapere se è possibile (in modo umano) creare una macro che mi permetta di esportare un foglio di lavoro excel in un documento word.
Il foglio ha al suo interno oltre a dati presenti in celle anche delle immagini, delle caselle di testo e un piè di pagina.

Tutto ciò che trovo online mi permette di copiare solamente le varie celle, usandole come stringhe.
Sono riuscito a trovare una macro per esportarlo in PDF, vi allego il codice:

Codice:
Sub SalvaInPDF()
    Dim ws As Worksheet
    Dim strIndirizzo As String
    Dim nomecommittente As String
    Dim myFile As Variant
    Dim strFile As String
    On Error GoTo errHandler
     
    Set ws = ActiveSheet
    
    nomecommittente = Sheets("Generale").Range("C17").Value
     
    'apre la finestra di dialogo per il salvataggio dei file
    'la cartella di default è la stessa della cartella di excel
    strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & nomecommittente _
            & Format(Now(), "_yyyy-mm-dd") _
            & ".pdf"
    strFile = ThisWorkbook.Path & "\" & strFile
     
    myFile = Application.GetSaveAsFilename _
            (InitialFileName:=strFile, _
              FileFilter:="PDF Files (*.pdf), *.pdf", _
              Title:="Seleziona la cartella e inserisci il nome del file da salvare")
     
    If myFile <> False Then
        ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=myFile, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    End If
     
exitHandler:
            Exit Sub
errHandler:
            MsgBox "Non ho potuto salvare il file PDF"
    Resume exitHandler
End Sub

Esiste qualcosa di simile ma che permetta di salvare in docx?

Grazie!
 

Entra

oppure Accedi utilizzando

Discussioni Simili