Moderatori: Anthony47, Flash30005
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 NomeFile As String
Dim Estensione As String
NomeFile = Foglio1.Range("B2").Value & ""
Estensione = Foglio1.Range("H2").Value & ""
Set doc = CreateObject("Word.Document.12") 'New Word.Document
doc.Application.Visible = False
For Each sht In ActiveWorkbook.Worksheets
'sht.Activate
sht.EnableSelection = xlNoSelection
sht.Range("A4:F31").Copy
doc.ActiveWindow.Selection.Paste
ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "\Allegati\" & NomeFile & Estensione
doc.Documents.Close '
Next sht
doc.Quit
1:
End Sub
Ora non mi resta altro che rivedere anche la creazione del formato di Excel
Sub Crea_Formato_In_Excel_V2()
'- Inserire dati E Creare Un Documento In Excel
On Error GoTo 1
Dim Percorso As String
Dim NomeFile As String
Dim daCopiare As String
'
daCopiare = InputBox("Foglio da Salvare?")
'
'percorso completo su cui salvare, ricordarsi la barra inversa alla fine!
Percorso = ThisWorkbook.Path & "\Allegati\"
'cella da cui prendere il nome file
NomeFile = Foglio1.Range("B2").Value & ".xlsx"
'Copia il foglio prescelto...
ThisWorkbook.Sheets(daCopiare).Copy
'...e salvalo
ActiveWorkbook.Save Filename:=Percorso & NomeFile
Workbooks(NomeFile).Close False
'
MsgBox NomeFile & " Salvato "
'Call Immagine_Di_Base
Exit Sub
1:
MsgBox (Err.Description & vbCrLf & "Operazione abortita")
End Sub
Secondo me era piu' probabile che ci fosse qualche carattere spurio(es Foglio 1, con spazio), perche' il nome foglio non e' sensibile alle maiuscolo (cioe' FOGLIO e FoGLio puntano sempre allo stesso foglio)[bastava] semplicemente inserire ( foglio1 ) scritto in piccolo
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 12 ospiti