Textbox/Userform Usuario y Contraseña
Publicado por ruben (1 intervención) el 13/10/2017 21:52:22
Buenas tardes, estoy trabajando en un código que llama a un servidor de ISeries y me descarga un archivo en excel. He conseguido hacerlo para un usuario concreto indicando en el código el usuario y la contraseña del mismo. Pero quiero que sea un archivo que puedan utilizarlo varios usuarios. ¿como podría hacer para relacionarlo con un Texbox o Userfom que pida el usuario y contraseña? Muchas Gracias
Adjunto el código:
Adjunto el código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim mysystem As New cwbx.AS400System 'Se declara el sistema al que llamará la macro
Dim bajararchivo As New cwbx.DatabaseDownloadRequest 'Se declara el objeto bajararchivo como petición de descaga
'Comienzo la subrutina
Sub bajararchivoAS400()
Set bajararchivo = New cwbx.DatabaseDownloadRequest
'Se definen los datos de la máquina
mysystem.Define "SINSCEE.DQB.COM"
mysystem.UserId = "Usuario"
mysystem.Password = "Contraseña"
Set bajararchivo.system = mysystem
bajararchivo.AS400File = "LP.LGF/GOAR" 'nombre del archivo
bajararchivo.pcFile = "C:\Users\rgumdrr\Desktop\MacroISeries\MastroArticulos\MaestroArticulos.xls" 'ruta donde bajar
bajararchivo.pcFile.FileType = cwbdtBIFF8 'tipo de archivo
bajararchivo.Download 'ejecuto la descarga
End Sub
Valora esta pregunta
0