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

Val: 2

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

'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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 8

Val: 115

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.

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar