---

Berechnung.zip

Hallo miteinander,

ich möchte aus einer Berechnung verschiedene Werte auslesen und diese verwenden um ein 3D-Modell anzupassen.

das klappt auch alles ohne probleme soweit.
Das einzigste was micht stört ist, das es extrem lange brauch um die Werte aus excel zu lesen.

Es muss an der Exceldatei liegen, denn sonst dauert das nichtmal ne sekunde....

Ich habe die Excel-Datei mal hochgeladen....

Ich habe auch mal versucht die ganzen Infor zu makieren und anschließen in eine andere Tabelle einzufügen....
wenn es normal einfür bleibt alles...
wenn ich auf nur Werte einfügen gehen und dann die abfrage starte dauret es nicht mal ne sekunde....

Weis jemand woran das liegen könnte und vorallem wie ich das mit Code beheben kann.

und das ist mein Code:

        Dim OpenFileDialogBerechnung As OpenFileDialog = New OpenFileDialog
        Dim PfadBerechnung As String
        OpenFileDialogBerechnung.InitialDirectory = "S:\Austausch\Fiedler\Diplomarbeit\Berechnungen"

        If OpenFileDialogBerechnung.ShowDialog() = DialogResult.OK Then

            PfadBerechnung = OpenFileDialogBerechnung.FileName
         

            'abfrage in excel
            Dim oExcel As Excel.Application
            Dim oBook As Excel.Workbook

            oExcel = New Excel.Application
            oBook = oExcel.Workbooks.Open(PfadBerechnung)
            With oBook.Sheets("Tabelle1")

                Try

                    Anschluss1 = Mid(.Cells(11, 4).VALUE, Len(.Cells(11, 4).Text) - 2, 1)
                    Anschluss2 = Mid(.Cells(11, 4).TEXT, Len(.Cells(11, 4).Text), 1)

                    DN = .Cells(35, 3).Text
                    PN = .Cells(35, 5).Text
                    Bl = .Cells(35, 7).Text

                    MatBalg = Mid(.Cells(36, 3).Text, 1, InStr(.Cells(36, 3).Text, " "))

                    HubAx = .Cells(37, 3).Text
                    HubLat = .Cells(37, 5).Text
                    HubAng = .Cells(37, 7).Text

                    Betriebstemperatur = Mid(.Cells(38, 3).Text, 2, InStr(.Cells(38, 3).Text, "°") - 1)
                    Betriebsdruck = Mid(.Cells(38, 5).Text, 2, InStr(2, .Cells(38, 5).Text, " ") - 1)
                    Prüfdruck = Mid(.Cells(38, 7).Text, 2, InStr(2, .Cells(38, 7).Text, " ") - 1)

                    If .Cells(40, 3).Text.ToString.Contains("x") Then
                        Bx = Mid(.Cells(40, 3).Text, 2, InStr(2, .Cells(40, 3).Text, " ") - 1)

                    Else

                        Bx = .Cells(40, 3).Text
                    End If

                    BLz = Mid(.Cells(40, 5).Text, 2, InStr(2, .Cells(40, 5).Text, " ") - 2)

                    HilfBws = Mid(.Cells(40, 5).Text, InStr(.Cells(40, 5).Text, "x") + 2)
                    If HilfBws.Contains(".") Then
                        BWs = HilfBws.Replace(".", ",")
                    Else
                        BWs = HilfBws
                    End If

                    hilfbgl = Mid(.Cells(40, 8).Text, 2, InStr(2, .Cells(40, 8).Text, " ") - 2)
                    If hilfbgl.Contains(".") Then
                        bgl = hilfbgl.Replace(".", ",")
                    Else
                        bgl = hilfbgl
                    End If

                Catch ex As Exception
                    MsgBox("Fehler ")
                End Try

            End With
            oBook.Close(False) : oBook = Nothing
            oExcel.Quit() : oExcel = Nothing

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

