Zum Inhalt springen

Hexagon

Mitglieder
  • Gesamte Inhalte

    530
  • Benutzer seit

  • Tagessiege

    4

Beiträge von Hexagon

  1. Nun ja - da kannst du nur auf die Gutmütigkeit deines Ladens hoffen und mal anfragen!

    Wenn du Glück hast haben sie noch eine alte herumliegen. Aber wenn nicht, so mußt du dich schon gedulten! :(

    Ich kenn das leider auch, jedoch war die Platte nach 4 Wochen wieder da!:)

  2. Original geschrieben von beetFreeQ

    Hmm - die Outlook-Version ist aber noch die selbe, oder?

    Tja, das ist ne komische Sache... - kann man so ein Adressbuch nicht irgendwie auch mit Word öffnen? Vielleicht kannste da ja was retten...und ein Dienstprogramm namens Adressbuch hat Windows glaub ich auch irgendwo...

    Richtig! Am besten du verwendest das Windows-Adressbuch in zusammenhang mit Outlook Express! Dieses Win-Adressbuch kann, meines erachtens nach, die von Outlook exportierten Adressbücher lesen!
  3. Original geschrieben von Cobol-Victim

    nungut warte ich mal was da so rumkommt, neben dem ganzen hohn versteht sich :-)

    Hööööhooooo:p

    So, nu ma ernster werden hier...also, ich würde es z.B. mal bei Ebay probieren oder in einem An- & Verkauf, es gibt auch solche gedrucken Sachen (Wie hießen die noch mal??? - Zeitungen!:eek: )...und in NGs sollen einige Leute auch was verscherbeln...:D

  4. Das sind glaube ich dbx-Datein...ja sind es...

    Diese findest du z.B. in deinem Homeverzeichnis (W2k) unter

    
    Lokale Einstellungen\Anwendungsdaten\Identities\{wüste Nummer-Zahlen-Combo}\Microsoft\Outlook Express\Posteingang.dbx

    als Beispiel! Wo die unter Win9x sind weiß ich allerdings nicht aus dem Kopf!:rolleyes:

  5. Original geschrieben von Goos

    Nuja.....du hast dich sicher irgendwo nur vetippselt :)

    Goos

    Ich weiß nicht...

    hier noch mal der aktuelle Code....

    Private Sub cmdBTOK_Click()
    
        Dim iPages As Integer
    
        Dim iTmp As Integer
    
        Dim iTmp2 As Integer
    
        Dim iZaehler As Integer
    
        Dim iLength As Integer
    
        Dim strTmp As String
    
        Dim strTmp2 As String
    
        Dim strFileName As String
    
        Dim wrkBookNeu As Workbook
    
        Dim wrkBookOrg As Workbook
    
        If txtBoxUserName.TextLength < 1 Then
    
            MsgBox ("Kein Username eingegeben!")
    
            GoTo cmdBTOK_Click_Ende
    
        End If
    
        If txtBoxUserPasswort.TextLength < 1 Then
    
            MsgBox ("Kein Passwort eingegeben!")
    
            GoTo cmdBTOK_Click_Ende
    
        End If
    
        If txtBoxServer.TextLength < 1 Then
    
            MsgBox ("Kein Datenbankserver eingegeben!")
    
            GoTo cmdBTOK_Click_Ende
    
        End If
    
        Application.DisplayAlerts = False
    
        Set wrkBookOrg = Application.ActiveWorkbook
    
        iPages = ActiveWorkbook.Worksheets.Count
    
        For iTmp = 1 To iPages
    
            Set wrkBookNeu = Application.Workbooks.Add
    
            Do While (wrkBookNeu.Worksheets.Count > 1)
    
                wrkBookNeu.ActiveSheet.Delete
    
            Loop
    
            wrkBookOrg.Sheets(iTmp).Copy after:=wrkBookNeu.Sheets(1)
    
            wrkBookNeu.Sheets("Tabelle3").Delete
    
            strFileName = wrkBookNeu.ActiveSheet.Name
    
            iLength = Len(strFileName)
    
            For iZaehler = 1 To iLength
    
                'Überprüfung der einzelnen Zeichen
    
                strTmp = Mid(strFileName, iZaehler, 1)
    
                If strTmp < Chr$(33) Then
    
                    strTmp = "_"
    
                End If
    
                If strTmp = "<" Or strTmp = ">" Or strTmp = "/" Or strTmp = "\" Then
    
                    strTmp = "-"
    
                End If
    
                strTmp2 = strTmp2 + strTmp
    
                strTmp = ""
    
            Next iZaehler
    
            'iwrkBookNeu.SaveAs(strTmp2, xlCSV)
    
            wrkBookNeu.Close
    
            strTmp2 = ""
    
            strTmp = ""
    
        Next iTmp
    
        Application.DisplayAlerts = True
    
        End
    
    cmdBTOK_Click_Ende:
    
    
    End Sub
    
    

    Bei iwrkBookNeu.SaveAs(strTmp2, xlCSV) hängt er sich immer auf...

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...