1
Abra su software de programación VBA y el archivo VBA que desea editar .
2
Incluir el archivo DLL cáscara en la parte superior de su código. Agregue la siguiente instrucción al archivo:
Private Declare Function DragQueryFile Lib " shell" ( ByVal wParam As Integer , Index ByVal As Integer , ByVal lpszFile Como Any, ByVal BufferSize As Integer ) As
Integer < p> debe copiar y pegar la declaración anterior tal y como se muestra , ya que cada una de estas frases y valores de retorno se definen en el archivo DLL de API de Windows.
3
Agregar la función VBA que los procesos de proceso de arrastrar y soltar del usuario utilizando la API de Windows . Copia y pega el siguiente código al archivo :
drop.MsgList ( 0 ) = WM_DROPFILESdrop.hWndTarget = Me.hWnddrop.MsgPassage ( 0 ) = 1DragAcceptFiles Me.hWnd , Verdadero
4 < p> Guarde el archivo y haga clic en el botón "Ejecutar " en el editor de probar el nuevo código en el depurador.