---

ich habe ein problem in meinem quellcode.
das erste mal läuft er problemlos durch. beim zweiten mal kommt an der stelle von texttocolumns die fehlermeldeun 1004. ich habe keine ahnung woran dies liegen kann. habe schon viel ausprobiert
     
auszug aus dem quellcode:

            ProduktName = Toolbar.AttributeHinzufuegen.ListBoxParts.List(i, 0)
            Set MyProduktDoc = Documents.Item(ProduktName & ".CATProduct")
            Set MyProdukt = MyProduktDoc.Product
            '-----Stückliste des gewählten Produktes auslesen
            txtdatei = Projektpfad & "\" & ProduktName & ".txt"
            MyProdukt.ExtractBOM catfiletypetext, txtdatei
            '-----Datei in Excel öffnen
            Set WB_Stueli = ObjExcel.Workbooks.Open(txtdatei)
            Set WS_Stueli = WB_Stueli.ActiveSheet
            ObjExcel.Visible = False 'Excel nicht sichtbar
            '-----Txt-Stückliste in ExcelZellen übertragen
            ObjExcel.DisplayAlerts = False  'Meldungen ausschalten
           
            AnzZeilen = WS_Stueli.Range("A65536").End(xlUp).Row

            WS_Stueli.Columns("A:A").Select

            Selection.TextToColumns , Destination:=Range("A1"), DataType:=xlDelimited, _
                  TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
                  Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
                  :="|", FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi dini,

das ist wohl eher ein Excel-Thema.

Wird die geöffnete Datei 'txtdatei' im Makro auch wieder geschlossen?
Steht in 'txtdatei' auch was drin? Auch beim 2. Lauf?

Typischerweise werden solche Probleme durch unsauberes Beenden verursacht;
sprich: Inkonsequentes Aufräumen.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das sind meine befehle zum beenden. fehlt etwas?

WB_Stueli.Close
Kill txtdatei

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

fehlt etwas?

---

Keine Ahnung. Ich hab kein Excel. Somit programmier ich auch nicht damit.

Irgendwo hast wahrscheinlich noch eine Leiche rumliegen.
Globales Objekt, Array etc.

Leg mal eine Fehlerroutine an, etwa

Code:

---

  On Error GoTo {PROCEDURE_NAME}_Error

{PROCEDURE_BODY}

Exit {PROCEDURE_TYPE}
'---------------------------------------------------------------------------------------
{PROCEDURE_NAME}_Error:
  Dim errMsg As String
  Dim errRet As VbMsgBoxResult

  Select Case Err.Number
'      Case 438
'      Case -2147467259
      Case Else
        errMsg = Err.Number & ": " & Err.Description & " in procedure {PROCEDURE_NAME} of {MODULE_TYPE} {MODULE_NAME}"
        errRet = MsgBox (errMsg, vbOKOnly, "{PROCEDURE_NAME}")
  End Select

  'Resume Next                                          'fall thru to quit sub
'---------------------------------------------------------------------------------------

---

Am einfachsten geht das mit MZ-Tools. Die Freeware-Version gibt's zB hier:
http://de.freedownloadmanager.org/Windows-PC/MZ-Tools-for-VBA-KOSTENLOS.html

Tschau,
Joe

PS: Trag bitte deine Arbeitsumgebung ins Profil ein.

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP