VB und Excel

VB und Excel (12 Beiträge, 75 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

dere i versuch da grad VB zu programmieren.. i muß ein paar werte aus einer excel tabelle auslesen. derzeit versuch ich überhaupt nur mal das excel aufzumachen.
jedoch macht das Programm seltsame sachen.
PS: i programmier VB seit grad amal eine Woche und i kenn mi no ned aus
den code in der Private Sub Form_Load() hab ich aus dem tutorial VB in 21 tagen..

wenn ich das programm starte und die Private Sub Command1_Click() ausführe, dann startet er excel... bei funktSheet.WindowState = xlMaximized macht er mir das excel tatsächlich auf..
ich hab die If abfrage gemacht weil.. wenn ich das excel immer maximized oder normal oder minimized öffnen will, dann geht es nicht.. und ich weiß nicht wieseo..

manchmal passiert es daß er gar nix macht.. wenn ich in den taskmanager schau seh ich daß das excel schon rennt.. nur sehen tu ich davon, außer im taskmanager nix davon..

irgendeine idee was ich machen kann, daß er das excel immer maximized aufmacht?
und vielleicht auch eine existierende tabelle?
derzeit macht er mir nämlich immer eine neue auf.. und des bringt mir nix..

danke vielmals..
ich hoff ich habs nicht zu verwirrend geschrieben
cya
______________________________
***never touch a running system***
______________________________

wenns nicht unbedingt VB sein muss:
http://www.codeproject.com/csharp/csharp_excel.asp

ansonsten kann ich dir leider auch net helfen .. kein VB / Excel zum testen installiert

eine vorhandene müsstest du eigentlich mit
Set xlWB1 = xlApp.Workbooks.Open("e:\paige\vb program\delinquent.xls")

öffnen können ...
(nicht getestet)

Spezielle User: Fly, RealBorg, UMC, Wizard31, Glockman, Gilgalad, kgerstl, Xane, kaukus, Sondierungsgehilfe
Mut ist oft Mangel an Einsicht, während Feigheit nicht selten auf guten Informationen beruht. Sir Peter Ustinov

doch muß leider umbedingt VB sein...
leider keine andere wahl..

aber danke .. mit dem open gehts daß ich meine richtige Tabelle aufmache!

hast zufällig auch einen Plan wie ich das excel wieder komplett zumache, daß nicht nur das worksheet verschwindet sonder das excel auch wieder aus dem taskmanager verschwindet?
______________________________
***never touch a running system***
______________________________

try this:
xlApp.Quit
Set xlApp = Nothing

du könntest auch über die Winapi gehen und mittels des HAndles des Fensters dieses maximieren ....

aber die genauen methoden dazu müsst ich erst raussuchen .. ausserdem muss es da einen besseren weg geben

Private Sub btn_ExcelQuit_Click()
funktSheet.Quit
Set funktSheet = Nothing
End Sub

hmm nein bringt nix.. des excel rennt im hintergrund weiter...

naja i werd mal in meinem schlauen Buch weiterlesen... vielleicht find ichs.. oder vielleicht weiß es jemand andes.. aber danke auf jeden Fall.. hast mir sehr geholfen!
______________________________
***never touch a running system***
______________________________

wie sieht es denn aus in XL mit der sichtbarkeit von Variablen ...

Setze ganz an den Anfang mal ein

Option Explicit

dann musst du zwar alle Variablen deklarieren, aber es zeigt schnell Fehler auf ...

Ich glaube nämlich dass du auf 2 unterschiedliche Variablen zugreifst (die eben gleich heissen)

hänge das .Quit mal testweise direkt gleich ans starten dran (in die selbe Funktion) .. dann teste es einmal mit dem Quit (sollte nix zu sehen sein) und dann ohne das Quit (dann sollte es normal aufgehen)

Könnt was mit den Referenzen zu tun haben, die Links (via Google) handeln davon:

http://www.tushar-mehta.com/excel/vba/xl_doesnt_quit/
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_21125007.html

hey danke.. der erste link is super.. ich les mir das mal in aller ruhe durch
______________________________
***never touch a running system***
______________________________

Auf den ersten Blick seh ich keinen Fehler. Ich hätt mich ja damit gespielt, aber ich hab echt keine Lust den Code abzutippen.
Den Source als Bild hinzukleckern ist nicht besonders klug ...

ich kann ihn dir gerne posten..
so schaut das ganze jetzt aus...
wenn das excel ned rennt.. und ich starte das programm dann.. kanns sein daß es aufgeht und ich gleich meine tabelle seh.. ab und zu kommt die tabelle nicht, dann muß ich die excelBlenden funktion aufrufen und dann toggelt er zwischen maximiert und normal..

aber ich weiß weder wieso ich manachmal die tabelle gleich zu sehen kriege und manchmal nicht..

noch weiß ich wie ich das excel komplett beende..
vielleicht hast du eine idee..

Option Explicit
Dim blnRunning As Boolean

Dim funktSheet As Excel.Application

Private Sub btn_ExcelBlenden_Click()
    If funktSheet.WindowState = xlNormal Then
        funktSheet.WindowState = xlMaximized
    Else
        funktSheet.WindowState = xlNormal
    End If
End Sub

Private Sub Command1_Click()

    On Error Resume Next
    Set funktSheet = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set funktSheet = CreateObject("Excel.Application")
        blnRunning = False  'excel sollte gestartet werden
    Else
        blnRunning = True   'excel sollte bereits rennen
    End If

    Set funktSheet = funktSheet.Workbooks.Open("c:\Tuldi\WorkSheet.xls")
    funktSheet.WindowState = xlNormal

End Sub

Private Sub Form_Load()
    Err.Number = 0
End Sub

Private Sub mnu_Beenden_Click()
    End
End Sub
______________________________
***never touch a running system***
______________________________

das Programm stürzt nicht mehr ab und ich kann werte auslesen aus der tabelle...

danke euch beide.
bin mir aber sicher ich werd noch weiter nervern wenn ich weiterprogrammier.. jetzt geh i mal mittagessn
mahlzeit
______________________________
***never touch a running system***
______________________________

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung