|
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
|
|