Textdatei in Excel einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TestLeseTxT() Dim sPfad As String sPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt") If sPfad <> "" Then Range("A1") = LeseZeile1(sPfad) End If End Sub Function LeseZeile1(strPfad As String) As Double Dim sLine As String Dim F As Integer F = FreeFile Open strPfad For Input As #F Line Input #F, sLine Close #F sLine = Replace(Trim$(sLine), ".", IIf("0.5" * 1 = 1, ".", ",")) If IsNumeric(sLine) Then LeseZeile1 = CDbl(sLine) End If End Function

Option Explicit Sub TestLeseTxT() Dim sFormel As String, sPfad As String Dim rLetzte As Range Dim WertAusTxT, WertAusExcel sPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt") If sPfad <> "Falsch" Then 'letzte Zelle in AA Set rLetzte = Cells(Rows.Count, "AA") 'Pfad, Dateinamen und Tabellennamen anpassen sFormel = "'C:\MeineDatei\[DeineDatei_B.xls]Tabelle1'!" & rLetzte.Address(, , xlR1C1) WertAusTxT = ExecuteExcel4Macro(sFormel) WertAusExcel = LeseZeile1(CStr(sPfad)) If IsNumeric(WertAusTxT) And IsNumeric(WertAusExcel) Then Range("A1") = WertAusExcel * WertAusTxT Range("B1") = Now Range("B1").NumberFormat = "dd/mm/yyyy hh:mm:ss" Else MsgBox "Die Daten konnten nicht berechnet werden!" End If End If End Sub Function LeseZeile1(strPfad As String) As Double Dim sLine As String Dim F As Integer F = FreeFile Open strPfad For Input As #F Line Input #F, sLine Close #F sLine = Replace(Trim$(sLine), ".", IIf("0.5" * 1 = 1, ".", ",")) If IsNumeric(sLine) Then LeseZeile1 = CDbl(sLine) End If End Function

Option Explicit Sub TestLeseTxT() Dim sFormel As String, sPfad As String Dim rLetzte As Range Dim WertAusTxT, WertAusExcel sPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt") If sPfad <> "Falsch" Then 'letzte Zelle in AA Set rLetzte = Cells(Rows.Count, "AA") 'Pfad, Dateinamen und Tabellennamen anpassen sFormel = "'C:\MeineDatei\[DeineDatei_B.xls]Tabelle1'!" & rLetzte.Address(, , xlR1C1) WertAusExcel = LeseZeile1(CStr(sPfad)) WertAusTxT = ExecuteExcel4Macro(sFormel) If IsNumeric(WertAusTxT) And IsNumeric(WertAusExcel) Then MsgBox WertAusExcel * WertAusTxT, vbInformation, "Ergebnis" Else MsgBox "Die Daten konnten nicht berechnet werden!" End If End If End Sub Function LeseZeile1(strPfad As String) As Double Dim sLine As String Dim F As Integer F = FreeFile Open strPfad For Input As #F Line Input #F, sLine Close #F sLine = Replace(sLine, " ", vbTab) If InStr(sLine, vbTab) > 0 Then sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab)) End If sLine = Replace(Trim$(sLine), ".", IIf("0.5" * 1 = 1, ".", ",")) If IsNumeric(sLine) Then LeseZeile1 = CDbl(sLine) End If End Function

Hallo Tino!
Wie kann ich bei untenstehenden VBA-Code angeben, dass von der Excel-Datei die Spalte AA jener Zeile A ausgelesen wird, wo das aktuelle Systemdatum steht. Müsste irgenwie mit "Application.Match(CLng(Date)" funktionieren ... Betroffen ist die Zeile: "Set rLetzte = Cells(Rows.Count, "AA")"
Option Explicit


Sub TestLeseTxT()
Dim sFormel As String, sPfad As String
Dim rLetzte As Range
Dim WertAusTxT, WertAusExcel
sPfad = "C:\Dokumente und Einstellungen\User\Desktop\test.txt"
If sPfad  "Falsch" Then
'letzte Zelle in AA
Set rLetzte = Cells(Rows.Count, "AA")
'Pfad, Dateinamen und Tabellennamen anpassen
sFormel = "'C:\Dokumente und Einstellungen\User\Desktop\[B.xls]Tabelle1'!" & rLetzte.Address(,  _
, xlR1C1)
WertAusExcel = LeseZeile1(CStr(sPfad))
WertAusTxT = ExecuteExcel4Macro(sFormel)
If IsNumeric(WertAusTxT) And IsNumeric(WertAusExcel) Then
MsgBox WertAusExcel * Exp(WertAusTxT), vbInformation, "Ausgabewert"
Else
MsgBox "Die Daten konnten nicht berechnet werden!"
End If
End If
End Sub


Function LeseZeile1(strPfad As String) As Double
Dim sLine As String
Dim F As Integer
F = FreeFile
Open strPfad For Input As #F
Line Input #F, sLine
Close #F
sLine = Replace(sLine, " ", vbTab)
If InStr(sLine, vbTab) > 0 Then
sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab))
End If
If IsNumeric(sLine) Then
LeseZeile1 = CDbl(sLine)
End If
End Function

Sub TestLeseTxT() Dim sFormel As String, sPfad As String Dim rLetzte As Range Dim WertAusTxT, WertAusExcel 'Auswahldialog für Textdatei oder festen Pfad angeben sPfad = Application.GetOpenFilename("Text Files (*.txt), *.txt") If sPfad <> "Falsch" Then 'letzte Zelle in AA Set rLetzte = Cells(Rows.Count, "AA") 'Sverweis Formel: Pfad, Dateinamen und Tabellennamen anpassen sFormel = "VLOOKUP(TODAY(),'C:\Neuer Ordner\[Mappe2.xls]Tabelle1'!R1C1:R65536C27,27,FALSE)" WertAusExcel = ExecuteExcel4Macro(sFormel) WertAusTxT = LeseZeile1(sPfad) If IsNumeric(WertAusTxT) And IsNumeric(WertAusExcel) Then MsgBox WertAusExcel * WertAusTxT & Chr(13) & Chr(13) & _ "Wert aus Textdatei: " & WertAusTxT & Chr(13) & _ "Wert aus Exceldatei: " & WertAusExcel, vbInformation, "Ergebnis" Else MsgBox "Die Daten konnten nicht berechnet werden!" End If End If End Sub Function LeseZeile1(strPfad As String) As Double Dim sLine As String Dim F As Integer F = FreeFile Open strPfad For Input As #F Line Input #F, sLine Close #F sLine = Replace(sLine, " ", vbTab) If InStr(sLine, vbTab) > 0 Then sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab)) End If sLine = Replace(Trim$(sLine), ".", IIf("0.5" * 1 = 1, ".", ",")) If IsNumeric(sLine) Then LeseZeile1 = CDbl(sLine) End If End Function

Sub ExternerWert() Dim strPfad$, strDateiName, strTabelle$, strBezug$, strResultat$, strArg$ Dim xZahl As Single Application.ScreenUpdating = False ' Aus der geschlossenen Arbeitsmappe C:\TMP\Test.xls ' wird die Zelle AA2 als String eingelesen strPfad = "C:\TMP\" strDateiName = "Test.xls" strTabelle = "Tabelle1" strBezug = "$AA$2" ' Externen Bezug zur Abfrage zusammensetzen strArg = "'" & strPfad & "[" & strDateiName & "]" & strTabelle & _ "'!" & Range(strBezug).Range("A1").Address(, , xlR1C1) ' XLM-Makro ausfuehren strResultat = ExecuteExcel4Macro(strArg) ' in Zahl umwandeln xZahl = CSng(Trim(strResultat)) Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei in Excel einlesen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread