Dateiabfrage in Makro einbauen
23.07.2008 13:51:46
Torsten
ich kenne mich mit VBA überhaupt nicht aus. Könnte mir vielleicht jemand die fehlenden Zeilen zu folgendem Makro ergänzen, so dass ich den Speicherort nicht immer im Makro anpassen muss, sonden dazu aufgefordert werden die entsprechende Datei in einem Fenster (Explorer) aus zu wählen?
Viele Dank im Vorraus!
Gruss
Torsten
Option Explicit
Sub LiestZeilenundTransponiert()
'Excel2002
'liest eine Zeile und transponiert
Const DatNam = "C:\Dokumente und Einstellungen\user\Desktop\22918 Ascii.ascii"
Dim IDatNum As Integer
Dim i As Integer
Dim Zeile As String
Dim VZeile As Variant
Dim Zeilennummer As Integer
IDatNum = FreeFile
Open DatNam For Input As IDatNum
While Not EOF(IDatNum)
Zeilennummer = Zeilennummer + 1
Line Input #IDatNum, Zeile
Debug.Print Zeile
VZeile = Split(Zeile, ",")
For i = 0 To UBound(VZeile)
Cells(i + 1, Zeilennummer) = VZeile(i)
Next
Wend
Close (IDatNum)
End Sub