Muß ein Code noch in XL97 laufen können?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallöchen,
ich habe mich jetzt in letzter Zeit damit beschäftigt Codes zu schreiben die sowohl in XL97 und auch höher laufen.
Dabei stiess ich auf die Abfrage
#IF VBA6=0
usw.
Da XL97 kein Split kennt, bastelte ich mir eine eigene Splitfunktion. Auch diese API-Funktionen damit man eine UF in XL97 modeless anzeigen kann fand ich im Netz. Und einiges mehr bastelte ich mir.
Da ich dabei sehr viel lernte will ich diese Erfahrung nicht missen, weil die ist ja unabhängig von XL97.
Jetzt dachte ich mir, lohnt sich das, abgesehen vom Lernen, dies weiter zu verfeinern. Also z.B. für Sort was zu basteln, daß man im Code die zusätzlichen Parameter angeben kann, die XL97 nicht kennt, und wenn halt der Code auf XL97 läuft, kein Fehler kommt, sondern daß die einfach ignoriert werden.
Ignorieren heißt jetzt nicht On Error Resume Next, aber ich denke, das ist klar.
Deshalb meine Anfrage hier, ob denn Codes heutzutage noch XL97 tauglich sein müssen.
Ich deute jetzt die Antworten so, ja, XL97 ist im Gegensatz zu Vorläufern durchaus noch aktuell, also macht es Sinn dies weiterauszubauen.
Okay, schon habe ich 2 Fragen zu Bugs in XL97.
Wenn ich mit OleObjects.Add z.B. eine ListBox auf einem Blatt erzeuge und dieser den Namen "LB1" gebe, so kann ich mit OleObjects("LB1") darauf zugreifen.
Aber wenn ich im Dokumentmodul des Blattes bin, wird sie als ListBox1 angezeigt.
Was für mich irritierend ist, ich kann sie als OleObjects("LB1") ansprechen, aber ihre Auswertung erfolgt so:
Private Sub ListBox1_Click()
usw.
und nicht
Private Sub LB1_Click()
Öffne ich die Datei mit XL2000, so ist alles okay, im Modul des Blattes wird sie als "LB1" angezeigt.
Schließe ich XL2000 und öffne mit XL97, so heißt die Listbox dann auch korrekterweise "LB1"
Kann man dem irgendwie beikommen?
Weiteres Problem bei XL97
Wenn ich eine FileSearch starte, so bricht XL97 bei
.FileFind "*.xls"
ab. (Habe jetzt grad den Code nicht da, könnte ich aber nachliefern, obwohl gar nicht nötig, ist der Code aus der Vba-Hilfe zu FileSearch)
Wie kann man dem beikommen?
Danke ^ Gruß
Reinhard

Hallo Reinhard,
warum FileSearch bei dir nicht funktioniert, kann ich jetzt nicht sagen, aber xl2007 unterstützt FileSearch nicht mehr.
Daher verwende ich eine selbst erstellte Funktion, die Versionsunabhängig läuft.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
'by J.Ehrensberger
Private Function FileSearchINFO(ByRef Files As Variant, ByVal InitialPath As String, Optional ByVal FileName As String = "*", _
    Optional ByVal SubFolders As Boolean = False) As Long

Dim fobjFSO As Object, ffsoFolder As Object, ffsoSubFolder As Object, ffsoFile As Object

Set fobjFSO = CreateObject("Scripting.FileSystemObject")

Set ffsoFolder = fobjFSO.GetFolder(InitialPath)

On Error Resume Next

For Each ffsoFile In ffsoFolder.Files
    If Not ffsoFile Is Nothing Then
        If LCase(fobjFSO.GetFileName(ffsoFile)) Like LCase(FileName) Then
            If IsArray(Files) Then
                Redim Preserve Files(UBound(Files) + 1)
            Else
                Redim Files(0)
            End If
            Set Files(UBound(Files)) = ffsoFile
        End If
    End If
Next

If SubFolders Then
    For Each ffsoSubFolder In ffsoFolder.SubFolders
        FileSearchINFO Files, ffsoSubFolder, FileName, SubFolders
    Next
End If

If IsArray(Files) Then FileSearchINFO = UBound(Files) + 1
On Error GoTo 0
Set fobjFSO = Nothing
Set ffsoFolder = Nothing
End Function

Sub test()
Dim a, b
Dim result As Long, l As Long

result = FileSearchINFO(a, "F:\", "*.xls", True)

If result <> 0 Then
    Redim b(UBound(a) + 1, 5)
    b(0, 0) = "Name"
    b(0, 1) = "Path"
    b(0, 2) = "Size/KB"
    b(0, 3) = "DateCreated"
    b(0, 4) = "DateLastModified"
    b(0, 5) = "DateLastAccessed"
    For l = 0 To UBound(a)
        b(l + 1, 0) = a(l).Name
        b(l + 1, 1) = a(l).Path
        b(l + 1, 2) = Cint(a(l).Size / 1024)
        b(l + 1, 3) = a(l).DateCreated
        b(l + 1, 4) = a(l).DateLastModified
        b(l + 1, 5) = a(l).DateLastAccessed
    Next
End If
Range(Cells(1, 1), Cells(UBound(b, 1) + 1, UBound(b, 2) + 1)) = b
Range(Cells(1, 1), Cells(UBound(b, 1) + 1, UBound(b, 2) + 1)).Columns.AutoFit
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Muß ein Code noch in XL97 laufen können?

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Muß ein Code noch in XL97 laufen können?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread