win32comライブラリーを使ったエクセル操作時の最終行取得方法と列挿入方法を教えてください。

Question

win32comライブラリをPythonを使い、エクセル操作しております。
VBAで言うところの最終行取得（Rows.Count)に関しての質問です。
よろしくお願いいたします。

下記の様なコードを書いております。

<test.py>

1 import win32com.client
2 from win32com.client import Dispatch
3 import os

4 path1=os.getcwd()
5 path2="./myExcel_old.xlsx"
6 path3="./myExcel_new.xlsx"

7 xl=win32com.client.Dispatch("Excel.Application")
8 xl.Visible=False

9 path=os.path.join(path1,path2)
10 pathx=os.path.join(path1,path3)

11 wb = xl.Workbooks.Open(path)

12 ws=wb.Worksheets["Sheet2"]
13 ws=activate

14 max_Rows=ws.Rows.Count
15 for i in range (2,max_Rows):
16　　 xl.Cells(i,2).Value=xl.WorksheetFunction.CountIf(xl.Range(ws.Cells(2,1),ws3.Cells(i,1)),ws.Cells(i,1).Value)

17 ws.Columns(1).Insert

18 wb.SaveAs(pathx)
19 wb.Close(SaveChanges=True)

Q1)　
14行目から16行目で、最終行を取得して、CountIFで処理を行い、別ファイル名にて保存すると言うコードになります。
しかし、上記のコードを実行すると、下記のエラーが発生します。
このエラーの意味は何になるのでしょうか？　また、解決方法を教えて頂きたく。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

C:\Users\test_users\Desktop>python test8z3.py
Traceback (most recent call last):
  File "test8z3.py", line 35, in <module>
    xl.Cells(i,2).Value=xl.WorksheetFunction.CountIf(xl.Range(ws3.Cells(2,1),ws3.Cells(i,1)),ws3.Cells(i,1).Value)
  File "<COMObject <unknown>>", line 2, in CountIf
pywintypes.com_error: (-2147352567, '例外が発生しました。', (0, 'Microsoft Excel', '引数の数の誤りがあります。', 'xlmain11.chm', 0, -2146827284), None)

============================

不思議なのは、14行目をコメントアウトして、15行目のmax_Rowsを数値（例えば、300）に置き換えると（つまり、下記の様にすると）、

14 # max_Rows=ws.Rows.Count
15 for i in range (2,300):
16	xl.Cells(i,2).Value=xl.WorksheetFunction.CountIf(xl.Range(ws.Cells(2,1),ws3.Cells(i,1)),ws.Cells(i,1).Value)

ちゃんとCountifが正常に動き、別名でファイル保存もできます。（上記例では、300行まで動きます。エラーも発生しません。）

Q2)
なお、追加質問で恐縮なのですが、17行名の列追加のコードが機能しません。
エラーは出ないのですが、出来上がってきたファイルに、列が追加されておりません。（A列を追加するコードなのですが。）
こちらも、なぜ動作しないのかが分からず、困っております。

教えて頂きたく。
よろしくお願いいたします。

Comments

[y_waiwai]

このままではコードが読めないので、質問を編集し、<code>ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

[yujin1202]

<code>ボタンと言うのがあったのですね。
知りませんでした。
大変、失礼しました。
はい。
編集致しました。よろしくお願いいたします。

Answer 1

14行目～17行目ですが、コメントに従い、下記の様に修正した所、Q1)とQ2)が共に解決しました。

14　t_Rows=ws.UsedRange.Row + ws.UsedRange.Rows.Count
15　for i in range (2,t_Rows):
16　xl.Cells(i,2).Value=xl.WorksheetFunction.CountIf(xl.Range(ws3.Cells(2,1),
ws3.Cells(i,1)),ws3.Cells(i,1).Value)

17 ws3.Columns(1).Insert()

ありがとうございました。

Answer 2

Q2)
なお、追加質問で恐縮なのですが、17行名の列追加のコードが機能しません。
エラーは出ないのですが、出来上がってきたファイルに、列が追加されておりません。（A列を追加するコードなのですが。）
こちらも、なぜ動作しないのかが分からず、困っております。

Insertはメソッドなので、

ws.Columns(1).Insert()

ではないかと。

---

以下追記します。

簡単なプログラムですが、以下で列が追加されたことを確認できました。

import win32com.client as com

# エクセルを起動する
excel = com.Dispatch("Excel.Application")

# ワークブックを開く
book = excel.Workbooks.Open("Book1.xlsx")

# 開いたブックのシートをアクティブにする
sheet = book.Worksheets("Sheet1")

# A列に追加する
sheet.Columns(1).Insert()
# あるいは
# sheet.Columns('A').Insert()
# あるいは
# sheet.Columns.Item(1).Insert()
# あるいは
# cols = sheet.Columns(1)
# cols.Insert()
# cols = None
# いずれでも成功しました
sheet = None

# ワークブックを別名で保存
book.SaveAs('Book1a.xlsx')

# ブックを閉じる
book.Close()
book = None

# エクセルを終了する。
excel.Quit()
excel = None

当方の環境は
Windows 10 Home (64bit)
Python 3.8.8 (64bit)
pywin32 300 (win32com)

Comments

[yujin1202]

早速の御回答をありがとうございます。
私も最初、ご指摘の通りだと思って、そうしていたのですが、全く同じ現象でした。
（つまり、エラーは出ないのですが、出来上がってきたファイルに、列が追加されておりません。）
念のため、今、再度やってみたのですが、同じでした。
よろしくお願いいたします。

[Bull]

プログラムを追記しました。

[yujin1202]

ありがとうございます。
Q1)の最終行の部分を修正した上で、17行目を御指摘頂いた下記に書き直したところ、確かに列追加ができました。
*** ws.Columns(1).Insert() ***
逆に、14行目～16行目の部分で、最終行取得が間違っていると、上のコードがちゃんと動かない事も確認しました。（なぜだろうか？？？）
いつも御支援をありがとうございます。
本件、解決致しました。深謝です。

Answer 3

ws.Rows.Count ≠ データのある最終行
なので、そこを
ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
にすればＯＫでしょう。

「データのある最終行」については、こちら様サイトに詳しいです。

【落とし穴に注意】VBAで最終行の行番号を取得する
https://www.excelspeedup.com/vbalastrow/

Comments

[yujin1202]

ありがとうございます。
max_Rows=ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
とする事で、確かに最終行を取得できました。
ありがとうございました。
リンクもよく読んでみます。