pythonで決算プロの『 全上場企業・短信XBRLデータ』のxlsをcsvで保存

ありがとうchatGPT!

import re
import requests
import pandas as pd

url = "http://ke.kabupro.jp/doc/down40.htm"
res = requests.get(url)

# XLSファイルのリンクを取得
match = re.search(r'<a.*href="(.*\.xls)".*>', res.text)
if match:
    xls_link = match.group(1)
    xls_link = "http://ke.kabupro.jp/doc/" + xls_link
    xls_file = requests.get(xls_link)

    with open("down40.xls", "wb") as f:
        f.write(xls_file.content)

    df = pd.read_excel("down40.xls")
    df.to_csv("down40.csv", index=False, encoding='shift_jis', errors='ignore')
else:
    print("XLSファイルのリンクが見つかりません")