どううまくいかないのかを 教えてください｡

あと

csvImp (p & f)



'処理対象は 1番目のｼｰﾄのみ｡

csvImp (p & f)

の箇所は


csvImp (p & f)

だけでいいかと思います｡

わかりました｡jun1970のような形式の時に 日付に変わってしまうというのが 問題だったんですね｡

csvImpの関数の箇所を 以下に変更してください｡

Sub csvImp(csFName As String)

Const csDelimiter As String = ","

Dim FNo As Integer

Dim wsObj As Worksheet

Dim strGet As String

Dim lRowCnt As Long

Dim i As Long

FNo = FreeFile

If Dir(csFName) <> "" Then

 Open csFName For Input As #FNo
 Set w = Workbooks.Open(Filename:=csFName, UpdateLinks:=False, ReadOnly:=False)
 
 Set wsObj = Workbooks(w.Name).Sheets(1)
 lRowCnt = 1
 
 Do Until EOF(FNo)
 
 Line Input #FNo, strGet
 
 For i = LBound(Split(strGet, csDelimiter)) To UBound(Split(strGet, csDelimiter))
 wsObj.Cells(lRowCnt, i + 1).NumberFormatLocal = "@"
 wsObj.Cells(lRowCnt, i + 1) = Split(strGet, csDelimiter)(i)
 
 Next i
 
 lRowCnt = lRowCnt + 1
 
 Loop
 
 
 Close #FNo

End If

End Sub