Solidworks için veri almak için dosyalara göz at

Question

Bir dosyayı açtığımda iyi çalışan aşağıdaki kodu yazdım. Ancak, vba kodlama bilgim düşük. Çıktı_61 için bir dizi dosya ismini açmak için bir for döngüsü kullandım, ancak "Çalışma zamanı hatası '53' Dosya bulunamadı" hatası alıyorum. Birisi bana yardım edebilir mi? Saygılarımızla, Jer

Dim swApp As Object 

Sub main() 

    Set swApp = Application.SldWorks 
    Set Part = swApp.ActiveDoc 
    swApp.ActiveDoc.ActiveView.FrameState = 1 
    Dim skPoint As Object 

    For i = 1 To 61 
     Open "C:\Users\jerry.obrien\Desktop\2MW Blade\Solidworks\output_i.txt" For Input As #1 
     Part.SketchManager.Insert3DSketch True 
     Do While Not EOF(1) 
      Input #1, X, Y, Z 
      Set skPoint = Part.SketchManager.CreatePoint(X/1, Y/1, Z/1) 
     Loop 
    Next i 
    Close #1 

    Part.ShowNamedView2 "*Isometric", 7 
    Part.ViewZoomtofit2 
End Sub 

Answer 1

Değiştir: Burada

yazdım gelmiş kodudur "C: \ Users \ jerry.obrien \ Desktop \ 2MW Blade \ Solidworks \ output_" & i &". txt"

Answer 2

Bazı jenerik döngü şeyler

path = "C:\Users\jerry.obrien\Desktop\2MW Blade\Solidworks" & "\" 
Filename = Dir(path & "*.txt??") 

Do While Len(Filename) > 0 
    DoEvents 
    debug.? "found "; path & Filename 
    Filename = Dir() 
     For Each..... 
     Next ..... 
    Filename = Dir 
Loop