|
お世話になります。
ありがとうございます。
早速、1ファイルだけでもチェックしてみたいのですが、
コードの内容が勉強不足でほとんどわかりません。
すいませんが、教えて頂けないでしょうか。
そのままの形で実行しようとすると、マクロとして認識しません。通常のマクロ名と異なっているような。。。
#1、(1)は、何でしょう?
宜しくお願いいたします。
>テキスト読込→チェック部分を書いてみました。
>
>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
>
>こいつをファイル名のリストでループしてやってください。
|
|