Mit exel dateien außesen....

[paulchen1111]

das ist das problem...

Private Type TagInfo

Tag As String * 3

Title As String * 30

Interpret As String * 30

Album As String * 30

Jahr As String * 4

Kommentar As String * 30

End Type

Sub TagInfoLesen()

Dim CurrrentTag As TagInfo

Dim strDateiname As String

Dim intDateiNR As Integer

Dim rg As Range

Dim strPfad As String

Dim i As Long

On Error Resume Next

strPfad = "F:\New Musik"

ActiveSheer.Rangge("A1").Formula = "Inhalt des Ordners: " & strPfad

Set rg = ActiceSheet.Range("A2")

rg.Offset(0, 0).Formula = "Inerpret"

rg.Offset(0, 1).Formula = "Titel"

rg.Offset(0, 2).Formula = "Album"

rg.Offset(0, 3).Formula = "Kommentar"

rg.Offset(0, 4).Formula = "Dateiname"

intDateiNR = FreeFile

strDateiname = Dir(strPfad & "*.mp3")

i = 1

Do While strDateiname <> ""

Open strPfad & strDateiname For Binary As #intDateiNR

With CurrentTag

Get #intDateiNR, FileLen(strPfad & strDateiname) - 127, .Tag

If Not .Tag = "Tag" Then

Close #intDateiNR

GoTo Weiter

End If

Get #intDateiNR, , .Title

Get #intDateiNR, , .Interpret

Get #intDateiNR, , .Album

Get #intDateiNR, , .Jahr

Get #intDateiNR, , .Kommentar

Close #intDateiNR

rg.Offset(i, 0).Formula = EintragTrimmen(.Interpret)

rg.Offset(i, 1).Formula = EintragTrimmen(.Titel)

rg.Offset(i, 2).Formula = EintragTrimmen(.Album)

rg.Offset(i, 3).Formula = EintragTrimmen(.Jahr)

rg.Offset(i, 4).Formula = EintragTrimmen(.Kommentar)

Weiter:

rg.Offset(i, 5).Formula = strDateiname

i = i + 1

End With

strDateiname = Dir

Loop

End Sub

Function EintragTrimmen(Eintrag) As String

Dim j As Integer

Dim strChar As String

j = InStr(Eintrag, vbNullChar)

If j > 0 Then

Eintrag = Left(Eintrag, j - 1)

End If

EntragTrimmen = RTrim(Eintrag)

End Function

kann mir einer sagen was ich falsch gemacht habe?

[lpd]

Du musst schon ein bischen deutlicher werden, ich glaube, es versteht keiner, was du eigentlich willst.

Poste bitte noch folgende Informationen :

• Welche Excel-Version ?
  
• Was willst du tun ?
  
• Wo treten die Probleme auf ?