'Erzeugen eines Werkzeugkatalogs
Sub Katalog_erzeugen()

Dim GWK_Katalog As Document
Dim csvGWK
Dim CATIA_GWK
Dim fso
Arbeitsverzeichnis = "C:\Dokumente und Einstellungen\Makros"

csvGWK = Arbeitsverzeichnis & "\csvGWK.csv"
CATIA_GWK = Arbeitsverzeichnis & "\GWK.catalog"

Set fso = CATIA.FileSystem

  If (fso.FileExists(CATIA_GWK)) Then
  fso.DeleteFile (CATIA_GWK)
  End If
  Set fso = Nothing

Set GWK_Katalog = CATIA.Documents.Add("CatalogDocument")
    
GWK_Katalog.CreateCatalogFromcsv csvGWK, CATIA_GWK

GWK_Katalog.SaveAs (CATIA_GWK)
GWK_Katalog.Close

End Sub