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

buongiorno Mimmo,

il tuo codice funziona, ma ci sono un paio di problemini:

1. dovrei ripeterlo per n volte e credo che sia non bello per access quindi espongo meglio ciò di cui necessito più avanti;
2. una volta eseguito il codice, se NON riomuovo il file generato dalla cartella lo stesso codice si blocca e dice "il motore di ricerca non è in grado di trovare l'oggetto "3TInfoCinR" ecc ecc ....

magari se spiego meglio cosa cerco di fare molti problemi si risolverebbero in maniera più semplice, ma dopo la sgridata che ho preso nell'altro posto, chiudo questo perchè mi hai risolto il problema ma ne apro un'altro più specifico :)

grazie ancora

Ivan

Answer 3

Verifica nell'excel il nome del foglio.