ワークシートの有効行数を得るには

解決

---

引き続きWxcelがらみの質問です。
Serbverコンポーネントを使って、ワークシートを開き，任意のシートを選択するところまではできました。選んだシートの最大有効行数は得られるでしょうか？  もちろんまだ入力されていないセルにはヌルが書き込まれています。こういうプロパティはないのでしょうか。やはりぎりぎりループを回して調べるしかないのでしょうか？

編集 削除

---

ExcelWorkSheet1.UsedRange.Rows.Count

Serverコンポーネント
  ExcelApplication
  ExcelWorkBook
  ExcelWorkSheet

上記の３つはExcelでの
  Applicationオブジェクト
  WorkBookオブジェクト
  WorkSheetオブジェクト
とほぼ同等のプロパティやメソッドを持っていますので参考にしてください。

またやりたい作業をマクロ登録を行い，そのソースを解読するという手段もなかなか使えると思います。
（私はほぼこの方法）

編集 削除

---

> またやりたい作業をマクロ登録を行い，そのソースを解読するという手段もなかなか使えると思います。

  これもトライしてみようと思っています。

> ExcelWorkSheet1.UsedRange.Rows.Count

  コンパイルエラーになってしまいました。「'['が必要な場所に'.'があります。キャレットはRowsの前にあります。

編集 削除

---

ExcelApplication1.Connect;

    LCID := GetUserDefaultLCID;
//又はこっち？          LCID := LOCALE_USER_DEFAULT;

    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(
                             ファイル名,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             LCID) as _Workbook);

    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.activesheet as _Worksheet);

    ShowMessage(IntToStr( ExcelWorksheet1.UsedRange[lcid].Rows.Count));

これでどうでしょうか？
※接続方法が私と違ったのでエラーでてました。すいません。

編集 削除

---

>    ExcelApplication1.Connect;
>    LCID := GetUserDefaultLCID;

  LCIDの後ろにキャレットが出て、「'('が必要な場所に':='があります。」となってコンパイルが通りませんでした。

編集 削除

---

っと変数宣言部に以下をたしてください。

var
  lcid: Windows.LCID;

編集 削除

---

何度も済みません。紹介いただいたやり方は、この後やってみます。
で，今苦し紛れにこんなコードを書いてみました。

          i := 1;
          c := 'A' + IntToStr(i);
          while ExcelWorkSheet1.Range[c,c].Value <> '' do begin
            inc(i);
            c := 'A' + IntToStr(i);
          end;

  これを実行すると１回目のループは問題ないのですが。２回目でC='A2'となった時点で「罵詈アントの型変換が正しくありません」となってしまいます。Range['A2','A2']となるはずですから、エラーになる理由がわかりません。これが動作しないとこの後の作業ができないので、困っています。

編集 削除

---

たびたび済みません。LCIDを使った方法はうまく行きましたが、値がまだ書き込まれていない行にもあらかじめ計算式が入っており、そのためにUsedRangeでは正しく未入力の行が見つけられない事がわかりました。ですので，セルAn,Anが空の行を見つけるしかないようです。先の苦し紛れのコードですが、Value <> nullとしたらループは回るようになりましたが、さいごでやはり「バリアントに対する演算が正しくありません」というエラーになってしまいました。

編集 削除

---

by COLOR

 …わかりたくて もがくほど ココロやせて とがってく♪…

「ヘルプ」観たこと無いの？ ⇒バリアントサポートルーチン

編集 削除

---

解りました！  nullとEmptyは別物なんですね。ありがとうございました。

編集 削除

---

一応解決したコードを書いておきます。

          i := 1;
          while not VarIsEmpty(ExcelWorkSheet1.Range['A'+IntToStr(i),'A'+IntToStr(i)].Value) do begin
            inc(i);
            Form1.Update;
            StatusBar1.SimpleText := '解析中…' + IntToSTr(i);
          end;
          dec(i);

  これでExcelのワークシートの記入済みの行数が数えられました。みなさんいろいろありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する