Astuces Excel
  1. Astuces Excel
  3. DXL: quels liens passent un module de lien spécifique
Intereting Posts
MACRO qui organise, groupes, contours (besoin d'ajuster la zone à laquelle s'applique la macro) erreur d'exécution dans l'access URL vba Comment éditer des lignes dans Excel-VBA – Test de génération de données Amélioration de la vitesse sur l'export de Datagridview vers Excel avec Interop Excel Exportation de la list jointe de sharepoint à excel Le groupe de cases à cocher appartient de manière conditionnelle en fonction de la valeur d'une autre cellule Comment Excel peut-il faire un formatting conditionnel en fonction d'une comparaison avec la cellule ci-dessus? Comment utiliser l'autofilter VBA avec des caractères generics sur les deux strings et les nombres? Sélectionnez une gamme de cellules à partir de la cellule active Comment supprimer des duplicates qui sont cas SENSITIFS dans Excel (pour des loggings de 100k ou plus)? c # Interop Excel Fermer les instances Mise à jour d'un csv lié par un schéma à partir d'une collection de documents json _xlfn.IFERROR deletion Excel2013 Formule pour transformer les dates en catégories de 12 heures Télécharger datatables Excel dans la database Oracle en utilisant JSP

DXL: quels liens passent un module de lien spécifique

J'ai écrit une fonction DXL qui lit des attributes et des liens sortants à partir d'un module DOORS et l'écrit dans une feuille Excel MS Excel. Ça marche bien.

Maintenant, j'aimerais append ce qui suit à la fonction DXL:

Lorsque j'ouvre un module DOORS et applique un filter -> "Liens", puis je peux dire "passe Linkmodule" et choisissez celui-ci. (J'ai les versions allemandes DOORS, donc peut-être qu'on l'appelle un peu différent)

Ce sont les fonctions que j'ai actuellement: 

void WriteAllOutLinksToExcel (ssortingng sModuleName, ssortingng sBookName, ssortingng sSheetName) { OleAutoObj objExcel = oleGetAutoObject("Excel.Application") OleAutoObj objBook OleAutoObj objSheet = null OleAutoArgs oleArgs = create Object oCur Module mCur bool excelVisible ssortingng sTemp = "" ssortingng sResult = "" ssortingng sNum int iRow = 1 int iCount = 0 int iNum Link lref ModName_ targetMod oleGet(objExcel, "Visible", excelVisible); if (!excelVisible) olePut(objExcel,"visible",true); sResult = oleGet(objExcel,"Workbooks", sBookName); clear oleArgs; put(oleArgs, sSheetName); sResult = oleGet(objExcel, "Sheets", oleArgs, objSheet); mCur = edit(sModuleName,false); if(mCur != null) { View v = view("_ABC"); for oCur in mCur do { // Absolute object no.. sTemp = oCur."Absolute Number"; objCell = ExcelGetCell(objSheet, iRow, 1); olePut(objCell,"Value",sTemp); // Object text sTemp = oCur."Object text"; objCell = ExcelGetCell(objSheet, iRow, 2); olePut(objCell,"Value",sTemp); // Links iCount = null; for lref in oCur -> "*" do { targetMod = target lref; iNum = targetAbsNo(lref); sNum = " " iNum " "; if(iCount == 0) { sTemp = fullName(targetMod) sNum; } else { sTemp = sTemp "\n" fullName(targetMod); sTemp = sTemp sNum; } objCell = ExcelGetCell(objSheet, iRow, 3); olePut(objCell,"Value",sTemp); iCount ++; } iRow ++; } } close(mCur); oleCloseAutoObject (objExcel); }

Je pense à quelque chose comme une instruction if dans la boucle for-me qui dit: "Si linkmodule" abc "est passé, listz les informations" Numéro d'object "et" Texte object "et les liens …

Est-ce possible? J'espère que quelqu'un peut m'aider avec celui-ci?

    Tout ce que vous devriez faire est d'append le paramètre à vos inputs (j'ai ajouté la ssortingng LinkModName ici) puis, au lieu de "*" met LinkModName . Le "*" indique tous les modules de binding, mais vous pouvez le replace par le nom de string de n'importe quel module de lien spécifique que vous souhaitez utiliser. Vous devriez également vous assurer de passer le path complet du module de binding à la fonction.

    Comme: /Project_Name/Folder_Name/Link_Module_Name 

     void WriteAllOutLinksToExcel (ssortingng sModuleName, ssortingng sBookName, ssortingng sSheetName, ssortingng LinkModName) { OleAutoObj objExcel = oleGetAutoObject("Excel.Application") OleAutoObj objBook OleAutoObj objSheet = null OleAutoArgs oleArgs = create Object oCur Module mCur bool excelVisible ssortingng sTemp = "" ssortingng sResult = "" ssortingng sNum int iRow = 1 int iCount = 0 int iNum Link lref ModName_ targetMod oleGet(objExcel, "Visible", excelVisible); if (!excelVisible) olePut(objExcel,"visible",true); sResult = oleGet(objExcel,"Workbooks", sBookName); clear oleArgs; put(oleArgs, sSheetName); sResult = oleGet(objExcel, "Sheets", oleArgs, objSheet); mCur = edit(sModuleName,false); if(mCur != null) { View v = view("_ABC"); for oCur in mCur do { // Absolute object no.. sTemp = oCur."Absolute Number"; objCell = ExcelGetCell(objSheet, iRow, 1); olePut(objCell,"Value",sTemp); // Object text sTemp = oCur."Object text"; objCell = ExcelGetCell(objSheet, iRow, 2); olePut(objCell,"Value",sTemp); // Links iCount = null; for lref in oCur -> LinkModName do { targetMod = target lref; iNum = targetAbsNo(lref); sNum = " " iNum " "; if(iCount == 0) { sTemp = fullName(targetMod) sNum; } else { sTemp = sTemp "\n" fullName(targetMod); sTemp = sTemp sNum; } objCell = ExcelGetCell(objSheet, iRow, 3); olePut(objCell,"Value",sTemp); iCount ++; } iRow ++; } } close(mCur); oleCloseAutoObject (objExcel); }

    J'espère que cela t'aides!