2.2k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo,

ich bekomme diese Fehlermeldung
(Laufzeitfehler ´91 Objektvariable oder With-Blockvariable nicht festgelegt).Kann mir einer da weiterhelfen.
Im Intranet öffne ich die Datei.
Die Datei wird aber in Internet Explorer angezeit.

Hier der Code

Private Sub CommandButton2_Click()

dateiname = "Auftrag DSL-Install-Service"
Dateipfad = "C:\temp\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Dateipfad & dateiname <--- hier bekomme ich die Fehlermeldung


Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "XXX@XXX.net"
'Betreff
.Subject = "Auftragsformular"
'Nachricht
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add "c:\temp\" & dateiname & ".xls"
.Send
End With
Set olApp = Nothing

End Sub

Gruß, Blackcaty

7 Antworten

0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo Blackcaty,

ich würde zuerst mal darauf tippen, dass Du beim Dateinamen keine Dateinedung, z.B. ".xls" mit angegeben hast.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von
Hallo Coros,

die Datei hat eine Endung "Auftrag_Service.xls"

oder meinst du ich muss es in vba code eintragen ? wenn ja, wo ?

Gruß Blackcaty
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo ,

Du sagst in der Zeile

ActiveWorkbook.SaveAs Dateipfad & dateiname
das die Datei im Pfad von "Dateipfad" und unter dem Namen von "dateiname" abgespeichert werden soll. Den Wert für "dateiname" vergibst Du in der Zeile

dateiname = "Auftrag DSL-Install-Service"
und dort fehlt eben die Dateiendung ".xls". Demnach müsste der Befehl

ActiveWorkbook.SaveAs Dateipfad & dateiname
folgendermaßen lauten:

ActiveWorkbook.SaveAs Dateipfad & dateiname & ".xls"


MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von
geht leider immer noch nicht
Laufzeitfehler `91

hast du vielleicht noch eine andere Idee ?
0 Punkte
Beantwortet von coros Experte (4k Punkte)
Hallo,

also bei mir funktioniert Dein Makro. Eventuell liegt es an Deiner Datei. Schließe diese mal und starte sie erneut und teste dann mal.

Ansonsten wäre es hilfreich, wenn man Deine Datei bekommen könnte. Wenn es Dir möglich ist, dann lade doch mal Deine Datei bei http://www.file-upload.net/ hoch und poste hier den Link, den Du erhälst. Dann kann man mal sehen, ob der Fehler auch woanders auftritt.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
0 Punkte
Beantwortet von
Hallo Coros,

das Problem ist das die Datei gleich unter Internet Explorer öffnet.
Wie schon gesagt, die Datei lade ich im INTRANET runter.

Unter Excel funzt es auch.

Kann es daran liegen, das das Verzeichnis gewechselt werden muss?

http://intranet.XXX.net/uploads/media/Auftrag_Install-Service_GK_04.xls
0 Punkte
Beantwortet von
hat noch jmd. vielleicht eine Idee ?
...