1

以下のコードを使用して Excel ファイルを読み取ります。最初の行のデータのみを印刷したいので、シート内の行を検索する必要はありません (非空白)。

Set xlBook = GetObject(FilePath)
xlBook.Application.Visible = True
xlBook.Windows(1).Visible = True
xlBook.Application.WindowState = xlMinimized

Dim irow As Integer

For irow = 2 To 101
    MsgBox xlBook.Worksheets(1).Cells(irow, 1).Value
Next
4

1 に答える 1

1

残念ながら私はお勧めしませんUsedRange。

2つの理由

  1. UsedRangeあなたが望むようにあなたを与えませんno of rows in sheet (non blank)。
  2. UsedRange非常に信頼性が低いです。最後の行を見つけたい場合は、このリンクを参照してください。これでもNON Blank Rowsの数は表示されないことに注意してください。

非空白行の数を取得するには、オートフィルターを使用する必要があります。オートフィルター条件として使用<>""し、表示されているセルの行数を使用して空白でない行を取得します。

編集：

このリンクを参照してください

この投稿は、特定のヘッダーを除いて空のすべての列を削除します。ニーズに合わせて変更できると確信しています。

于 2012-09-20T09:33:20.517 に答える