MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.05.2019, 20:43   #1
Louislitt
Neuer Benutzer
Neuer Benutzer
Standard VBA - Verschieben einer PDF in einen anderen Ordner

Hallo,

ich habe folgenden Code. Mein Ziel ist es einen Daten im Explorer zu öffnen und anschließend in einen vorgegebenen Ordner zu schieben und im Ausgangsordner zu löschen. Mein Code erzeugt den Laufzeitfehler 76,Pfad nicht gefunden. kann mir jemand sagen wo die bug ist ?

Code:

Public Sub Verschieben()
   
    Dim AblageZiel As String
    Dim objFSO As Object
    Dim aString As String
    Dim FreieZeile As Integer
    
    
    aString = Datei_gew?hlt("C:Users*.pdf")
    
   
    If Dir(aString) = "" Then MsgBox "Keine Datei ausgew?hlt!": Exit Sub
    AblageZiel = "C:Users...DesktopVBA"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.MoveFile aString, AblageZiel
    Set objFSO = Nothing
    
    FreieZeile = ActiveSheet.Cells(Rows.Count, "BS").End(xlUp).Row + 1
    Cells(FreieZeile, "A ").Value = aString
End Sub

Function Datei_gew?hlt(InitialFileName As String, Optional Title As String) As String

    Dim objFiledialog As FileDialog

    Set objFiledialog = Application.FileDialog(msoFileDialogOpen)

    With objFiledialog
        .Title = Title
        .AllowMultiSelect = False
        .InitialFileName = InitialFileName
        If .Show = True Then
            Datei_gew?hlt = .SelectedItems(1)
        End If
    End With
    Set objFiledialog = Nothing
End Function
Louislitt ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.05.2019, 22:58   #2
Mase
MOF User
MOF User
Standard

Hi,

wenn Du im VBA-Editor in Einzelschritten durchgehst , siehst du wo der Fehler entsteht.

__________________

gruß
Marco
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 07:43   #3
Louislitt
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

der Fehler liegt in dieser Zeile.


objFSO.MoveFile aString, AblageZiel

Fehlermeldung 70: Zugriff verweigert. Wer kann helfen?
Louislitt ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 08:36   #4
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin,

>> Wer kann helfen?

nur Du allein. Wer soll denn wissen, warum Du auf Ablageziel nicht zugreifen darfst?

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 09:42   #5
Mase
MOF User
MOF User
Standard

Dir fehlen die NTFS-Recht um die Datei speichern.
Um das zu belegen ändere den Inhalt mal wie folgt ab:
Code:

 AblageZiel = "C:\Users\Public\Documents\"

__________________

gruß
Marco
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.05.2019, 17:35   #6
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard

Moin,
Code:

AblageZiel = "C:Users...DesktopVBA"
sollte mich wundern, wenn das ein gültiger Pfad wäre.

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:23 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.