Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42230 / 76732

←次へ　｜　前へ→


	【39573】Re:条件にあったデータの抽出（他ファイ...

Kein - 06/6/26(月) 23:13 -


	引用なし

	パスワード

それで結構です。では、06/6/24(土) 2:12 に提示したコードのループの部分を

　 Do Until EOF(1)
　　　Line Input #1, Buf
　　 Buf = Left$(Buf, Len(Buf) - 1) '←追加
　　 Buf = Replace(Buf, Chr(45), "") '←追加
　　　GetAry = Split(Buf, Chr(32))
　　　If GetAry(1) = MyDy Or GetAry(2) = MyDy Then
　　　　 If Left$(GetAry(0), 5) = "LOGON" Then
　　　　　　LgOn = GetAry(UBound(GetAry))
　　　　 ElseIf Left$(GetAry(0), 5) = "LOGOF" Then
　　　　　　LgOf = GetAry(UBound(GetAry))
　　　　 End If
　　　End If
　 Loop

というように２行追加して、実行してみて下さい。

0 hits

▼

【39440】条件にあったデータの抽出（他ファイルか... UK 06/6/24(土) 0:52