---

Hallo,

Null Problemo:

Code:

---

Public Sub Test()

    Const FILE_NAME = "E:\Eigene Dateien\Eigene Programme\BackUp\BackUp.exe"

    Dim lngCounter As Long, lngRow As Long, lngColumn As Long
    Dim intFilenumber As Integer
    Dim bytArray() As Byte
   
    Reset
    intFilenumber = FreeFile
   
    ReDim bytArray(1 To FileLen(FILE_NAME))
   
    Open FILE_NAME For Binary Access Read As #intFilenumber
    Get #intFilenumber, 1, bytArray
    Close #intFilenumber
   
    If UBound(bytArray) <= Rows.Count * Columns.Count Then
        Application.ScreenUpdating = False
        lngRow = 1: lngColumn = 1
        For lngCounter = 1 To UBound(bytArray)
            Cells(lngRow, lngColumn).Value = bytArray(lngCounter)
            lngRow = lngRow + 1
            If lngRow > Rows.Count Then
                lngRow = 1
                lngColumn = lngColumn + 1
            End If
        Next
        Application.ScreenUpdating = True
    Else
        MsgBox "Das passt nicht in eine Tabelle. Was nun?", vbQuestion, "Hilfe !!!!!!!!!!!!!!!"
    End If
   
End Sub

---

------------------
Gruß
Nepumuk 

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

---

Ich nochmal

schreiben natürlich. Einfach im Array den entsprechenden Wert tauschen, Datei im Schreibmodus öffnen und mit Put das Array zurückschreiben. Ich bin dabei jetzt mal von Binärdateien (exe, dll ...) ausgegangen. Ich bin mir auch nicht sicher, ob ich das mit "Ich möchte eine Datei in Excel auslesen" richtig verstanden habe. Ich hab mal angenommen, du willst die Werte in eine Tabelle schreiben.

------------------
Gruß
Nepumuk 

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