FileAttr関数
FileAttr関数は、Open ステートメントで開かれたファイルのモードを取得するために使用されます。
これにより、ファイルがどのような方法（入力、出力、ランダム、バイナリなど）で開かれているかを確認できます。
FileAttr関数の構文
データ型: Integer
Open ステートメントでファイルを開くときに指定した有効なファイル番号です。
ファイル番号は1から255までの整数で、FreeFile 関数を使用して未使用のファイル番号を取得することが推奨されます。
データ型: Long
取得する情報の種類を指定します。以下の定数または値を指定します。
- 1 (または vbFileAttrNormal): ファイルのアクセスモード（既定値）。これが最も一般的に使われます。
- 2 (または vbFileAttrDirectory): ファイルのオペレーティングシステムハンドル（VBAの通常の利用ではあまり使いません）。
- FileAttr 関数は、filenumber に指定されたファイルが現在どのようなモードで開かれているかを示す整数値を返します。
returntype が 1 の場合、返される値は以下のいずれかの定数（またはその数値）です。
これらの値は、ファイルがVBAによって開かれているアクセスモードを示します。値 定数 説明 1 vbInput 入力モード (Input) 2 vbOutput 出力モード (Output) 4 vbRandom ランダムアクセスモード (Random) 8 vbAppend 追加モード (Append) 32 vbBinary バイナリモード (Binary)
- returntype に 2 を指定した場合、戻り値はファイルまたはデバイスのオペレーティングシステムハンドルです。
この値は、VBA内で直接利用することは少なく、より低レベルなAPI呼び出しなどで使われることがあります。 - 指定された filenumber が開かれていない場合や無効な場合は、ランタイムエラーが発生します。
FileAttr関数の使用例
Sub FileAttr_Sample()
Dim fileNum As Integer
Dim filePath As String
Dim fileMode As Integer
filePath = ThisWorkbook.Path & "\TestFile.txt" ' 同一フォルダにテストファイルを作成
On Error GoTo ErrorHandler ' エラーハンドラを設定
' 例1: Inputモードでファイルを開き、モードを確認
fileNum = FreeFile ' 空いているファイル番号を取得
Open filePath For Output As #fileNum ' まずファイルを作成（既存なら上書き）
Print #fileNum, "これはテストデータです。"
Close #fileNum
Open filePath For Input As #fileNum ' Inputモードで開く
fileMode = FileAttr(fileNum, 1) ' ファイルのモードを取得
MsgBox "Inputモードで開かれたファイルのモード: " & fileMode & " (" & GetFileModeName(fileMode) & ")", _
vbInformation, "FileAttr 関数 例1"
Close #fileNum ' ファイルを閉じる
' 例2: Appendモードでファイルを開き、モードを確認
fileNum = FreeFile ' 空いているファイル番号を取得
Open filePath For Append As #fileNum ' Appendモードで開く
fileMode = FileAttr(fileNum, 1) ' ファイルのモードを取得
MsgBox "Appendモードで開かれたファイルのモード: " & fileMode & " (" & GetFileModeName(fileMode) & ")", _
vbInformation, "FileAttr 関数 例2"
Close #fileNum ' ファイルを閉じる
' 例3: Binaryモードでファイルを開き、モードを確認
fileNum = FreeFile ' 空いているファイル番号を取得
Open filePath For Binary As #fileNum ' Binaryモードで開く
fileMode = FileAttr(fileNum, 1) ' ファイルのモードを取得
MsgBox "Binaryモードで開かれたファイルのモード: " & fileMode & " (" & GetFileModeName(fileMode) & ")", _
vbInformation, "FileAttr 関数 例3"
Close #fileNum ' ファイルを閉じる
' テストファイルを削除
Kill filePath
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
If fileNum <> 0 Then Close #fileNum ' 開いているファイルがあれば閉じる
If Dir(filePath) <> "" Then Kill filePath ' テストファイルが残っていたら削除
End Sub
' ファイルモードの数値を名前に変換するヘルパー関数
Private Function GetFileModeName(mode As Integer) As String
Select Case mode
Case 1
GetFileModeName = "Input"
Case 2
GetFileModeName = "Output"
Case 4
GetFileModeName = "Random"
Case 8
GetFileModeName = "Append"
Case 32
GetFileModeName = "Binary"
Case Else
GetFileModeName = "不明なモード"
End Select
End Function
- このコードでは、まず ThisWorkbook.Path & "\TestFile.txt" でテストファイルへのパスを定義しています。
- FreeFile 関数を使って、使用されていないファイル番号を取得しています。これは、ファイル操作を行う際に推奨される方法です。
- 例1では、Outputモードでファイルを作成し、一旦閉じた後、Inputモードで再度開いています。その後、FileAttr(fileNum, 1) を使って、そのファイルのアクセスモードを取得し、GetFileModeName ヘルパー関数で分かりやすい名前に変換して表示しています。
- 例2と例3も同様に、AppendモードとBinaryモードでファイルを開いた際の FileAttr 関数の戻り値を確認しています。
- ErrorHandler は、ファイル操作中にエラーが発生した場合に、メッセージを表示し、開いているファイルを確実に閉じるためのエラー処理です。
- 最後に Kill filePath で作成したテストファイルを削除しています。
※本記事の作成にあたっては、生成AI（Gemini）を活用し一部の文章作成を行っています。最終的な内容は人間による確認・編集を経て掲載しています。
同じテーマ「VBA関数」の記事
CurDir関数
Dir関数
EOF関数
FileAttr関数
FileDateTime関数
FileLen関数
FreeFile関数
GetAttr関数
Input関数
Loc関数
LOF関数
新着記事NEW ・・・新着記事一覧を見る
Gemini CLIの徹底解説：AIをターミナルから使いこなす｜生成AI活用研究(2025-07-03)
Gemini CLIとPowerShellでVBAerのAI活用を加速する実践ガイド｜生成AI活用研究(2025-07-02)
「Gemini CLI」によるExcel自動化フレームワーク：実践ガイド｜生成AI活用研究(2025-07-01)
AI(Gemini)とエクセル数式対決 その3｜生成AI活用研究(2025-06-24)
不合理の砦｜AIが計算を終えた場所から、人間の価値が始まる｜生成AI活用研究(2025-06-23)
生成AIはExcelの複雑な数式を書けるのか？｜AIとの対話から学ぶ協業のリアル｜生成AI活用研究(2025-06-22)
日時データから日付ごとの集計（UNIQUE,SUMIFS,GROUPBY）｜エクセル雑感(2025-06-20)
AI時代の働き方革命：オンリーワン戦略 ― 属人化で搾取されない労働者に｜生成AI活用研究(2025-06-20)
VBA開発の標準化を実現する共通プロンプトのすすめ｜生成AI活用研究(2025-06-14)
生成AIと100本ノック 29本目：画像の挿入｜生成AI活用研究（6月13日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.変数宣言のDimとデータ型｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.FILTER関数（範囲をフィルター処理）｜エクセル入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.