Excel VBA質問箱 IV

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

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


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

61017 / 76738

←次へ　｜　前へ→


	【20348】Re:同一フォルダ内に保存しているファイルをＥＸＣＥＬシートに追加読み込み

ムシキング - 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】同一フォルダ内に保存しているファイルをＥＸＣＥＬシートに追加読み込み ムシキング 04/12/5(日) 14:40