Passage en paramètre ComObject (Excel) + conversion XLSX

Version imprimable

Bonjour,

Voilà, je dois faire quelques modif' automatiques dans un fichier excel (je récupère un listing CSV, je le convertis en XLSX, et je voudrais après faire quelques modifs.
Alors j'ai réussi à faire fonctionner le premier script de conversion :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 $Excel = New-Object -comobject Excel.Application $Excel.Visible = $False #$Excel.Visible = $True $input_file="C:\Users\metalman\Desktop\fab\test.csv" $output_file="C:\Users\metalman\Desktop\fab\test.xlsx" $xlFixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault $wbk = $Excel.Workbooks.Open("$input_file") $Excel.ActiveWorkbook.SaveAs("$output_file", $xlFixedFormat) $Excel.Workbooks.Close() $Excel.Quit()
1) Je voudrais être sûr du format : [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault génèrera TOUJOURS du XLSX ? Ou c'est parce que je l'ai configuré ainsi dans mon profil ?

2) Je voudrais rendre l'ensemble un peu plus... structuré ! En faisant une fonction, amis ça ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 function MyConvert([System.Object]$excel, [string]$filein, [string]$fileout, [Microsoft.Office.Interop.Excel.XlFileFormat]$format) { $wbk = $excel.Workbooks.Open("$filein") #$b = $a.Workbooks.Add() #$c = $b.Worksheets.Item(1) # #$c.Cells.Item(1,1) = "A value in cell A1." $excel.ActiveWorkbook.SaveAs("$fileout", $format) $excel.Workbooks.Close() } $my_excel = New-Object -comobject Excel.Application $my_excel.Visible = $False #$excel.Visible = $True $input_file="C:\Users\metalman\Desktop\fab\test.csv" $output_file="C:\Users\metalman\Desktop\fab\test.xlsx" $xlFixedFormat = [Microsoft.Office.Interop.Excel.XlFileFormat]::xlWorkbookDefault MyConvert($my_excel, $input_file, $output_file, $xlFixedFormat) $my_excel.Quit()
Me crache :

Citation:

PS S:\> C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1
Impossible d’appeler une méthode dans une expression Null.
Au caractère C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1:3 : 5
+ $wbk = $excel.Workbooks.Open("$filein")
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : (:) [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Impossible d’appeler une méthode dans une expression Null.
Au caractère C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1:10 : 5
+ $excel.ActiveWorkbook.SaveAs("$fileout", $format)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : (:) [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Impossible d’appeler une méthode dans une expression Null.
Au caractère C:\Users\metalman\Desktop\fab\ExcelPowerShell.ps1:12 : 5
+ $excel.Workbooks.Close()
+ ~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : InvalidOperation : (:) [], RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

Alors je pense que c'est le passage du $excel qui fait tout foirer, mais pourquoi ?
Comment puis-je n'ouvrir qu'une seul fois Excel, lancer ma procédure de conversion, et revenir dans le code principal ?

Merci à tous ! :)

24/06/2014, 16h18
Metalman
Problème majeur réglé :

On définie bien une fonction ainsi :
Code:

1 2 3 4 function MyConvert([System.Object]$excel, [string]$filein, [string]$fileout, [Microsoft.Office.Interop.Excel.XlFileFormat]$format) { ... }
Mais on ne l'appelle pas : ~~MyConvert($my_excel, $input_file, $output_file, $xlFixedFormat)~~
On doit faire comme dans certains langages fonctionnels :

Code:

MyConvert $my_excel $input_file $output_file $xlFixedFormat

Sans virgule et avec des espaces !

Bon... bah ça résout déjà ça ! :P
05/10/2022, 12h43
rocketter

Bonjour,

je me permets de déterrer ce vieux topic, je me retrouve exactement dans la situation de l'auteur, j'appele bien ma fonction sans parenthèses, ni virgules, juste des espaces mais j'obtiens malgré tout l'erreur : Impossible d’appeler une méthode dans une expression Null.

J4ai passé en paramètre de la fonction le type Object[] ou [System.Object] comme l'auteur, j'ai même recopié son code mais toujours cette erreur pour moi :(

Bonjour,

Voici comment j'ai fait, ce code date un peu il faudra peut-être faire des améliorations

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Function ConvertArrayToXMLExcel($DataConvert, $NameXML, $WriteExcel=$true){
    $sb = New-Object -TypeName "System.Text.StringBuilder"
    $sb.Append('<?xml version="1.0" encoding="UTF-8"?>') | Out-Null
    $sb.Append('<?mso-application progid="Excel.Sheet"?>') | Out-Null

    $sb.Append('<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"'+"`r`n") | Out-Null
    $sb.Append('xmlns:o="urn:schemas-microsoft-com:office:office"'+"`r`n") | Out-Null
    $sb.Append('xmlns:x="urn:schemas-microsoft-com:office:excel"'+"`r`n") | Out-Null
    $sb.Append('xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"'+"`r`n") | Out-Null
    $sb.Append('xmlns:html="http://www.w3.org/TR/REC-html40">'+"`r`n") | Out-Null

    $headers = $DataConvert | Get-member -MemberType 'NoteProperty' | Select-Object -ExpandProperty 'Name'

    $sb.Append('<Worksheet ss:Name="out_Resultat_Tasks">'+"`r`n") | Out-Null
    $sb.Append('<Table>'+"`r`n") | Out-Null
    $sb.Append('<Row>'+"`r`n") | Out-Null

    foreach($item in $headers)
    {
        $sb.Append('<Cell><Data ss:Type="String">' + $item + "</Data></Cell>`r`n") | Out-Null
    }

    $sb.Append('</Row>') | Out-Null

    foreach($itemDB in $DataConvert)
    {
        $sb.Append('<Row>') | Out-Null

        foreach($itemHeader in $headers)
        {
            $sb.Append('<Cell><Data ss:Type="String">' + $itemDB.$itemHeader + "</Data></Cell>`r`n") | Out-Null
        }  
        $sb.Append('</Row>') | Out-Null
    }
    $sb.Append('</Table></Worksheet>') | Out-Null
    $sb.Append('</Workbook>') | Out-Null
    $sb.ToString() | Out-File .\$NameXML

    if($WriteExcel -eq $true){


        $xlsSpreadsheet = 51
        $Excel = New-Object -Com Excel.Application
        $WorkBook = $Excel.Workbooks.Open((Get-ChildItem .\$NameXML).FullName)
        $WorkBook.SaveAs((Get-ChildItem .\$NameXML).Directory.FullName + "\$($NameXML).xlsx", $xlsSpreadsheet)
        $Excel.Quit()
    }

}

$test = Get-ChildItem ..\* 

ConvertArrayToXMLExcel -DataConvert $test-NameXML "test.xml"-WriteExcel $true

Pour un CSV il faudra faire

$LoadCSV = import-csv .\VotreFichier.csv ...
puis
ConvertArrayToXMLExcel -DataConvert $LoadCSV-NameXML "test.xml" -WriteExcel $true

07/10/2022, 10h13
rocketter

Merci, finalement je m'en suis tiré en mettant un paramètre le chemin d'accès du fichier que je voulais ouvrir et non l'objet COM Excel