Microsoft Excel

Herbers Excel/VBA-Archiv

Zugriff verweigert...

    Betrifft: Zugriff verweigert... von: Daniel G
    Geschrieben am: 28.08.2003 15:09:11

    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

      


    Betrifft: AW: Zugriff verweigert... von: GerdW
    Geschrieben am: 28.08.2003 15:14:40

    Hinter SaveAs muss ein Pfad angegeben sein.

    Gerd


      


    Betrifft: AW: Zugriff verweigert... von: Daniel G
    Geschrieben am: 28.08.2003 15:28:21

    Alles klar.

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

    Thx Gerd


     

    Beiträge aus den Excel-Beispielen zum Thema " Zugriff verweigert..."