settingsログイン
メニュー

エクセルからPDFに変換がしたい

閲覧 24
W# Excelアプリケーションを開始
$excel = New-Object -ComObject Excel.Application
# Excelウィンドウを表示しないようにする
$excel.Visible = $false  
#警告・メッセージを表示しない
$excel.DisplayAlerts = $False


# 現在のフォルダを指定
$path = get-location
$ext = ".pdf"

# 出力先のフォルダを指定
$outputFolder = ".\pdf化"
# フォルダが存在しない場合は作成
if (-not (Test-Path $outputFolder)) {
    New-Item -ItemType Directory -Force -Path $outputFolder
}

# フォルダ内のExcelファイルを取得
$Files = Get-ChildItem -Path $path -Filter *.xlsx
$excelFiles = $Files.FullName

foreach ($excelFile in $excelFiles){
    
    # Excelファイルを開く
    $book = $excel.Workbooks.Open($excelFile)

    #変換対象ファイルをpdfとしてエクスポート
    $book.ExportAsFixedFormat(0, $excelFile)

    #ファイル名に".xlsx"が残ってしまうのでリネーム
    $pdffile =  $excelFile + $ext
    Get-ChildItem $pdffile | Foreach-Object {$newname = $_.Name -Replace ".xlsx",""}
    
    #Move-Itemでリネーム
    Move-Item $pdffile -Destination "$path\pdf化\$($newname)" -Force
    
}

# Excelアプリケーションを終了
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[GC]::Collect()
Write-Host "PDF変換が完了しました。"

では、全てのページがPDF化されてしまいます
シート2のみPDF化にしたいです
何でも相談 6/17 質問 使い方全般

ログインまたはユーザー登録してから回答してください。

Windows(ウィンドウズ)、使い方全般 の企業/事業者/教室/プロの方のホームページの集客、アクセスアップ、SEO対策効果が期待できるリスティングサイト=Ask-itをぜひご活用ください

Ask IT にようこそ。ここではコミュニティメンバーに質問したり、回答を得ることができます。
ITについて質問したい方へ ITについてプロに質問したい方は会員登録後すぐに質問をする事ができます。

プロフェッショナルの方へ 質問に答えていただけるプロフェッショナルの方は下記をご覧下さい

お気づきの点があれば是非お知らせください
...