Excel Problem

Re(8): Excel Problem

MidiFan — Tue, 22 Apr 2008 11:18:17 GMT

hi,eh, cool, sind mir die liebsten probleme, sie sich während der
mittagspause lösen

mir a

Re(7): Excel Problem

hariw — Tue, 22 Apr 2008 11:06:39 GMT

hi,

eh, cool, sind mir die liebsten probleme, sie sich während der mittagspause lösen

lg,
hariw

Re(2): Excel Problem

MidiFan — Tue, 22 Apr 2008 10:51:44 GMT

Danke!

so schauts jetzt aus und es funktioniert!

Dim tmp As Object
Set tmp = xlObj.Application
Set xlObj = Nothing
tmp.Quit

Re: Excel Problem

adhoc — Tue, 22 Apr 2008 08:54:57 GMT

irgendwie so mal probieren:

   tmp = xlObj.Application
   Set xlObj = Nothing
   tmp.Quit

oder beide zeilen auskommentieren

   xlObj.Application.DisplayAlerts = False
   xlObj.Application.Quit

??

Re(6): Excel Problem

MidiFan — Tue, 22 Apr 2008 08:48:42 GMT

Excel bleibt nun in einem normal geöffnetem fenster offen. 1 Excel Task
Ich will aber das es geschlossen wird...

Re(6): Excel Problem

MidiFan — Tue, 22 Apr 2008 08:48:42 GMT

Excel bleibt nun in einem normal geöffnetem fenster offen. 1 Excel Task
Ich will aber das es geschlossen wird...

Danke für deine Bemühungen!!!!
Edit:

hier die lösung:

http://forum.geizhals.at/t566584,4757649.html?sort=thread#4757649

Re(5): Excel Problem

hariw — Tue, 22 Apr 2008 08:42:50 GMT

hi,

kommentier mal die rote zeile & die davor aus ('), dann sollt das makro mal ohne meldung durch laufen...
jepp, und dann mal schaun, ob nach durchlauf mehrere excel tasks verbleiben als vorher da waren

lg,
hariw

Re(4): Excel Problem

MidiFan — Tue, 22 Apr 2008 08:19:33 GMT

du meinst eine zweiter task ausser dem neuen excel task der durch den fehler geöffnet wird?

nein.

Re(3): Excel Problem

hariw — Tue, 22 Apr 2008 08:13:23 GMT

hi,

verbleibt eine "überflüssige" excel application? (taskmanager)

lg,
hariw

Re(2): Excel Problem

MidiFan — Tue, 22 Apr 2008 08:11:19 GMT

mhm, klingt logisch. wüsstest du einen workaround?

Re: Excel Problem

hariw — Tue, 22 Apr 2008 08:09:47 GMT

hi,

weil xlObj keine excel.application is sondern scheinbar eine ole verlinkte tabelle in einem doc - daher auch kein application.quit

lg,
hariw

Excel Problem

MidiFan — Tue, 22 Apr 2008 08:04:23 GMT

' Ausgabe in Word-Dokument starten
Private Sub PrintExcel(excelStr As String, ByVal lines As Integer, ByVal frequency As Double)
Dim Mldg, Stil, Titel, Antwort
Dim z As Integer        ' Schleifenzähler

Dim wdApp As Word.Application
Dim xlObj As Object
'Dim xlObj As Excel.Application

Dim myRange
Set wdApp = New Word.Application

    Screen.MousePointer = vbHourglass

    With wdApp
        .Documents.Add Template:=App.Path & "\DATA\BOLZEN.doc"
        .ActiveDocument.InlineShapes(1).OLEFormat.DoVerb wdOLEVerbOpen
        Set xlObj = .ActiveDocument.InlineShapes(1).OLEFormat.object
    End With

    With xlObj
        If lines = 11 Then
            xlObj.ActiveSheet.Rows("30:30").Select
            .ActiveSheet.Rows(30).EntireRow.Delete
        End If

        xlObj.ActiveSheet.Cells(27, 2).Select
        excelStr = PointCommaStrConvert(excelStr)
        Clipboard.Clear
        Clipboard.SetText excelStr
        xlObj.ActiveSheet.Paste
        Clipboard.Clear
        xlObj.ActiveSheet.Cells(1, 1).Select

Dim maxScale As Integer
Dim maxUnit As Double

        .ActiveSheet.ChartObjects("Diagramm 2").Activate
        .ActiveChart.ChartArea.Select
        .ActiveChart.Axes(xlValue).Select
        With .ActiveChart.Axes(xlValue)
            .MinimumScale = 0
            maxScale = .MaximumScale
            .MaximumScale = (Int(maxScale / frequency) + 1) * frequency
            .MinorUnit = frequency
            maxUnit = (Int(.MaximumScale / frequency / 10)) * frequency 'max 10 Linien für y-Achse
            If maxUnit > frequency Then
                .MajorUnit = maxUnit
            Else
                .MajorUnit = frequency
            End If
            .Crosses = xlCustom
            .CrossesAt = 0
            .ReversePlotOrder = False
            .ScaleType = xlLinear
            .DisplayUnit = xlNone
        End With
        .ActiveChart.SeriesCollection(1).Name = "=""Vorspannkraft"""
    End With

    xlObj.Application.DisplayAlerts = False
   xlObj.Application.Quit
    Set xlObj = Nothing

    wdApp.Visible = True

    With wdApp
        Set myRange = .ActiveDocument.Paragraphs(.ActiveDocument.Paragraphs.Count).Range
        .ActiveDocument.InlineShapes.AddPicture _
            FileName:=TempDir & "\ActiveWindow.BMP", _
            LinkToFile:=False, SaveWithDocument:=True, Range:=myRange
    End With

    Kill TempDir & "\ActiveWindow.BMP"
    Set wdApp = Nothing
    Screen.MousePointer = vbDefault
End Sub

in der zeile mit der roten schrift stürzt das excel ab und will einen fehlerbericht senden.
kann mir jemand sagen wo das problem liegt?