Excel VBA質問箱 IV

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

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


66870 / 76738 ←次へ | 前へ→

【14427】Re:テキストファイル内のエラー値をエクセルに表示させたい。
質問  トキ  - 04/5/28(金) 16:34 -

引用なし
パスワード
   ▼ちゃっぴ さん:
お世話になっております。
標準モジュールに書き込んであります。

今度も"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
>
>このままだと何にも実行されません・・・(^^;)

2 hits

【14352】テキストファイル内のエラー値をエクセルに表示させたい。 初級者1 04/5/26(水) 15:47 質問
【14357】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/26(水) 18:39 発言
【14366】Re:テキストファイル内のエラー値をエクセ... 初級者1 04/5/27(木) 8:42 発言
【14379】Re:テキストファイル内のエラー値をエクセ... ちゃっぴ 04/5/27(木) 14:54 回答
【14397】Re:テキストファイル内のエラー値をエクセ... 初級者1 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 お礼

66870 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free