- 454
- 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:
Esiste qualcosa di simile ma che permetta di salvare in docx?
Grazie!
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!