PowerShell：「ファイルを開く⇒Excel内の1列を配列にコピー⇒ファイルを閉じる」を指定ファイルの数だけループさせたい。次にグラフ化させたい。

Question

前提

（例）
TypeScriptで●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

実現したいこと

ここに実現したいことを箇条書きで書いてください。

• PowerShellでエクセルファイルを開きExcel内の特定の1列を範囲指定して配列にコピーしてファイルを閉じる。また新しいファイルを開き、同じ特定の1列を範囲指定して同じ配列に続けてコピーしてファイルを閉じる。ということを指定したファイルの数だけ行いたい。
• [ ]PowerShellで新しくエクセルファイルを開き、上記の配列で格納されたデータ値を基に折れ線グラフを作成できるようにしたい。

発生している問題・エラーメッセージ

• 定義した配列にAのファイルの4列1～5行目、Ｂのファイルの4列目の１～5行目、といったように順番に配列に格納したいが、上書き更新されてしまう。

理想
Ａ　　Ｂ
Ａ１　Ｂ１
Ａ２　Ｂ２
Ａ３　Ｂ３
Ａ４　Ｂ４
Ａ５　Ｂ５

実際
Ａ
Ｂ１
Ｂ２
Ｂ３
Ｂ４
Ｂ５

エラーメッセージ

該当のソースコード

#ファイル指定（開く順）
cd C:\Users\User\Documents\PowerShell_Study\エクセルフォルダ開く

# 対象の Excel ファイル名
$openfile = @("aaa.xlsx","bbb.xlsx")

#エクセルファイルを開く
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false      # 画面上に表示させない
$excel.DisplayAlerts = $true # 警告メッセージは表示する
# 現在のディレクトリの絶対パスを取得
$currentPath = (Convert-Path .)

$readData=@()

foreach($file in $openfile)
{
#Excelファイルを開く
$book = $excel.Workbooks.Open($currentPath + "/" + $file)
#処理対象のシートを取得
$sheet = $book.Sheets(1)

#ファイルのセルを指定コピー
$readData += $sheet.Range("A1:A10")

# ブックを閉じる
$excel.Workbooks.Close()
}

$readData.text
$excel.Quit()

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[Zuishin]

閉じてるからじゃないんですか？

Answer 1

■ブックを閉じる場合は、以下をお試しください。

#ファイル指定（開く順）
cd C:\Users\User\Documents\PowerShell_Study\エクセルフォルダ開く

# 対象の Excel ファイル名
$openfile = @("aaa.xlsx","bbb.xlsx")

#エクセルファイルを開く
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false      # 画面上に表示させない
$excel.DisplayAlerts = $true # 警告メッセージは表示する
# 現在のディレクトリの絶対パスを取得
$currentPath = (Convert-Path .)

$readData=@()

foreach($file in $openfile)
{
#Excelファイルを開く
$book = $excel.Workbooks.Open($currentPath + "/" + $file)
#処理対象のシートを取得
$sheet = $excel.Worksheets.Item(1)           # 修正 $sheet = $book.Sheets(1) → $sheet = $excel.Worksheets.Item(1)

#ファイルのセルを指定コピー
$readData += @($sheet.Range("D1:D5")).Text   # 修正 $readData += $sheet.Range("A1:A10") → $readData += @($sheet.Range("D1:D5")).Text

# ブックを閉じる
$book.Close()                                # 修正 $excel.Workbooks.Close() → $book.Close()
}

$readData                                    # 修正 $readData.text → $readData
$excel.Quit()

Comments

[ponpon10]

ありがとうございます。
うまく動きました！