VBA drag-and-drop-Datei Benutzer Formular aus, um den Dateinamen und den Pfad

Ich herausgefunden, einen Weg, dies zu erreichen. Soweit ich sagen kann, es nur getan werden kann mithilfe eines treeview-Steuerelements. Sie müssen möglicherweise Rechtsklick auf die toolbox zu finden und fügen Sie es hinzu. Es wird dort unter "zusätzliche Steuerelemente" oder so ähnlich. Sie müssen zwei Dinge neben der Kontrolle.

In der UserForm_Initialize sub benötigen Sie die folgende Zeile von code zu ermöglichen, drag und drop: TreeView1.OLEDropMode = ccOLEDropManual:

UserForm_Initialize()
    TreeView1.OLEDropMode = ccOLEDropManual
End Sub

Dann brauchen Sie die Private Sub TreeView1_OLEDragDrop Veranstaltung. Habe ich es unterlassen alle Parameter, um Platz zu sparen. Sie sollte einfach genug zu finden. In diesem sub deklarieren Sie einfach eine Zeichenfolge, vielleicht strPath oder so etwas, halten Sie den Dateinamen und Pfad, und legen strPath = Data.Files(1) - und das wird der Datei-name und Pfad einer Datei, die der Benutzer zieht, um das TreeView-Steuerelement. Dies setzt Voraus, dass der Benutzer nur zieht eine Datei auf einmal, aber soweit ich sagen kann, dies sollte etwas, das getan werden kann, ziehen Sie mehrere Dateien, wenn Sie Experimentieren.

Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    StrPath = Data.Files(1)
End Sub

Edit: müssen Sie auch fügen Sie einen Verweis auf Microsoft Windows Common Controls 6.0

Außerdem habe ich Beispiel-code.

Ich habe es zu arbeiten, indem Sie die Anwendung Ereignis WorkbookOpen. Wenn eine Datei bekommt, gezogen auf ein geöffnetes Excel-Sheet wird es versuchen, öffnen der Datei in Excel als separate Arbeitsmappe, die auslösen würde, die den oben genannten Ereignis. Es ist ein bisschen wie ein Schmerz, aber ich habe diesen link https://bettersolutions.com/vba/events/excel-application-level-events.htm als Referenz.

Einzige Problem ist, dass wenn die Datei nicht in eine Excel-Datei, dann wird es ein popup und Sie können nicht führen Sie eine VBScript-um es loswerden, da das Ereignis nicht ausgeführt, bis Sie die Adresse der popup. Ein Teil von meinem code unten:

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)

Dim path, pathExt As String
path = Wb.Name
pathExt = Mid(path, InStrRev(path, "."))

If pathExt = ".pdf" Then
Application.DisplayAlerts = False
Workbooks(Wb.Name).Windows(1).Visible = False

Dim n As String
n = Wb.FullName

Wb.Close

Call DragnDrop.newSheet(n)

Application.DisplayAlerts = True

End If

End Sub

Bearbeiten:
Vergessen, dass Sie brauchen, um die Anwendung zu initialisieren Veranstaltungen durch Buchung den folgenden code in einem beliebigen Modul

Option Explicit
'Variable to hold instance of class clsApp
Dim mcApp As clsApp

Public Sub Init()
    'Reset mcApp in case it is already loaded
    Set mcApp = Nothing
    'Create a new instance of clsApp
    Set mcApp = New clsApp 'Whatever you named your class module
    'Pass the Excel object to it so it knows what application
    'it needs to respond to
    Set mcApp.App = Application  'mcApp.Whatever you named this Public 
'WithEvents App As Application
End Sub

Und fügen Sie diesen code in DieseArbeitsmappe Workbook_Open()

'Initialize the Application Events
Application.OnTime Now, "'" & ThisWorkbook.FullName & "'!Init"