2018年05月14日

PowerCLI再び・・・(その3)Excel操作に基礎があった!

PowerShellでExcelを操作する - 基礎編 -
https://letspowershell.blogspot.jp/2015/06/powershellexcel.html
https://letspowershell.blogspot.jp/2015/06/powershellexcel-2.html

@
# Excel操作 基礎編

# Excelを操作する為の宣言
$excel = New-Object -ComObject Excel.Application

# 可視化しない
$excel.Visible = $False

# ワークブックを作成
$book = $excel.Workbooks.Add()

# ワークシートを番号で指定し、接続する
$sheet = $excel.Worksheets.Item(1)

# 指定したセルに文字列を入力
$sheet.Cells.Item(2,3) = "有村 架純"
$sheet.Cells.Item(3,3) = "広瀬 すず"


# 名前をつけて保存
$book.SaveAs("E:\20180511_VBA_IE.xlsx")

# Excelを閉じる
$excel.Quit()

# プロセスを解放する
$excel = $null
[GC]::Collect()


A
# Excel操作 セルの操作編2


# Excelを操作する為の宣言
$excel = New-Object -ComObject Excel.Application

# 可視化する $Falseで可視化しない
$excel.Visible = $True

# 既存のExcelファイルを開く
$book = $excel.Workbooks.Open("E:\20180508_VBA_IE.xlsm")

# ワークシートを番号で指定し、接続する
$sheet = $excel.Worksheets.Item(2)

# 範囲B2:B5の内容をテキストとして取得し、配列として変数に格納
$text = @($sheet.Range("B3:B7")).text

# メッセージボックスで変数textの内容を表示
Add-Type -Assembly System.Windows.Forms
[System.Windows.Forms.MessageBox]::Show("科目は $text です。", "結果")

# 範囲B2:C5をコピーし、セルE2に貼り付ける
$sheet.Range("B3:B7").copy($sheet.Range("E3"))

# 上書き保存
$book.Save()

# Excelを閉じる
$excel.Quit()

# プロセスを解放する
$excel = $null
[GC]::Collect()

////////////////////////////////////
Aを改良
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $True
$book = $excel.Workbooks.Open("E:\20180508_VBA_IE.xlsm")
$sheet = $excel.Worksheets.Item(2)

# 範囲B2:B5の内容をテキストとして取得し、配列として変数に格納
$hostname = @($sheet.Range("B3")).text
$cpu_fig = @($sheet.Range("B4")).text
$mem_gb = @($sheet.Range("B5")).text
$disk1_gb = @($sheet.Range("B6")).text
$disk2_gb = @($sheet.Range("B7")).text

Add-Type -Assembly System.Windows.Forms
[System.Windows.Forms.MessageBox]::Show("ホスト名は $hostname です。CPUは $cpu_fig です。メモリは $mem_gb です。ディスクは $disk1_gb です。追加ディスクは $disk2_gb です。", "結果")

$sheet.Range("B3:B7").copy($sheet.Range("F3"))
$book.Save()
$excel.Quit()
$excel = $null
[GC]::Collect()



◎Windows PowerShell実践システム管理ガイド 第2版:円
Windows PowerShell実践システム管理ガイド 第2版 -
Windows PowerShell実践システム管理ガイド 第2版 -

◎Pro PowerShell for Database Developers 2015 :5,723円
Pro PowerShell for Database Developers 2015 -
Pro PowerShell for Database Developers 2015 -


posted by アンドレアス at 07:24| Comment(0) | vi上級 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。