Cómo crear un sistema de inicio de sesión de usuario en el sistema VB, solicite el código fuente de programación y la interfaz de diseño

Subcomando privado1_Click()

Atenuar xlApp como Excel.Aplicación

Atenuar xlBook como Excel.Workbook

Atenuar xlSheet como Excel. Hoja de trabajo

Dim I,J AS Integer

Establecer xlApp = CreateObject("Excel.Application")

Dim ss As String

CommonDialog1.ShowOpen

Ain = CommonDialog1.filename

Si Ain = "" Entonces salga de Sub

Establezca xlBook = xlApp.Application.Workbooks.Open(Ain) '("d:\40.xls")

Establecer xlSheet = xlBook.Worksheets(2)

Para I = 25 a 28

Para J = 3 a 5

MSFlexGrid1.TextMatrix(I - 25, J - 3) = xlSheet.Cells(I, J)

Siguiente J

Siguiente I

xlBook.Close

xlApp.Quit

end sub

Espero que pueda inspirarte