Visual Basic para Aplicaciones - como abrir distintos archivos excel desde un formulario realizado en VISUAL BASIC

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 2 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

como abrir distintos archivos excel desde un formulario realizado en VISUAL BASIC

Publicado por Maria Rosario (2 intervenciones) el 13/02/2019 19:14:42
BUENAS TARDES, tengo un listbox con distintas áreas de un sistema, y a su vez estas áreas q están seleccionadas en carpetas, puedo abrir las carpetas con un código de VB

pero cuando quiero elegir abrir archivos Excel almacenados en un área respectiva nose como hacerlo

si alguien me podría ayudar por favor, hay codigos de abrir excels en especifico
pero cuando se trata de distintos archivos Excel y los selecciono para abrir el cofigo no me sale

usaba este código

1
2
3
4
5
6
7
8
'Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'    If ComboBox1.Text = "" Then
'        MessageBox.Show("Seleccione el archivo!!!")
'    Else
'        System.Diagnostics.Process.Start("D:\ADF\" + ComboBoxAREA.Text)
'        'Process.Start("excel", ComboBox1.Text)
'    End If
'End Sub



pero no me sale
algún otro código para abrir distintosarchivos Excel?
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
Imágen de perfil de Norberto
Val: 112
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

como abrir distintos archivos excel desde un formulario realizado en VISUAL BASIC

Publicado por Norberto (34 intervenciones) el 19/02/2019 14:22:48
Hola.

Yo uso ShellExecute para abrir cualquier tipo de archivo. Prueba a poner este código en un módulo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
 
Const SW_SHOWDEFAULT = 10
Const SE_ERR_FNF = 2&
Const SE_ERR_PNF = 3&
Const SE_ERR_ACCESSDENIED = 5&
Const SE_ERR_OOM = 8&
Const SE_ERR_DLLNOTFOUND = 32&
Const SE_ERR_SHARE = 26&
Const SE_ERR_ASSOCINCOMPLETE = 27&
Const SE_ERR_DDETIMEOUT = 28&
Const SE_ERR_DDEFAIL = 29&
Const SE_ERR_DDEBUSY = 30&
Const SE_ERR_NOASSOC = 31&
Const ERROR_BAD_FORMAT = 11&
 
Private Declare Function GetDesktopWindow Lib "user32" () As Long
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpszOp As String, _
     ByVal lpszFile As String, ByVal lpszParams As String, _
     ByVal LpszDir As String, ByVal FsShowCmd As Long) _
     As Long
 
Function StartDoc(DocName As String) As Long
    Dim Scr_hDC As Long
    Scr_hDC = GetDesktopWindow()
    StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
    "", "C:\", SW_SHOWDEFAULT)
 
End Function

Para abrir el archivo de excel usa StartDoc NombreDelArchivo.

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar