Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zugriff verweigert...

Zugriff verweigert...
28.08.2003 15:09:11
Daniel G
Hallo.

Ich ver such mithilfe des untenstehenden Codes ne Datei zu speichern, krieg aber die Meldung "Zugriff verweigert".
Ein Schutz ist nicht vorhanden, daran kann es also nicht scheitern.
Ich versteh's einfach nicht.

Kann mir da jmd helfen?

Thx daniel

Private Sub Kopieren_ausgewählter_Bereich_Click()

Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim w As Worksheet
ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\.....\test2.xls"
SendKeys "~" 'enter
Set wks2 = ActiveWorkbook.Sheets(1)
Worksheets("Tabelle1").Range("A1:Q30").Delete
ActiveWorkbook.SaveAs <== hier kommt die Meldung "Zugriff verweigert"
ActiveWorkbook.Close
SendKeys "~" 'enter

ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\.....\test1.xls"
SendKeys "~" 'enter

Set wks1 = ThisWorkbook.Sheets(1)
Sheets("Tabelle1").Range("A1:q30").Select
Selection.Copy

ChDir "M:\Praktikanten\Goldmann\"
Workbooks.Open FileName:="\\.....\test2.xls"
SendKeys "~" 'enter
Set wks2 = ActiveWorkbook.Sheets(1)

Sheets("Tabelle1").Range("A1:q30").Select
Selection.PasteSpecial Paste:=xlValues
Selection.PasteSpecial Paste:=xlFormats

ActiveWorkbook.SaveAs
SendKeys "~" 'enter
ActiveWorkbook.Close

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff verweigert...
28.08.2003 15:14:40
GerdW
Hinter SaveAs muss ein Pfad angegeben sein.

Gerd
AW: Zugriff verweigert...
28.08.2003 15:28:21
Daniel G
Alles klar.

Ich hätte ja vielleicht auch lesen können, was in dem "unscheinbaren" schwazen Balken steht;))

Thx Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige