Collections et chargement dans Excel (sans csv) ?

Version imprimable

Bonjour,

J'aimerais ne pas faire de fichier pour faire le chargement dans Excel, actuellement j'utilise un fichier csv avec le code ci dessous
$item.FullName = le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
        $excel = New-Object -ComObject excel.application
        $excel.visible = $true
        $workbook = $excel.Workbooks.Add(1)
        $worksheet = $workbook.worksheets.Item(1)
        $worksheet.Name = $BaseSheetName

    $worksheet = $workbook.worksheets[$BaseSheetName]
    $TxtConnector = ("TEXT;" + $item.FullName)
    $Connector = $worksheet.QueryTables.add($TxtConnector, $worksheet.Range("A1"))
    
    $query = $worksheet.QueryTables.item($Connector.name)

    $query.TextFileOtherDelimiter = $Excel.Application.International(5)

    $query.TextFileParseType = 1
    $query.TextFileColumnDataTypes = , 2 * $worksheet.Cells.Columns.Count
    $query.AdjustColumnWidth = 1


    $query.Refresh() | Out-Null

J'aurais bien pensé a un truc dans le style :

Code:

1
2
3
4
5
6
7
8
9
10
 $table = @()
for ($i = 0; $i -lt $Data.Count; $i++) {
    $Table += [PSCustomObject]@{
        A = $Name
        B = "$i"
        Data = $Data[$i]
    }
}
# Comme le code ci-dessus mais en faisant un changement avec :
$TxtConnector = ("TEXT;" + $table)

J'ai bien fait plusieurs tentative mais sans réussite

09/09/2021, 16h03
Laurent Dardenne

Regarde si ce module répond à ton besoin.
09/09/2021, 16h21
troxsa

J'avais effectivement vu ça mais j'ai pas les droits d'installation sur cette machine, il y avait pourtant rien de plus simple que ce module dommage.

je recherche d'autre alternative sur Google mais il parle tous du module Excel ...
09/09/2021, 16h59
Laurent Dardenne

Je n'ai jamais eu ce besoin, dans ce cas je recherche ce qui peut être possible.
Par exemple avec les mots clés: "c# worksheet QueryTables Recordset"

La méthode Querytables peut charger à partir d'un Objet Recordset ADO.
Mais je ne sais pas si cela nécessite une installation de driver...
Voir aussi Datatable vers RecordSet

Je ne sais pas exactement ce que tu essaie de faire, mais tu peux peut-être faire un truc comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
$BaseSheetName = "test"
 
$excel = New-Object -ComObject excel.application
$excel.visible = $true
$workbook = $excel.Workbooks.Add(1)
$worksheet = $workbook.worksheets.Item(1)
$worksheet.Name = "$BaseSheetName"
 
 
$table = @(
    @("A1","B1","C1"),
    @("A2","B2"),
    @("A3","B3","","D3")
)
 
for ($i = 1; $i -le $table.Length; $i++) {
    for ($j = 1; $j -le $table[$i-1].Length; $j++) {
        $worksheet.Cells.Item($i, $j) = $table[$i-1][$j-1]
    }
}

10/09/2021, 09h14
troxsa

Je cherche a faire cette manip pour ne pas polluer la machine de fichiers qui ne serviront certainement plus.
(serveur ayant pas beaucoup de place)

merci Frammrock je vais tester ça
Merci Laurent je vais voir ça (l'article)