Information générale
Catégorie:
COM/DCOM et OLE Automation
Titre:
Change Excels CodeName property
I am tring to change the CodeName of an excel WorkSheet.
I found this example for VBA on the web, but I am unable to get it to work.
Sub RenameCodeName(oWks As Sheet, sNewName As String)
oWks.Parent.VBProject.vbComponents(oWks.CodeName).Properties("_CodeName") = sNewName
End Sub
Example:
oExcel = CreateObject("Excel.Application")
oExcel.WorkBooks.OPEN("TestFile.xls")
*-- File contains a worksheet called "Sheet1"
oExcel.sheets("Sheet1").COPY(oExcel.Worksheets("Sheet1"))
lcTempCopySheet = "Sheet1 (2)"
oExcel.sheets(lcTempCopySheet).NAME = "ReNamedSheet"
oExcel.Sheets("ReNamedSheet").SELECT
oWks = oExcel.ActiveSheet
oWks.Parent.VBProject.vbComponents(oWks.CodeName).Properties("_CodeName") = "ReNamedCode" && generates an error
*-- The error that I am getting is Function argument value, type, or count is invalid
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement