Activation ou sélection dynamique d'une feuille de calcul

Question

Je crée dynamiquement un fichier Excel en utilisant vbs et ExcelXML en javascript. Quelque chose comme ça.

acdbCon.OpenConnection(); 
rs = acdbCon.GetRecordSet(GetQryABC(a,b,c)); 
workbookObj = new WorkbookXML("abc"); 
xmlBody.append(workbookObj.AddWorkbook().join("")); 
xmlBody.append(workbookObj.AddStyleSheet().join("")); 
abcObj = new abcXML(xmlBody, rs, PAGE_HEADER, PAGE_SUB_HEADER,.,.,.); 
xmlBody = abcObj .AddSheet(1, "sheet1"); 
xmlBody = abcObj .AddBlankSheet(2, "sheet2"); 
xmlBody = abcObj .AddSheet(3, "sheet3"); 

xmlBody.append(workbookObj.EndWorkbook()); 
acdbCon.CloseConnection(); 
var fileNameDate = new Date(); 
var fileName=tpInfo.GetDLN() + "_ABC_" + (fileNameDate.getMonth()+1) + "_" + fileNameDate.getDate() + "_" + fileNameDate.getYear(); 
var fh = fso.CreateTextFile("c:\\doc\\" + fileName + ".xls", true); 
document.getElementById("export_msg").innerHTML="File Exported to: c:\\doc\\" + fileName + ".xls"; 
fh.WriteLine(xmlBody.toString()); 
fh.Close(); 
var objExcel; 
objExcel = new ActiveXObject("Excel.Application"); 
objExcel.Workbooks.Open('c:\\doc\\' + fileName + '.xls',false,false); 
var wkSh = objExcel.Workbooks(fileName + '.xls').Worksheets("Sheet1"); 
var rcWkSh = objExcel.Workbooks(fileName + '.xls').Worksheets("Sheet2"); 
var rcWkSh2 = objExcel.Workbooks(fileName + '.xls').Worksheets("Sheet3"); 

Une fois l'Excel créé et enregistré, il est ouvert pour l'affichage. Mon exigence est d'activer dynamiquement/sélectionner/montrer n'importe quelle feuille de mon choix lorsque la feuille est ouverte. Supposons que l'utilisateur souhaite que sheet3 soit actif et sélectionné lorsque le classeur est ouvert.

J'ai essayé ce qui suit
objExcel.Workbooks (nomFichier + '.xls'). Sheets (1) .activate;
objExcel.Workbooks (nomFichier + '.xls'). Sheets (1) .select();
objExcel.Workbooks (nomFichier + '.xls'). Sheets (1) .Activate;
objExcel.Workbooks (nomFichier + '.xls'). Feuilles de travail ("Feuille3"). Activer;
mais rien n'a fonctionné. Toute idée sur la façon dont je peux y parvenir. Merci.

Ravi

Answer 1

Les œuvres suivantes pour moi:

Application.Sheets("Sheet2").Activate 

Answer 2

Utilisez l'enregistreur de macros Excel et effectuer l'opération que vous souhaitez effectuer dans le script d'automatisation puis copiez le code de l'enregistreur génère et utilisation dans votre script.

Sheets("Sheet2").Select