[Diese Nachricht wurde von Fiedel93felix am 13. Jul. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey Felix,

ich hab den Verdacht, dass bei jeder Zelle, die du abfragst, das Excelblatt neuberechnet wird. Du kannst ja mal versuchen, die automatische Berechnung auf dem Blatt aus zu schalten und schauen, wie es sich dann mit der Geschwindigkeit verhält.
Sonst kann ich am Code selber nichts sehen, weshalb es lange dauern könnte.

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Erstmal danke für die Antwort.. 

ja ich denke auch das es nicht code liegt, dann müsste es ja bei jeder Exceldatei langsam sein....

hab ich versucht aber bringt nicht, es sind ja auch nirgends funktionen in der Zellen hinterlegt....

ich vermute das es was mit dem Makro zu tun hat was hinterlegt ist...aber ich bin mir nicht sicher...

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ist vielleicht ein Macro drinnen, das bei Veränderung an den Zellen, das ganze Blatt neu durchrechnet?

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Okay ich hab den Grund für die Verzögerung gefunden....

In der Tabelle sind externe Abfragen enthalten....

Wenn ich die händisch vorher lösche geht alles.

ich kann die aber nicht immer alle händisch löschen, daher hab ich nach einem Code gesucht...
für Excel habe ich da den hier gefunden:

Sub DeleteAllQueries()

    Dim qt As QueryTable
    Dim WSh As Worksheet

    For Each WSh In ThisWorkbook.Worksheets
          For Each qt In WSh.QueryTables
              qt.Delete
          Next qt
    Next WSh

End Sub

in Excel funktioniert er auch super.

dann hab ich den für meine Anwendung nehmen wollen:

     
            Try

                Dim qt As Excel.QueryTable
                Dim WSh As Excel.Worksheet
             

                For Each WSh In oBook.Sheets("Tabelle1")
                   
                    For Each qt In WSh.QueryTables
                       
                        qt.Delete()
                       
                    Next qt
                Next WSh
            Catch ex As Exception
                MsgBox("Fehler")
            End Try

in der Zeile haut es ihn raus....

kann mir da jemand weiterhelfen

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In welcher Zeile hauts ihn raus?

Hab mal den Code ein bisschen gekürzt:

Code:

---

          Try

                Dim qt As Excel.QueryTable

                    For Each qt In oBook.Sheets("Tabelle1").QueryTables
                       
                        qt.Delete()
                       
                    Next qt
            Catch ex As Exception
                MsgBox("Fehler")
            End Try

---

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ja ich hab aucxh grad gemerkt das der Code zu lang ist und ein fehler drin war,
jetzt nach dem kürzen sieht er genau so aus wie deiner....

jetzt geht er auch aber er sucht ewig....

Wenn ich den Code direkt in Excel starte dauert es nichtmal ne Sekunde und er ist fertig und hat alle gelöscht...

Wie kommt das?

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das kann ich dir leider auch nicht genau sagen, warum er da so ewig rummacht. Hab ich aber auch manchmal.

Was du noch probieren kannst wäre:

Code:

---

for each qt in oBook.ActiveSheet.QueryTables

---

ist bei mir manchmal etwas schneller...

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ne bringt leider nichts...hm mist naja da muss ich mir was anderes überlegen

Muss ich mal klären warum da überhaupt tausende externe Abfragen drin sind...

trotzdem danke chris 

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wie immer: kein Problem 

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also ich muss mich doch nochmal an euch wenden.

Und zwar hab ich mit gedacht:
Wenn die Abfrage aus meinem externen Programm so lange dauert und der gleiche Code in einem Makro von Excel so schnell ist, warum füge ich nicht einfach mit hilfe meines Programmes ein neues Makro in die Exceldatei ein.
Und führe das dann aus....

Soweit der Plan.
es klappt auch soweit mit einfügen von einem neuen Makro.
Das Problem ist nur ich kann das Makro nicht ausführen...
Weiß jemand woran das liegen kann ?

Code:

        If OpenFileDialogBerechnung.ShowDialog() = DialogResult.OK Then

            PfadBerechnung = OpenFileDialogBerechnung.FileName

            ' PfadBerechnung = "S:\Austausch\Fiedler\Diplomarbeit\Berechnungen\Test.xlsm"

            Dim MakroCode As String

            MakroCode = "Sub ExterneAbfragenLöschen()" & vbCrLf & _
                "Dim qt As QueryTable" & vbCrLf & _
                "Dim WSh As Worksheet" & vbCrLf & _
                "For Each WSh In ThisWorkbook.Worksheets" & vbCrLf & _
                "For Each qt In WSh.QueryTables" & vbCrLf & _
                "qt.Delete" & vbCrLf & _
                "Next qt" & vbCrLf & _
                "Next WSh" & vbCrLf & _
                "MsgBox(""Fuck jear  "")" & vbCrLf & _
                "End Sub"

            'abfrage in excel
            Dim oExcel As Excel.Application
            Dim oBook As Excel.Workbook
            Dim oExcelApp As New Excel.Application

            oExcel = New Excel.Application
            oBook = oExcel.Workbooks.Open(PfadBerechnung)
            With oBook.Sheets("Tabelle1")

                Try
                    Dim oModule As VBIDE.VBComponent
                    oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule)
                    oModule.CodeModule.AddFromString(MakroCode)
                    MsgBox("1")
                    oExcelApp.Run("ExterneAbfragenLöschen")
                Catch ex As Exception
                    MsgBox("Fehler: " & ex.Message)
                End Try

            End With
            oBook.Save()
            oBook.Close(False) : oBook = Nothing
            oExcel.Quit() : oExcel = Nothing

Es kommt die Fehlermeldung:
Das Makro 'ExteneAbfragenLöschen' kann nicht ausgeführt werden. Das Makro ist möglicherweiße in dieser Arbeitsmappe nicht verfügbar, oderalle Makros wurden deaktiviert.

Aber wenn ich die Exceldatei öffne ist das Makro drin und ich kann es ausführen!
Mach ich vielleicht irgendwas falsch beim ausführen?

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Fiedel93felix:
            'abfrage in excel
            Dim oExcel As Excel.Application
            Dim oBook As Excel.Workbook
            Dim oExcelApp As New Excel.Application

            oExcel = New Excel.Application
            oBook = oExcel.Workbooks.Open(PfadBerechnung)
            With oBook.Sheets("Tabelle1")

                Try
                    Dim oModule As VBIDE.VBComponent
                    oModule = oBook.VBProject.VBComponents.Add(VBIDE.vbext_ComponentType.vbext_ct_StdModule)
                    oModule.CodeModule.AddFromString(MakroCode)
                    MsgBox("1")
                    oExcelApp.Run("ExterneAbfragenLöschen")
                Catch ex As Exception
                    MsgBox("Fehler: " & ex.Message)
                End Try

            End With
            oBook.Save()
            oBook.Close(False) : oBook = Nothing
            oExcel.Quit() : oExcel = Nothing

---

Ich bin mir jetzt nicht sicher, aber müsste da nicht oExcel.Run(...) stehen?

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

siehst du Chris und schon bin ich Glücklich 

Sinnlos immer sind es solche kleinen Mistfehler die einen Stundenlang aufhalten... 

------------------

----------------------------------
Mit freundlichen Grüßen

Felix

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das spiel kenne ich irgendwoher 

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP