Visual Basic para Aplicaciones - Textbox/Userform Usuario y Contraseña

Life is soft - evento anual de software empresarial
 
Vista:

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:
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder