Zugriff verweigert...
28.08.2003 15:09:11
Daniel G
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