VBA で指定されたファイルの内容を取得するには

VBA では `Open` ステートメントを使用してファイルをオープンし、`Input` 関数を使用してファイルの内容を読み込むことができます。以下に示すサンプル コードは、指定されたファイルの内容を読み込む方法を示しています。

Sub ReadFileContent()

Dim fileNumber As Integer

 

Dim content As String

 

Dim filePath As String

 

‘ 设置文件路径

 

filePath = “C:\path\to\file.txt”

 

‘ 打开文件

 

fileNumber = FreeFile

 

Open filePath For Input As fileNumber

 

‘ 读取文件内容

 

content = Input$(LOF(fileNumber), fileNumber)

 

‘ 关闭文件

 

Close fileNumber

 

‘ 打印文件内容

 

Debug.Print content End Sub


上記のコードの例では、まずOpen文で指定されたパスにあるファイルを開き、FreeFile関数で利用可能なファイル番号を取得します。次に、Input関数でファイルの全内容を読み取って文字列変数のcontentに格納します。最後に、Close文でファイルを閉じ、Debug.Print文でファイルの内容を出力します。コード内のfilePath変数は、読み取りたいファイルのパスに変更できます。

bannerAds