【VBA】ファイルの列番号取得(Column)

投稿者: | 2023年5月27日
excelアイコン

TextStreamオブジェクトColumnプロパティについてです。

Columnプロパティ

概要

ファイルの現在の文字位置の列番号を返します。

構文

TextStreamObject.Column

VBAサンプル

行末の列番号を取得

まずFileSystemObjectをセットして、FileSystemObjectのOpenTextFileメソッドでForReading(読込モード)に設定して指定したファイルを開きTextStreamオブジェクトが返るのでセットします。

あとはDo Until~LoopでTextStreamオブジェクトのAtEndOfStreamプロパティTrueになるまで、If文とTextStreamオブジェクトのAtEndOfLineプロパティ行の末尾かを判定しながら、行の末尾ではなかったらTextStreamオブジェクトのSkipメソッドで文字をスキップさせて、行の末尾だったら列番号を取得してTextStreamオブジェクトのReadLineメソッドで1行下げ、ファイルの末尾まで繰り返します。

結果

行の末尾の列番号が取得できます。(メモ帳だと改行がわからないので、改行がわかるSakuraエディタを使用しています)

VBA_textstream_columun