Astuces Excel
  1. Astuces Excel
  3. Excel chaque utilisation de la memory de la feuille de calcul à l'aide de powershell
Intereting Posts
Longueur de paramètre SQL VBA Erreur lors de la copy de données d'un classur à l'autre Déplacez datatables vers le haut d'une ligne si la ligne précédente est vide dans Excel 2007 Excel 2007 vba addin doit-il être référencé dans des projets qui consumnt les methods? Script Excel VBA pour find un text spécifique Créer un document Excel à partir d'un ContentType dans SharePoint Comment get une adresse de hyperlink à partir d'Excel? Comment appeler une macro excel du service Web .net? Power BI (DAX): nombre distinctif filtré par condition Excel VBA Loop: Copiez les ID dans une list, Collez, Imprimez le PDF pour chaque Convert ctrl Un file délimité vers csv Mettre à jour l'location de la cellule dans Excel une correspondance insensible à la casse dans xpath sur VBA? java.lang.NoClassDefFoundError: org / apache / poi / ss / usermodel / ExtendedColor Besoin d'aide pour ouvrir un autre classur sur le réseau

Excel chaque utilisation de la memory de la feuille de calcul à l'aide de powershell

J'ai un classur Excel qui comporte 10 feuilles de calcul. Je souhaite découvrir la memory utilisée par chaque feuille de calcul Excel à l'aide de Power-Shell. J'ai essayé de charger l'object Com et vérifié les propriétés, mais pas de chance! 

$application = New-Object -ComObject excel.application $wb=$application.workbooks.open("C:\Model_Q.xlsx") $wb.sheets |gm

Une idée de comment le faire?

Ce n'est peut-être pas la réponse que vous searchz parce que ce n'est pas dans PowerShell mais j'ai trouvé une solution assez simple à l'aide de VBA dans Excel, et comme vous n'avez aucune réponse en ce moment, ça vaut la peine! (1) Ouvrez votre feuille de calcul dans Excel et appuyez sur Alt + F11, cliquez avec le button droit sur votre classur et click Insérer> Module. (2) Coller dans le script VBA suivant: 

 Sub WorksheetSizes() Dim xWs As Worksheet Dim Rng As Range Dim xOutWs As Worksheet Dim xOutFile As Ssortingng Dim xOutName As Ssortingng xOutName = "SheetSizesinBits" xOutFile = ThisWorkbook.Path & "\TempWb.xls" On Error Resume Next Application.DisplayAlerts = False Err = 0 Set xOutWs = Application.Worksheets(xOutName) If Err = 0 Then xOutWs.Delete Err = 0 End If With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)) .Name = xOutName .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size") End With Set xOutWs = Application.Worksheets(xOutName) Application.ScreenUpdating = False xIndex = 1 For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> xOutName Then xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=False Set Rng = xOutWs.Range("A1").Offset(xIndex, 0) Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) Kill xOutFile xIndex = xIndex + 1 End If Next Application.ScreenUpdating = True Application.Application.DisplayAlerts = True End Sub

(3) Enregistrez votre classur en tant que classur activé par macro. (4) Fermez l'écran du développeur et appuyez sur Alt + F8. (5) Sélectionnez la Macro que nous avons créée et l'exécutez. Cela créera une nouvelle feuille de calcul et construira un tableau de la taille de chaque feuille de calcul en bits.

Bonne chance!