Red de conocimiento informático - Problemas con los teléfonos móviles - VB solicitando comentarios: quiero guardar el contenido en un control VB para sobresalir en Word. Por favor dime cómo escribir el código.

VB solicitando comentarios: quiero guardar el contenido en un control VB para sobresalir en Word. Por favor dime cómo escribir el código.

Inserte un módulo en el editor VB de EXcel e ingrese el siguiente código para probar.

Sub ExcelToWord()

Dim WordObject As Object 'Declara una variable de objeto, que será declarada como un objeto de Word

En caso de error, reanudar a continuación

Establecer WordObject = CreateObject("Word.Application") 'Establecido para crear un objeto de Word, el programa de Word se ejecuta aquí, pero no un documento nuevo

WordObject.Visible = 0 'Cuando se ejecuta el objeto de Word en segundo plano, solo El proceso WinWord.exe existe en el Administrador de tareas, pero las palabras no son visibles en la barra de tareas si se ejecuta el objeto de Word, el proceso WinWord.exe solo existe en el Administrador de tareas, pero el; Las palabras no son visibles en la barra de tareas. Guardado = Verdadero 'Establezca la propiedad Guardado en Verdadero al guardar el documento, de modo que Word que se ejecuta en segundo plano no muestre un cuadro de diálogo que pregunte si desea guardar el documento al guardarlo, logrando un efecto silencioso

WordObject.ActiveDocument.SaveAs " D:\temp\ export data.doc" 'Llame al comando saveas para guardar el documento y especifique la ruta y el nombre del documento que se guardará según la situación real

WordObject.Application.Quit 'Salir y cerrar el documento del programa

Set WordObject = Nothing 'Liberar el objeto

End Sub