excel: Error de Dim xDoc como DOMDocument "El tipo definido por el usuario no está definido"

1: Leer. 1. En VB, cree un FORMULARIO, coloque dos botones de comando en él, cambie la propiedad Título de Comando1 a EXCEL y cambie la propiedad Título de Comando2 a Fin. Luego ingrese el siguiente programa: Dim xlApp As Excel.Application 'Definir clase EXCEL Dim xlBook As Excel.Workbook 'Definir clase de libro de trabajo Dim xlsheet As Excel.Worksheet 'Definir clase de hoja de trabajo Private Sub Command1_Click() 'Abrir proceso EXCEL If Dir ( "D:\temp\excel.bz") = "" Luego 'Determinar si EXCEL está abierto Set xlApp = CreateObject("Excel.Application") 'Crear clase de aplicación EXCEL xlApp.Visible = True 'Establecer EXCEL visible Set xlBook = xlApp .Workbooks.Open("D:\temp\bb.xls") 'Abre el libro EXCEL Set xlsheet = xlBook.Worksheets(1) 'Abre la hoja EXCEL xlsheet.Activate 'Activa la hoja xlsheet.Cells(1, 1) = "abc" 'Asigna un valor a la columna de fila de la celda 1 xlBook.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") > "" Luego 'Cerrar EXCEL mediante VB xlBook.RunAutoMacros (xlAutoClose) 'Ejecutar EXCEL cerrar macro xlBook.Close (True) 'Cerrar libro de EXCEL xlApp.Quit 'Cerrar EXCEL End If Set xlApp = Nada ' Libere el objeto EXCEL End End Sub 2. Cree un subdirectorio llamado Temp en el directorio raíz de la unidad D y cree un archivo EXCEL llamado "bb.xls" en el directorio Temp. 3. Abra el editor de Visual Basic en "bb.xls", haga clic con el botón del mouse en la ventana del proyecto para seleccionar el módulo de inserción e ingrese el siguiente programa en el módulo para guardar: Sub auto_open() Abra "d:\temp\ excel.bz" Para la salida como #1 'Escribe el archivo del logotipoCerrar #1 End Sub Sub auto_close() Kill "d:\temp\excel.bz" 'Elimina el archivo del logotipoEnd Sub 4. Ejecute el programa VB, haga clic en el botón EXCEL para abrir el sistema EXCEL, abra Después de instalar el sistema EXCEL, el programa VB y EXCEL pertenecen a dos sistemas de aplicaciones diferentes y se pueden operar al mismo tiempo. Debido a que el sistema ha agregado juicio, cuando hace clic repetidamente en el botón EXCEL en el. programa VB, le indicará que EXCEL está abierto. 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: Escribe.

Excel import sql: 'Referencia ADO (Biblioteca Microsoft ActiveX Data Objects 2.X) Subcomando privado2_Click() Dim cn como nuevo ADODB.Connection cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa ;Contraseña=123;Catálogo inicial=dataBase001;Fuente de datos=mySERVICE" cn.CursorLocation = adUseClient cn.Open cn.Execute "seleccione * en la tabla4 de OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR= Sí;database=d:\temp\bb.xls;','select * from [Sheet1$]')" cn.Close Set cn=Nothing End Sub