Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）

2016/01/04

Seek 関数

Open ステートメントで開いたファイル内の現在の読み取り位置または書き込み位置を取得します。

【書式】

＜取得＞
Seek ( filenumber )

引数・戻り値

filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
戻り値・・・長整数型（Long）の値（ 1 ～ 2,147,483,647（= 2^31 ? 1）の範囲の数）。
Open ステートメント をランダムアクセスモード（Random）で開いている場合は、読み取りまたは書き込みが行われるレコードの番号（最後に読み書きを行ったレコードの次の番号）となります。
Open ステートメント をシーケンシャル入力モード（Input）、シーケンシャル出力モード（Output）、追加モード（Append）、バイナリモード（Binary） のいずれかで開いている場合は、読み取りまたは書き込みが行われるバイト位置（最後に読み書きを行ったバイト番号の次の番号）となります。

Loc 関数の場合
ランダムアクセスモード（Random）でファイルを開いた場合は、最後に読み書きを行ったレコード番号を返します。また、バイナリモード（Binary）でファイルを開いた場合は、最後に読み書きを行ったバイト番号を返します。シーケンシャルモード（Input、Output、Append）の場合は、現在のバイト位置を 128 で割った値を返します。

Seek 関数使用例

サンプルVBAソース

　
Sub Sample_SeekFunction()

    Dim FileName As String
    Dim FNum As Integer
    Dim buf As String
    Dim str As String
        
    FileName = "C:\Documents\mydata\test03.txt"
    FNum = FreeFile
    
    'ファイルを開く
    Open FileName For Input As #FNum
    
    Do Until EOF(FNum)
    
        Line Input #FNum, buf
        str = str & buf & "：" & Seek(FNum) & "バイト" & vbCrLf
    
    Loop
    
    'ファイルを閉じる
    Close #FNum

    MsgBox str
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

　

Sub Sample_SeekFunction()

Dim FileName As String

Dim FNum As Integer

Dim buf As String

Dim str As String

FileName = "C:\Documents\mydata\test03.txt"

FNum = FreeFile

'ファイルを開く

Open FileName For Input As #FNum

Do Until EOF(FNum)

Line Input #FNum, buf

str = str & buf & "：" & Seek(FNum) & "バイト" & vbCrLf

Loop

'ファイルを閉じる

Close #FNum

MsgBox str

End Sub

　

実行結果

サンプルVBAソースで、読み込むファイル「test03.txt」の内容

サンプルVBAソースを実行した結果

- Excel・ファイルの操作 Excel・ファイルの操作, Open ステートメント, Seek 関数, VBA基本, エクセルVBA, テキストファイル

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テキストファイル：データを書き込む（Put ステートメント）

Put ステートメント Open ステートメントをランダムアクセスモード（Ra …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

: テキストファイル：データを読み込む（Get ステートメント）

Get ステートメント Open ステートメントをランダムアクセスモード（Ra …

: テキストファイル：データを書き込む（Write # ステートメント）

Write # ステートメント Open ステートメントをシーケンシャル出力モ …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

: テキストファイル：データを書き込む（Print # ステートメント）

Print # ステートメント Open ステートメントをシーケンシャル出力モ …

: FileDialog オブジェクトを取得する（FileDialog プロパティ）

FileDialog プロパティ FileDialog オブジェクトを取得しま …

PREV: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）
NEXT: テキストファイル：データを読み込む（Input # ステートメント）