Cómo determinar ciertos errores en la programación VB6.0

1. Cree un FORMULARIO en VB, coloque dos botones de comando en él, cambie la propiedad Título de Comando1 a EXCEL, cambie la propiedad Título de Comando2 a Fin y luego ingrese el siguiente programa:

Dim xlApp As Excel.Application 'Definir clase EXCEL

Dim xlBook As Excel.Application") 'Crear clase de aplicación EXCEL

Set xlApp = CreateObject(" Excel.Worksheets (1) 'Abre la hoja de trabajo EXCEL

xlsheet.Activate 'Activa la hoja de trabajo

xlsheet.Cells(1, 1) = "abc" 'Para la celda 1, fila y columna Asignación

xlBook.RunAutoMacros (xlsheet.Cells(1, 1) = "abc" )RunAutoMacros (xlAutoOpen) Ejecuta la macro de inicio en EXCEL

Else

MsgBox (" EXCEL está abierto")

End If

End Sub

Private Sub Command2_Click()

If Dir( "D :\temp \excel.bz") lt；gt; """Luego 'Cerrar EXCEL a través de VB

xlBook.RunAutoMacros (xlAutoClose) 'Ejecutar macro de cierre de EXCEL

xlBook.Close (Verdadero) 'Cerrar el libro de EXCEL Cerrar (Verdadero) 'Cerrar el libro de EXCEL

xlApp.Quit 'Cerrar EXCEL

End If

Establecer xlApp = Nothing 'Liberar. Objeto EXCEL

End

End Sub

End Sub

2. Cree un archivo llamado Subdirectorio de Temp, cree un archivo EXCEL llamado "bb.xls" en el directorio Temp

3. Abra el editor de Visual Basic en "bb.xls" y haga clic en la ventana del proyecto. Utilice el botón del mouse para seleccionar el módulo insertado e ingrese el siguiente programa. en el módulo para guardar:

Sub auto_open()

Abrir "d:\temp\excel.bz" para la salida como #1 ' Escribir archivo de logotipo

Cerrar #1

End Sub

Sub auto_close()

Eliminar "d:\temp\excel.bz" ' Eliminar archivo de logotipo

End Sub

4. Ejecute el programa VB y haga clic en el botón EXCEL para abrir el sistema EXCEL. Después de abrir el sistema EXCEL, el programa VB y EXCEL son dos aplicaciones diferentes que se pueden operar al mismo tiempo. Dado que el sistema ha agregado una función de evaluación, al hacer clic repetidamente en el botón EXCEL en el programa VB se indicará que se ha abierto EXCEL.

Si cierra EXCEL en EXCEL y luego hace clic en el botón EXCEL, EXCEL se volverá a abrir. Independientemente de si EXCEL está abierto o no, EXCEL se puede cerrar mediante el programa VB.

2: Escritura.

Importación de Excel SQL:

"Referencia ADO (Biblioteca Microsoft ActiveX Data Objects 2.X)

Subcomando privado2_Click()

Dim cn como nuevo ADODB.

cn.ConnectionString = "Provider=SQLOLEDB.1; Persist Security Info=False; ID de usuario=sa; Contraseña=123; Catálogo inicial= dataBase001; Fuente de datos=mySERVICE"

cn.CursorLocation = adUseClient

cn.Open

cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0'.. 0', 'Excel 8.0; HDR=Sí; base de datos=d:\temp\bb.xls;', 'seleccione * de [Hoja1$]')"

cn.Close

Establecer cn=Nada

Fin Sub