You are not logged in.

Objekt + items statisch deklarieren

wcf.regNote.message

Nouse4livE

Beginner

  • "Nouse4livE" started this thread

Posts: 2

Location: Bonn

  • Send private message

1

Monday, February 5th 2007, 2:32pm

Objekt + items statisch deklarieren

Hallo

ich habe ein Problem mit VBA

ich benutze in einem script ein Objekt dem ich mit einer schleife

ca 1100 items anfüge, jedes item bekommt dort auch noch einen string zugewiesen.

Leider dauerd das durchlaufen der schleife zu lange, und es sind auch immer die selben items mit den selben strings.

kennt jemand eine Möglichkeit mit der ich nicht bei jedem öffnen der form die Schleife benutzen muss, sondern das objekt und d1e items samt string quasi fest deklariere?

hier noch ein Be1spiel vom Code :

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

    Dim fds As Object
    Dim n As Long
    Dim offset As Long

    
'************************************************************************
' hier wird die FDS-Gruppe zusammengestellt
'************************************************************************

    Set fds = CreateObject("FixDataSystems.Intellution FD Data System Control")
    
    ' Add the Groups to the Groups-collection
    fds.groups.Add ("DataGroup1")
    
    For n = 1 To 60
    
        ' Add the items to the Group
        With fds.groups.Item("DataGroup1").dataitems
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC1_AISWV.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC2_AISWV.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC3_AISWV.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC4_AISWV.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC5_AISWV.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC6_AISWV.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_MFC7_AISWV.f_cv")
                    
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGK1_AIGWU.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGK1_AIGWI.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGK1_AIGWP.f_cv")
            
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGK2_AIGWU.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGK2_AIGWI.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGK2_AIGWP.f_cv")
            
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGA_AISWU.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_NGA_AISWI.f_cv")
                        
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_TMP1_AISWN.f_cv")
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_TMP2_AISWN.f_cv")
            
            .Add ("Fix32.HIPC.SCD_FACH" & n & "_KTH_AISOLLV.f_cv")
        End With
        
    Next n ' Faecher
    
'************************************************************************
' hier werden alle Sollwerte auf einmal von der SPS gelesen
'************************************************************************

    'Read all the items in the group
    fds.groups.Item("DataGroup1").Read

wcf.user.socialbookmarks.titel