Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

GetRows um Text aus Tabellen auszulesen und in eine Textdatei zu speichern
Autor: niggo
Datum: 15.02.05 18:57
Hallo, ich arbeite mit VBA in ArcMap. Ich möchte Daten aus verschiedenen Zeilen einer Tabelle auslesen und in eine Textdatei einfügen. Der code den ich bisher hab sieht folgendermaßen aus:   Function GetRows() As String Dim myApp As IApplication Dim myDoc As IMxDocument Dim myTabWin As ITableWindow Dim myTab As ITable Dim myLay As IFeatureLayer2 Dim myRow As IRow Dim myRowList As Long Dim MyRowListCount As Long Dim myCursor As ICursor MyRowListCount = 2 ReDim myRowList(MyRowListCount) myRowList(0) = 0 myRowList(1) = 1 Set myCursor = myTab.GetRows(myRowList, True) Set myRow = myCursor.NextRow Set myApp = Application Set myDoc = ThisDocument Set myTabWin = New TableWindow Set myLay = myDoc.SelectedLayer Set myTab = myLay 'Set myRow = myTab.GetRow(0) Set myTabWin.Table = myTab Set myTabWin.Application = myApp While Not myRowList Is Nothing Open "M:\VBA\TestText4.txt" For Output As #1 Print #1, myRow.Value(2) Close #1 Set myRow = myCursor.NextRow Wend End Function   Allerdings stimmt da wohl was mit dem Array nicht, die Fehlermeldung lautet Datenfeld erwartet. Weiß jemand was das Problem sein könnte? Vielen Dank schonmal, Nico

GetRows um Text aus Tabellen auszulesen und in eine Textdate...

988

niggo

15.02.05 18:57

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen