|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Fehlermeldung "Too Many Local, Nonstatic Variables |
25.02.2009 14:04:13 |
Oliver |
|
|
|
26.02.2009 11:47:33 |
Holger |
|
|
|
26.02.2009 12:02:17 |
Oliver |
|
|
|
26.02.2009 13:57:33 |
Holger |
|
|
Von:
Oliver |
Datum:
25.02.2009 14:04:13 |
Views:
2294 |
Rating:
|
Antwort:
|
Thema:
Fehlermeldung "Too Many Local, Nonstatic Variables |
Hallo Leute,
ich möchte den Inhalt eines Sheets in ein (120x34)-Array einlesen und danach in einnn Binary File schreiben, siehe folgednen Quellcode:
Type Datensatz
RNumber(120, 34) As Double
End Type
Sub Binary_Write2()
Dim Satznummer As Integer
Dim DS1 As Datensatz
Dim z As Integer
Dim i As Integer
Dim j As Integer
' open binary file 1 with random access
Open "D:\random40000_131.dta" For Random As #1 Len = Len(DS1)
For z = 1 To 5
Calculate
' Reading into an Array
For i = 1 To 34
For j = 1 To 10
DS1.RNumber(j, i) = Sheets("simulation").Cells(j + 7, i + 1).Value
Next j
Next i
' Writing to output-file
Satznummer = z
Put #1, Satznummer, DS1 ' write record to file
Next z
Close #1 ' Datei schließen.
End Sub
Irgendwie macht dem Compiler die Type-Definition Probleme, dnen wenn ich das Array bis zu einer Grösse von (115x34) einrichte, funktioniert es. Ab (116x34) kommt die Fehlermeldung "Too Many Local, Nonstatic Variables"
Wie kann ich das Problem lösen? |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Fehlermeldung "Too Many Local, Nonstatic Variables |
25.02.2009 14:04:13 |
Oliver |
|
|
|
26.02.2009 11:47:33 |
Holger |
|
|
|
26.02.2009 12:02:17 |
Oliver |
|
|
|
26.02.2009 13:57:33 |
Holger |
|
|