Thema Datum  Von Nutzer Rating
Antwort
11.01.2010 13:43:40 Vinn
NotSolved
Blau Aw:Frage zu Dateiverarbeitung
 15.01.2010 09:29:09 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
15.01.2010 09:29:09		 Views:
721		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Frage zu Dateiverarbeitung
Hallo Finn,
'Get#' wird für Dateien mit fester Datensatzlänge, deren Struktur im Allgemeinen als 'Type' festgelegt wird, verwendet. Solche Dateien werden im Allgemeinen mit der Zugriffsart 'Random' geöffnet.
Liegt aber eine sequenzielle Datei vor, wird nicht 'Get#', sondern 'Input#' oder 'Line Input#' zum Einlesen der Daten verwendet.
Dieh am Besten unter diesen Stichwörtern in der VBA-Hilfe nach.
Gruß
Holger

Vinn schrieb am 11.01.2010 13:43:40:

Hallo,
ich möchte aus einer .txt Datei werte ausgegeben bekommen.
Ich habe nun schon einige zeit probiert und recherchiert doch leider kann ich den fehler nicht entgültig finden.
Ich hoffe mal nicht das es an Excel 2007 liegt?

Ich danke für schnelle hilfe.


Option Explicit
Sub vba()

Dim durchschnitt As Double
Dim menge As Double
Dim kumm_menge As Double
Dim summe As Double
Dim nummer As Double
Dim ln As Double

durchschnitt = 0
menge = 0
kumm_menge = 0
summe = 0


Open "C:\Dokumente und Einstellungen\KA2289\Desktop\mappe1vba.txt" For Input As #1

Do While Not EOF(1)
Get #1, nummer, menge


If nummer = ln Then
kumm_menge = kumm_menge + menge
End If

summe = summe + 1

Loop
Close #1

durchschnitt = kumm_menge / summe


Debug.Print "die kumm_Menge ist: " & kumm_menge
Debug.Print "der durchschnitt beträgt: " & durchschnitt
Debug.Print "Anzahl der Elemente insgesamt: " & summe

End Sub



Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.01.2010 13:43:40 Vinn
NotSolved
Blau Aw:Frage zu Dateiverarbeitung
 15.01.2010 09:29:09 Holger
NotSolved