Are you sure it skips every other file? Have you tried adding a break point to see if that's what's happening? I suggest you add some checks to make sure everything happens correctly. Add a check that the file exists, that the sketch point was read, has the right formatting and the one Ivana suggested.
Also, the InsertCurveFileEnd seems to need an InsertCurveFileBegin and multiple swModel.InsertCurveFilePoint(x, y, z) calls as well, according to this example.
Yes, because the first run it'll import the odd numbered files, and then I run it again and it'll import the even numbered files.
I'll try those functions as well. Thanks
Dim swApp As Object
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState = 1
Dim skPoint As Object
Dim num1 As Integer
Dim nsec As Integer
nsec = 21
For num1 = 1 To nsec
Open "\sec" & num1 & ".sldcrv" For Input As #num1
Part.SketchManager.Insert3DSketch True <- this must be outside of for loop, otherwise first time it creates new sketch, next loop it closes sketch, next loop add new sketch again .....
Do While Not EOF(num1)
Input #num1, X, Y, Z
Set skPoint = Part.SketchManager.CreatePoint(X, Y, Z)
Part.SketchManager.Insert3DSketch True <- or if you want for each file new sketch, then you have to call it here again
Part.ShowNamedView2 "*Isometric", 7