Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
66914 / 76734 ←次へ　｜　前へ→
【14379】Re:テキストファイル内のエラー値をエクセルに表示させたい。
回答  ちゃっぴ  - 04/5/27(木) 14:54 -
引用なし
パスワード
   テキスト読込→チェック部分を書いてみました。

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

こいつをファイル名のリストでループしてやってください。
0 hits
▼ 【14352】テキストファイル内のエラー値をエクセルに表示させたい。 初級者１ 04/5/26(水) 15:47 質問
【14357】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/26(水) 18:39 発言
【14366】Re:テキストファイル内のエラー値をエクセ... 初級者１ 04/5/27(木) 8:42 発言
【14379】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/27(木) 14:54 回答≪
【14397】Re:テキストファイル内のエラー値をエクセ... 初級者１ 04/5/28(金) 9:00 質問
【14414】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/28(金) 14:34 回答
【14422】Re:テキストファイル内のエラー値をエクセ... トキ 04/5/28(金) 15:42 質問
【14425】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/28(金) 16:10 回答
【14427】Re:テキストファイル内のエラー値をエクセ... トキ 04/5/28(金) 16:34 質問
【14428】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/28(金) 16:48 回答
【14430】Re:テキストファイル内のエラー値をエクセ... トキ 04/5/28(金) 18:55 お礼
【14431】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/28(金) 19:12 回答
【14434】Re:テキストファイル内のエラー値をエクセ... トキ 04/5/28(金) 21:46 お礼
【14764】Re:テキストファイル内のエラー値をエクセ... トキ 04/6/7(月) 15:37 質問
【14787】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/6/8(火) 0:07 回答
【14799】Re:テキストファイル内のエラー値をエクセ... トキ 04/6/8(火) 10:04 質問
【14803】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/6/8(火) 10:18 回答
【14812】Re:テキストファイル内のエラー値をエクセ... トキ 04/6/8(火) 14:23 お礼
【14818】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/6/8(火) 15:38 回答
【14824】Re:テキストファイル内のエラー値をエクセ... トキ 04/6/8(火) 16:47 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
66914 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free