| |
▼ちゃっぴ さん：
お世話になっております。
標準モジュールに書き込んであります。
今度も"Typeブロック外では無効なステーメンとです"というエラーが発生します。
また、出力先は、Sheets("Sheet1").Cells(2, 1).Valueです。2,1、3,1、4,1....としたいのですが宜しくお願いいたします。
Sub S_ChkError()
Dim strFilePath As String
strFilePath = "C:\Documents and Settings\TinFE6424.txt"
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
'セルへの出力を記述してください
Sheets("Sheet1").Cells(2, 1).Value
Sheets("Sheet1").Cells(3, 1).Value
Sheets("Sheet1").Cells(4, 1).Value
Sheets("Sheet1").Cells(5, 1).Value
Sheets("Sheet1").Cells(6, 1).Value
Sheets("Sheet1").Cells(7, 1).Value
Sheets("Sheet1").Cells(8, 1).Value
Sheets("Sheet1").Cells(9, 1).Value
Sheets("Sheet1").Cells(10, 1).Value
Sheets("Sheet1").Cells(11, 1).Value
Exit For
End If
Next i
Loop Until EOF(1)
Close #1
End Sub
>>呼び出しを実行すると、ヘルプを見たのですがよくわかりません。
>
>"o(-_-;*) ウゥム…
>どこに書いてます？標準モジュール？
>
>ってゆうか別に引数指定で実行する必要ないから
>こうゆう風にしましょ
>
>Sub S_ChkError()
>Dim strFilePath As String
>
>strFilePath = "ファイルパス"
>
>>ファイルパス名は、textファイルのパスを入力すればいいのでしょうか？
>
>はい、そのとおりです。
>
>あと、ここんとこ自分で書いてね☆
>> If vntDivBuf(i) = ntDivBuf(i + 3) _
>> Or vntDivBuf(i) = ntDivBuf(i + 6) _
>> Or vntDivBuf(i + 3) = ntDivBuf(i + 6) Then
>> 'セルへの出力を記述してください
>>
>> Exit For ↑ここ
>> End If
>
>このままだと何にも実行されません･･･(^^;)
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
