Chat GPTでつくったスクリプトや設定の共有とかメモ

文書の過去の版を表示しています。

---

• TEST.xlsxのバックアップを取得し、“YYYYMMDD_TEST.xlsx”という名前で保存する。
• シート「履歴」AB2セルには、日付が記載されています。
• シート「オブジェクト」とCSVファイル「Object.csv」、シート「ポリシ」とCSVファイル「Polisy.csv」を比較し、差分があるシートを削除し、新しいシートを追加します。更新したシート名を変数$UpdateSheetSummaryに格納します。
• シート「履歴」AB2セルに、日付を“YYYY/MM/DD”のフォーマットで入力します。W2セルの値を1増やし、小数点がある場合は切り捨てます。
• 履歴が記載されているC列を確認し、最後に数字が記載されている行を前回の更新行とし、その3行下を今回の更新行とします。
• 更新行のC列にW2セルの値をコピーし、H列にAB2セルの値をコピーします。M列に$UpdateSheetSummaryを記載し、R列に“日付 $UpdateSheetSummary (LF)(LF)“を記載します。
• 最後に、TEST.xlsxを保存します。
• 注意事項:
• シートとCSVの比較はA列からH列を比較してください。
• PowerShellスクリプトには、シートとCSVファイルの比較および更新に関するコードと、最後の数値が記載されている行を見つけるコードが不足しているため、適切なコードに置き換える必要があります。

# Excelモジュールを読み込む
Import-Module ImportExcel

# ファイルパスを定義
$excelFilePath = "TEST.xlsx"
$backupDate = (Get-Content $excelFilePath | Select-Object -ExpandProperty 'AB2').ToString("yyyyMMdd")
$backupFilePath = $backupDate + "_TEST.xlsx"

# 元のファイルのバックアップを作成
Copy-Item $excelFilePath $backupFilePath

# Excelファイルを開く
$excel = Open-ExcelPackage -Path $excelFilePath

# シートとCSVを取得
$sheetHistory = $excel.Workbook.Worksheets['履歴']
$sheetObject = $excel.Workbook.Worksheets['オブジェクト']
$sheetPolicy = $excel.Workbook.Worksheets['ポリシ']
$csvObject = Import-Csv "Object.csv"
$csvPolicy = Import-Csv "Polisy.csv"

# シートとCSVを比較して更新
$UpdateSheetSummary = # A列からH列までのシートとCSVファイルを比較して更新するコード

# 「履歴」シートを更新
$sheetHistory.AB2.Value = (Get-Date).ToString("yyyy/MM/dd")
$sheetHistory.W2.Value = [math]::Floor($sheetHistory.W2.Value) + 1

# C列にRevision、H列にUpdateDate、M列にUpdateSheet、R列にUpdateDetailsがあります
$lastUpdateRow = ($sheetHistory.Cells["C:C"].Where({$_.Value -ne $null}) | Select-Object -Last 1).Start.Row
$updateRow = $lastUpdateRow + 3

$sheetHistory.Cells["C$updateRow"].Value = $sheetHistory.W2.Value
$sheetHistory.Cells["H$updateRow"].Value = $sheetHistory.AB2.Value
$sheetHistory.Cells["M$updateRow"].Value = $UpdateSheetSummary
$sheetHistory.Cells["R$updateRow"].Value = (Get-Date).ToString("yyyy/MM/dd") + " $UpdateSheetSummary (LF)(LF)"

# Excelファイルを保存して閉じる
Close-ExcelPackage $excel -Show

シートとCSVファイルの比較および更新に関するコードの例

# 1. シート「オブジェクト」とCSVファイル「Object.csv」を比較
# CSVファイルを読み込む
$objectCsv = Import-Csv -Path "Object.csv"
$objectSheet = $worksheetObject.UsedRange.Value2

# ヘッダー行の要素を取得し、シート「オブジェクト」の1行目に同じ要素が存在するか確認
$headersMatch = ($objectCsv[0].PSObject.Properties.Name -join ",") -eq ($objectSheet[0] -join ",")

# ヘッダー行が一致した場合、要素の値を比較
if ($headersMatch) {
    $rowsMatch = $true
    for ($i = 0; $i -lt $objectCsv.Count; $i++) {
        # 各行の要素の値が一致するか確認
        if (($objectCsv[$i].PSObject.Properties.Value -join ",") -ne ($objectSheet[$i + 1] -join ",")) {
            $rowsMatch = $false
            break
        }
    }
} else {
    $rowsMatch = $false
}

if (-not $rowsMatch) {
    $UpdateSheetSummary += "・オブジェクト更新"
}

# 2. シート「ポリシ」とCSVファイル「Polisy.csv」を比較
# CSVファイルを読み込む
$polisyCsv = Import-Csv -Path "Polisy.csv"
$polisySheet = $worksheetPolisy.UsedRange.Value2

# ヘッダー行の要素を左から順に8個取得し、シート「ポリシ」のA1列-H1列に記載の要素が同じことを確認
$headersMatch = ($polisyCsv[0].PSObject.Properties.Name | Select-Object -First 8 -join ",") -eq ($polisySheet[0] | Select-Object -First 8 -join ",")

# ヘッダー行が一致した場合、要素の値を比較
if ($headersMatch) {
    $rowsMatch = $true
    for ($i = 0; $i -lt $polisyCsv.Count; $i++) {
        # 各行の左から8個の要素の値が一致するか確認
        if (($polisyCsv[$i].PSObject.Properties.Value | Select-Object -First 8 -join ",") -ne ($polisySheet[$i + 1] | Select-Object -First 8 -join ",")) {
            $rowsMatch = $false
            break
        }
    }
} else {
    $rowsMatch = $false
}

if (-not $rowsMatch) {
    $UpdateSheetSummary += "・ポリシ"
}

最後の数値が記載されている行を見つけるコードの例

$lastUpdateRow = ($sheetHistory.Cells["C:C"].Where({$_.Value -ne $null}) | Select-Object -Last 1).Start.Row

# 開始行を設定（この例ではC10000セルから開始）
$startingRow = 10000
$column = "C"
$lastNumberCell = $null

# C10000セルから逆順に検索を開始
for ($i = $startingRow; $i -gt 0; $i--) {
    # セルの値を取得
    $cell = $sheetHistory.Cells["$column$i"]
    
    # セルの値が数値である場合、検索を終了
    if ($null -ne $cell.Value -and $cell.Value -is [int]) {
        $lastNumberCell = $cell
        break
    }
}

# 最後に数値が記載されているセルの3行下を更新行とする
$updateRow = $lastNumberCell.Start.Row + 3