Rinominare foglio excel come nome file excel

Question

win 10

Access 2016

buongiorno,

sono convinto che si possa fare quindi sono qui per capire come arrivare a farlo fare al mio db di access:

quando esporto una tabella con

docmd.transferspreadsheet acexport, , "NomeTabella", "C:....." & "NomeFile.xlsx",True

il foglio all'interno del file .xlsx diventa "_NomeTabella"

io invece voglio che sia per esempio "NomeTabellaFoglio"

quale macchinazione si usa per rinominare il foglio del file excel?

Ivan

PS

sto usando questo tono solo per sentirmi più bravo di quello che sono in VBA :)))))

un grazie a tutti come sempre

Answer 1

Penso che il tuo codice dovrebbe essere:

Private Sub Comando8_Click()

Dim objXL As Excel.Application 

Dim objWbk As Excel.Workbook 

Dim objSht As Excel.Worksheet 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "3TInfoCinR", "c:\ToCII\3InfoCinR" 

Set objXL = CreateObject("Excel.Application") 

Set objWbk = objXL.Workbooks.Open("c:\ToCII\3InfoCinR") 

objWbk.Sheets("\_3TInfoCinR").Select 

objWbk.Sheets("\_3TInfoCinR").Name = "Foglio1" 

objWbk.Save 

objWbk.Close 

Set objSht = Nothing 

Set objWbk = Nothing 

Set objXL = Nothing 

End Sub

Nel file excel generato verifica il nome dello sheet (foglio).

Mimmo

Answer 2

ops :)

Answer 3

Hai dimenticato di aggiungere l'errore.

Answer 4

ben ritrovato Mimmo,

grazie come sempre per l'attenzione ai miei problemi esistenziali:)

ho personalizzato il codice:

Function Esporta()

Dim objXL As Excel.Application

Dim objWbk As Excel.Workbook

Dim objSht As Excel.Worksheet

End Function

Private Sub Comando8_Click()

Dim objXL As Excel.Application

Dim objWbk As Excel.Workbook

Dim objSht As Excel.Worksheet

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "3TInfoCinR", "c:\ToCII\3InfoCinR"  

 MsgBox "OK"  

Set objXL = CreateObject("Excel.Application")  

Set objWbk = objXL.Workbooks.Open("c:\ToCII\3InfoCinR")  

MsgBox "OK"  

**objWbk.Sheets("3TInfoCinR").Select**   '*qui si blocca e riporta l'errore che riporto più sotto*  

objWbk.Sheets("3TInfoCinR").Name = "Foglio1"  

objWbk.Save  

objWbk.Close  

    MsgBox "OK"  

Set objSht = Nothing  

Set objWbk = Nothing  

Set objXL = Nothing  
  

MsgBox "OK"

End Sub

Answer 5

Ciao,

devi utilizzare l'automazione. Adatta i nomi del seguente codice:

Option Compare Database

Option Explicit

Dim objXL As Excel.Application

Dim objWbk As Excel.Workbook

Dim objSht As Excel.Worksheet

Function Esporta()

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "tabInformazioni", "c:\ExportSedi\NomeFile" 

Set objXL = CreateObject("Excel.Application") 

Set objWbk = objXL.Workbooks.Open("c:\ExportSedi\NomeFile") 

objWbk.Sheets("tabInformazioni").Select 

objWbk.Sheets("tabInformazioni").Name = "tabInformazioniFoglio1" 

objWbk.Save 

objWbk.Close 

Set objSht = Nothing 

Set objWbk = Nothing 

Set objXL = Nothing 

End Function

Ciao Mimmo