Python入門
エクセルを操作する（pywin32:win32com）

import win32com.client


#すでにExcelが起動されている場合はそのタスクが使われる
#エラー終了するとタスクは残ります
xl = win32com.client.Dispatch("Excel.Application")
#動いている様子を見てみる
xl.Visible = True


#ブック追加
wb = xl.Workbooks.Add()


#シート追加
ws = wb.Worksheets.Add()


#シート名変更
ws.Name = "練習1"


#不要シート削除
xl.DisplayAlerts = False #無くても良いようだが
for sh in wb.Worksheets:
    if sh.Name != ws.Name:
        sh.Delete()


# セルに値を設定
for i, cell in enumerate(ws.Range("A1:B5")):
    cell.Value = i


#セル値を2次元配列で取得：タプルで取得される
ary1 = ws.Range("A1:B5").Value
print(f"{ary1=}")


#セルに入れるために2次元タプルを2次元リストに変換
ary2 = [[c for c in r] for r in ary1]
print(f"{ary2=}")


#2次元配列の値を2倍
for r, row in enumerate(ary2):
    for c, col in enumerate(row):
        ary2[r][c] = col * 2


#2次元配列をセルに入れる
ws.Range("A1:B5").Value = ary2


#Rangeのコピー
ws.Range("A1:B5").Copy(Destination=ws.Range("D1"))


#セルの削除
ws.Columns(5).Delete()


#セルの削除
ws.Range(ws.Cells(2,4),ws.Cells(4,4)).Delete(Shift=-4162) #-4162=xlUp


#罫線設定
ws.Range("A1:B5").Borders.LineStyle = 1


#表示形式
ws.Range("B1").NumberformatLocal = "0.0%"


#フォント
ws.Range("A1").CurrentRegion.Font.Bold = True
ws.Range("A1").CurrentRegion.Font.Size = 14
ws.Range("A1").CurrentRegion.Font.Color = 0x0000FF #赤


#その他のRangeのプロパティ・メソッドの確認
ws.Rows(3).Hidden = True
ws.Range("A1:B5").EntireColumn.AutoFit()


#これ以降は出力シートを変更
ws = wb.Worksheets.Add()
ws.Name = "練習2"


#以降の結果をセルに出力するので：セル出力には2次元配列が必要
titles = (("Sum",),
          ("CountIf",),
          ("Match",),
          ("VLookup",),
          ("Range(""A1"")",),
          ("Range(""A1:B5"")",),
          ("Range(Cells,Cells)",),
          ("UsedRange",),
          ("CurrentRegion",),
          ("SpecialCells",),
          ("End(xlUp)",),
          ("Offset(1, 1)",),
          ("Offset(2, 2)",),
          ("Offset(3, 3)",),
          ("Resize(2, 2)",),
          ("Resize(3, 3)",),
          ("Address(0, 0)",),
          ("InputBox",))
ws.Range("A1:A18").Value = titles


#WorksheetFunction
ws.Range("B1").Value = xl.WorksheetFunction.Sum(ws.Range("A1:A5"), ws.Range("B1:B5"))
ws.Range("B2").Value = xl.WorksheetFunction.CountIf(ws.Range("A1:B5"),">10")
try: #検索値が無い場合はエラーになるので
    ws.Range("B3").Value = xl.WorksheetFunction.Match("Match", ws.Range("A:A"), 0)
except Exception as e:
    #タプルの入れ子かつ数値文字混在なのでちょっと面倒です。
    ws.Range("B3").Value = ",".join([str(x) for x in e.args[2]])
try:
    ws.Range("B4").Value = xl.WorksheetFunction.VLookup("VLookup", ws.Range("A:A"), 1, False)
except Exception as e:
    ws.Range("B4").Value = ",".join([str(x) for x in e.args[2]])


#Offset：1ずれている?、承知して使うのは怖い気がする
ws.Range("B12").Value = ws.Range("A1").Offset(1, 1).Address
ws.Range("B13").Value = ws.Range("A1").Offset(2, 2).Address
ws.Range("B14").Value = ws.Range("A1").Offset(3, 3).Address


#Resize：これはおかしいので使えない
ws.Range("B15").Value = ws.Range("A1").Resize(2, 2).Address
ws.Range("B16").Value = ws.Range("A1").Resize(3, 3).Address


#Addressに引数が指定できない?：'str' object is not callable
try:
    ws.Range("B17").Value = ws.Range("A1").Address(False, False)
except Exception as e:
    ws.Range("B17").Value = str(e)


#InputBox：
ws.Range("B18").Value = xl.InputBox("入力してください。")


#ブックを保存：相対パスはExcel.Applicationから見た位置になります。
import os
wb.SaveAs(os.getcwd() + "/test.xlsx") #.pyと同ディレクトリ
wb.Close(SaveChanges=True)


#他のブックが開いていなければExcelを終了
if xl.Workbooks.Count == 0:
    xl.quit()

import win32com.client
import os


xl = win32com.client.Dispatch("Excel.Application")
xl.Visible = True


wb = xl.Workbooks.Open(Filename=os.getcwd() + "/Book1.xlsm", ReadOnly=1)
xl.Run("Book1.xlsm!SampleMacro")


wb.Close(SaveChanges=False)
if xl.Workbooks.Count == 0:
    xl.quit()