主页 / computer / 问题 / 1740353
Accepted
zeros
Asked: 2022-09-03 06:49:34 +0800 CST

如何使用 Excel.Application 插入所有文本

  • 772

我有以下文本逐行来自foreach的powershell：

get-content C:\temp\data.txt | where-object {$_}

output:

usuario   nombre    dni  instalacion  sede
dni  JOSE 45 grupo: SI  MURCIA
dni  ANGEL 45 grupo: SI ALMERIA
dni MARIA 56 grupo: SI  BARCELONA
dni M. PILAR 65 grupo: SI  ALBOX
dni M. PAZ 75  grupo: SI MADRID
dni FLOREN  57 grupo: SI MADRID

如何将它插入到 excel 中，以便它经常与 Excel.Application 对象一起插入，而不必放置 powershell 的确切列和行，如下所示：

在此处输入图像描述

powershell

1 个回答

  1. Best Answer

    根据我的评论。这是处理此清理以供使用的一种方法的示例。

    我正在使用Powershell 变量压缩来显示正在写入变量的内容并输出到屏幕，以便立即查看结果的成功或失败。不需要包含功能使用。

    Clear-Host
@'
usuario   nombre    dni  instalacion  sede
dni  JOSE 45 grupo: SI  MURCIA
dni  ANGEL 45 grupo: SI ALMERIA
dni MARIA 56 grupo: SI  BARCELONA
dni M. PILAR 65 grupo: SI  ALBOX
dni M. PAZ 75  grupo: SI MADRID
dni FLOREN  57 grupo: SI MADRID
'@ | Out-File -FilePath 'D:\Temp\UserList.txt'

# Clean-up by planned property and replace with comma
Clear-Host
(
$ExcelReport = (Get-Content -Path 'D:\Temp\UserList.txt') -Replace '\s\s+|[ ]+(?=\d)', ',' -Replace 'dni\s', 'dni,' -replace '\sgrupo:', ',grupo:' -replace 'SI\s', 'SI,' | 
ConvertFrom-Csv | 
Format-Table -AutoSize
)
# Results
<#
usuario nombre   dni instalacion sede     
------- ------   --- ----------- ----     
dni     JOSE     45  grupo: SI   MURCIA   
dni     ANGEL    45  grupo: SI   ALMERIA  
dni     MARIA    56  grupo: SI   BARCELONA
dni     M. PILAR 65  grupo: SI   ALBOX    
dni     M. PAZ   75  grupo: SI   MADRID   
dni     FLOREN   57  grupo: SI   MADRID
#>

# More succinctly  - Clean-up by specific space removal and replace with a comma
Clear-Host
(
$ExcelReport = (Get-Content -Path 'D:\Temp\UserList.txt') -Replace '\s\s+|\s+(?=\d)|(?<=\d)+\s|(?<=[i])+\s|(?<=[SI])+\s', ',' | 
ConvertFrom-Csv | 
Format-Table -AutoSize
)
# Results
<#
usuario nombre   dni instalacion sede     
------- ------   --- ----------- ----     
dni     JOSE     45  grupo: SI   MURCIA   
dni     ANGEL    45  grupo: SI   ALMERIA  
dni     MARIA    56  grupo: SI   BARCELONA
dni     M. PILAR 65  grupo: SI   ALBOX    
dni     M. PAZ   75  grupo: SI   MADRID   
dni     FLOREN   57  grupo: SI   MADRID 
#>


# Convert to true CSV
$ExcelReport = (Get-Content -Path 'D:\Temp\UserList.txt') -Replace '\s\s+|\s+(?=\d)|(?<=\d)+\s|(?<=[i])+\s|(?<=[SI])+\s', ',' | 
Select-Object -Skip 1 | 
ConvertFrom-Csv -Delimiter ',' -Header usuario, nombre, dni, instalacion, sede 
# Results
<#
usuario     : dni
nombre      : JOSE
dni         : 45
instalacion : grupo: SI
sede        : MURCIA

usuario     : dni
nombre      : ANGEL
dni         : 45
instalacion : grupo: SI
sede        : ALMERIA

usuario     : dni
nombre      : MARIA
dni         : 56
instalacion : grupo: SI
sede        : BARCELONA

usuario     : dni
nombre      : M. PILAR
dni         : 65
instalacion : grupo: SI
sede        : ALBOX

usuario     : dni
nombre      : M. PAZ
dni         : 75
instalacion : grupo: SI
sede        : MADRID

usuario     : dni
nombre      : FLOREN
dni         : 57
instalacion : grupo: SI
sede        : MADRID
#>
 

<#
THus enableing member dot refreenceing of properties. for leverageing as needed
in any tool that can read/use CSV files.
#>

$ExcelReport.Count
# Results
<#
6
#>

