|
▼ちゃっぴ さん:
ありがとうございます。
「Openステートメント」は、ファイルを開くものみたいですね。
「EOF関数」はファイルの終端かどうかを確認するものみたいですね。
勉強になりました。
とりあえず、このようにすればよかったのでしょうか?
呼び出しを実行すると、矢印のところで"Typeブロック外では無効なステーメンとです"というエラーが発生します。ヘルプを見たのですがよくわかりません。
ファイルパス名は、textファイルのパスを入力すればいいのでしょうか?
お手数ですが宜しくお願いいたします。
Sub 呼び出し()
Call S_ChkError("ファイルパス")
End Sub
Sub S_ChkError(strFilePath As String) ←
strBuffer As String
vntDivBuf As Variant
lngLineNo As Long
'テキストファイルオープン
Open strFilePath For Input As #1
'最終行までループ
Do
'行番号インクリメント
lngLineNo = lngLineNo + 1
'1行読み出し
Line Input #1, strBuffer
'各要素に分解(配列に格納)
vntDivBuf = Split(strBuffer, " ")
'同じ値がないかマッチング
For i = 0 To 2
If vntDivBuf(i) = ntDivBuf(i + 3) _
Or vntDivBuf(i) = ntDivBuf(i + 6) _
Or vntDivBuf(i + 3) = ntDivBuf(i + 6) Then
'セルへの出力を記述してください
Exit For
End If
Next i
Loop Until EOF(1)
Close #1
End Sub
|
|