{"blog_url":"https://kuku81kuku81.hatenablog.com/","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkuku81kuku81.hatenablog.com%2Fentry%2F2026%2F02%2F16_Excel_VBA_how_to_convert_sheets_into_PDF_files\" title=\"\u3010Excel\u30de\u30af\u30ed\u5b9f\u8df5\u3011\u30b7\u30fc\u30c8\u3092\u307e\u3068\u3081\u3066PDF\u5316\u3059\u308b\u305f\u3081\u306e\u30ac\u30a4\u30c9 - Django Girls and Boys \u5099\u5fd8\u9332\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","blog_title":"Django Girls and Boys \u5099\u5fd8\u9332","author_url":"https://blog.hatena.ne.jp/kuku81kuku81/","type":"rich","url":"https://kuku81kuku81.hatenablog.com/entry/2026/02/16_Excel_VBA_how_to_convert_sheets_into_PDF_files","width":"100%","title":"\u3010Excel\u30de\u30af\u30ed\u5b9f\u8df5\u3011\u30b7\u30fc\u30c8\u3092\u307e\u3068\u3081\u3066PDF\u5316\u3059\u308b\u305f\u3081\u306e\u30ac\u30a4\u30c9","published":"2026-01-16 19:00:00","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/k/kuku81kuku81/20220605/20220605115219.png","provider_url":"https://hatena.blog","description":"\u6708\u6b21\u30ec\u30dd\u30fc\u30c8\u3001\u8acb\u6c42\u66f8\u3001\u4f1a\u8b70\u8cc7\u6599\u2026\u3002\u300c\u30b7\u30fc\u30c8\u3054\u3068\u306bPDF\u5316\u3059\u308b\u306e\u304c\u9762\u5012\uff01\u300d\u3068\u611f\u3058\u305f\u3053\u3068\u306f\u3042\u308a\u307e\u305b\u3093\u304b\uff1f \u5b9f\u306fVBA\u3092\u4f7f\u3048\u3070\u3001\ud83d\udc49 \u8907\u6570\u30b7\u30fc\u30c8\u3092\u4e00\u62ec\u3067PDF\u5316\ud83d\udc49 1\u30d5\u30a1\u30a4\u30eb\u306b\u307e\u3068\u3081\u308b\uff0f\u30b7\u30fc\u30c8\u5225\u306b\u51fa\u529b\u3059\u308b\u3069\u3061\u3089\u3082\u7c21\u5358\u306b\u81ea\u52d5\u5316\u3067\u304d\u307e\u3059\u3002 \ud83d\udd0d \u57fa\u672c\uff1a\u8907\u6570\u30b7\u30fc\u30c8\u30921\u3064\u306ePDF\u306b\u307e\u3068\u3081\u308b Sub ExportSheetsToOnePDF() Dim wsArray() As String Dim i As Long ReDim wsArray(1 To Sheets.Count) For i = 1 To Sheets.Count wsArray(i) = Sheets(i).Name Next i Shee\u2026","provider_name":"Hatena Blog","author_name":"kuku81kuku81","categories":["Excel","VBA","\u30de\u30af\u30ed"]}