$ExcelReport | 
Select-Object -Property usuario, nombre
# Results
<#
usuario nombre  
------- ------  
dni     JOSE    
dni     ANGEL   
dni     MARIA   
dni     M. PILAR
dni     M. PAZ  
dni     FLOREN 
#>

$ExcelReport.sede
# Results
<#
MURCIA
ALMERIA
BARCELONA
ALBOX
MADRID
MADRID
#>

    更新：

    根据我的评论 - 这是你应该使用的。同样，您可以使用您选择的任何文件名。

    # Make avaialbe for import into MSExcel
(Get-Content -Path 'D:\Temp\UserList.txt') -Replace '\s\s+|\s+(?=\d)|(?<=\d)+\s|(?<=[i])+\s|(?<=[SI])+\s', ',' | 
Out-File -FilePath 'D:\Temp\UserList.csv' -Force
Get-Content -Path 'D:\Temp\UserList.csv'
# Results
<#
usuario,nombre,dni,instalacion,sede
dni,JOSE,45,grupo: SI,MURCIA
dni,ANGEL,45,grupo: SI,ALMERIA
dni,MARIA,56,grupo: SI,BARCELONA
dni,M. PILAR,65,grupo: SI,ALBOX
dni,M. PAZ,75,grupo: SI,MADRID
dni,FLOREN,57,grupo: SI,MADRID
#>

Import-Csv -Path 'D:\Temp\UserList.csv' | 
Format-Table -AutoSize
# Results
<#
usuario nombre   dni instalacion sede     
------- ------   --- ----------- ----     
dni     JOSE     45  grupo: SI   MURCIA   
dni     ANGEL    45  grupo: SI   ALMERIA  
dni     MARIA    56  grupo: SI   BARCELONA
dni     M. PILAR 65  grupo: SI   ALBOX    
dni     M. PAZ   75  grupo: SI   MADRID   
dni     FLOREN   57  grupo: SI   MADRID 
#>

Start-Process -FilePath 'Excel' -ArgumentList 'D:\Temp\UserList.csv'

    在此处输入图像描述

    更新

    通过 COM 调用 Excel，无需创建单独的 CSV 文件，如上所示或使用变量

    Add-Type -AssemblyName  System.Drawing,
                        PresentationCore,
                        PresentationFramework,
                        System.Windows.Forms,
                        Microsoft.VisualBasic
[System.Windows.Forms.Application]::EnableVisualStyles()

(Get-Content -Path 'D:\Temp\UserList.txt') -Replace '\s\s+|\s+(?=\d)|(?<=\d)+\s|(?<=[i])+\s|(?<=[SI])+\s', ',' | 
Set-Clipboard

$MSExcel         = New-Object -ComObject excel.application 
$MSExcel.visible = $True

[Microsoft.VisualBasic.Interaction]::AppActivate((Get-Process -Name 'Excel').MainWindowTitle)

$NewWorksheet = $MSExcel.Workbooks.Add()
$Worksheet    = $NewWorksheet.Worksheets.item(1) 
$Worksheet.activate()
$Worksheet.Paste()

    然后使用功能区上 MSEcel 数据选项卡上的内置 MSExcel 文本到列功能。

    在此处输入图像描述

    您也可以添加其他代码来执行此操作

    更新

    根据我对了解 MSExcel COM 以及如何处理它的最后评论。你只需要这些行

    $xlRange         = $Worksheet.usedrange
$xlColA          = $Worksheet.range("A1").EntireColumn
$xlColrange      = $Worksheet.range("A1")
$xlDelimited     = 1
$xlTextQualifier = -4142
$xlTextFormat    = 2

$xlColA.texttocolumns($xlRange,$xlDelimited,$xlTextQualifier,$true,$false,$true,$true,$false)

$Worksheet.columns.autofit()

    在此处输入图像描述

    ***总是更新你自己的问题。请不要用您的其他问题更新提供的答案，因为它不允许人们正确遵循它。

    更新答案意味着您正在尝试改进答案。

    一旦超出评论部分允许的范围，您需要更新您的问题或将对话移至与您想继续对话的人的“聊天部分”。***

    根据您的列表评论更新

    如果它来自一个列表，那么您可以执行此操作以清理此数据集，其余代码将是相同的。

    ('usuario   nombre    dni  instalacion  sede
dni  JOSE 45 grupo: SI  MURCIA
dni  ANGEL 45 grupo: SI ALMERIA
dni MARIA 56 grupo: SI  BARCELONA
dni M. PILAR 65 grupo: SI  ALBOX
dni M. PAZ 75  grupo: SI MADRID
dni FLOREN  57 grupo: SI MADRID' -replace '\s+(?=\d)|(?<=\d)+\s|(?<=[i])+\s|(?<=[SI])+\s', ','`
 -replace 'usuario   nombre    dni, instalacion  sede', 'usuario,nombre,dni,instalacion,sede').Trim() |
Set-Clipboard
    • 2

相关问题