Excel VBA質問箱 IV

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

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


61017 / 76738 ←次へ | 前へ→

【20348】Re:同一フォルダ内に保存しているファイルをEXCELシートに追加読み込み
質問  ムシキング  - 04/12/6(月) 22:41 -

引用なし
パスワード
   Hirofumiさん、お手数をお掛けしています。。。
下記の「If vntField(4) = "Voiding" Then」で止まってしまいます。
現在自宅で走らせていますが、97なのですが関係有りますか?
実際会社で使うのは、XPです。
私の追加・差し替えのやり方が悪いだけでしょうか?
全て通しで提供頂けたらと思います。
手の掛かる子で、誠に恐縮です。m(__)m

'指定ファイルを読み込みモードでOpen
  Set objFileStr = objFso.OpenTextFile(strFileName, ForReading)
 
  With objFileStr
    Do Until .AtEndOfStream
      strLine = .ReadLine
      strRec = strRec & strLine
      vntField = SplitCsv(strRec, strDelim, , , blnMulti)
      If blnMulti Then
        strRec = strRec & vbLf
      Else
        If blnHeader Then
          If vntField(4) = "Voiding" Then
            vntTotal(2) = vntTotal(2) + 1
          End If
          With wksWrite.Cells(lngRow, lngCol)
            .Offset.Resize(, UBound(vntField) + 1) = vntField
          End With
          lngRow = lngRow + 1
          If lngRow > 65536 Then
            lngRow = 1
            With wkbParent.Worksheets
              Set wksWrite = .Add(After:=.Item(.Count))
            End With
          End If
        End If
        strRec = ""
        blnHeader = True
      End If
    Loop
    .Close
  End With
 
0 hits

【20321】同一フォルダ内に保存しているファイルをEXCELシートに追加読み込み ムシキング 04/12/5(日) 14:40 質問
【20324】Re:同一フォルダ内に保存しているファイル... [名前なし] 04/12/5(日) 15:01 発言
【20326】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/5(日) 15:27 発言
【20328】Re:同一フォルダ内に保存しているファイル... [名前なし] 04/12/5(日) 16:33 回答
【20329】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/5(日) 17:27 回答
【20330】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/5(日) 21:50 回答
【20331】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/5(日) 23:22 発言
【20344】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/6(月) 19:15 回答
【20345】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/6(月) 19:22 回答
【20346】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/6(月) 19:40 回答
【20348】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/6(月) 22:41 質問
【20382】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/7(火) 19:26 回答
【20477】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/9(木) 23:01 発言
【20515】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/10(金) 21:04 回答
【20676】Re:同一フォルダ内に保存しているファイル... ムシキング 04/12/14(火) 20:39 お礼
【20677】Re:同一フォルダ内に保存しているファイル... Hirofumi 04/12/14(火) 21:17 回答

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