Microsoft Excel

Herbers Excel/VBA-Archiv

txt importieren leicht gemacht

Betrifft: txt importieren leicht gemacht
von: Joachim
Geschrieben am: 22.04.2003 - 13:55:04

Hallo,
nachfolgender VBS Code fügt mir den Inhalt einer *.txt in mein aktives Worksheet ein. Nun möchte ich allerdings nicht immer den Pfad des *.txt Files von Hand vorgeben müssen, sondern ihn per Mausklick auswählen können. Kann mir bitte jemand dahingehend helfen, dass er mir mitteilt, wie der zugehörige Programmcode aussehen muss?


Sub main()
ImportTextFile "C:\test.txt", Chr(9)
End Sub

Public Sub ImportTextFile(FName As String, Sep As String)

Dim RowNdx As Integer
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer

Application.ScreenUpdating = False 'Beschleunigt Programm!

SaveColNdx = ActiveCell.Column ' Abfrage z.Zt markierten Zelle
RowNdx = ActiveCell.Row

Open FName For Input Access Read As #1

While Not EOF(1)
Line Input #1, WholeLine
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cells(RowNdx, ColNdx).Value = TempVal
Pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1

End Sub

Danke Joachim

  

Re: txt importieren leicht gemacht
von: Michael Scheffler
Geschrieben am: 22.04.2003 - 14:09:06

Hi,

schau Dir die Hilfe zu Application.GetOpenFilename an.

Gruß

Micha

  

Re: txt importieren leicht gemacht
von: Willie
Geschrieben am: 22.04.2003 - 14:10:03

Du kannst dir dieses Menü einbauen


Sub menueinbauen()
Application.Dialogs(145).Show
End Sub

Gruß

Willie

 

Beiträge aus den Excel-Beispielen zum Thema "txt importieren leicht gemacht"