Cómo copiar los datos de un libro a diferentes hojas en Microsoft Excel 2010
En este artículo, aprenderemos cómo copiar los datos de un libro a diferentes hojas en Microsoft Excel 2010.
Para copiar datos de Excel a un archivo usando VBA, necesitamos acceder a la aplicación de Word usando Excel VBA. En este tutorial aprenderemos cómo abrir una aplicación de Word, agregar un documento y copiar y pegar datos desde Excel.
En este artículo, utilizaremos el método de enlace anticipado para crear un objeto de aplicación de Word en lugar de utilizar el enlace tardío. Puedes leerlo aquí en detalle.
El proceso de copiar datos de Excel a un archivo de Word usando Excel VBA Para copiar datos de Excel a un archivo de Word usando VBA, primero necesitamos abrir la aplicación Word, por supuesto. Luego, agregue un documento (si desea un nuevo documento). Copie los datos del archivo de Excel. Seleccione el párrafo en el documento y péguelo. Finalmente guarde y cierre el documento. Cada uno de estos pasos se puede realizar fácilmente desde Excel. No necesitará interactuar con el documento de Word.
Comencemos con un ejemplo sin profundizar en la teoría. Porque Iron Man dijo, «A veces tienes que correr antes de poder caminar».
Ejemplo: Pegar datos de Excel en Word usando VBA El siguiente código es un ejemplo de cómo puede copiar un rango de Excel y pegarlo en un nuevo documento de Word y guardarlo en la unidad para usarlo más tarde
'VBA Code To Write to Copy data from Excel to A Document
Sub ExcelToWord()
'Using Early Binding
Dim wordApp As Word.Application
Dim mydoc As Word.Document
'Creating a new instance of word only if there no other instances
Set wordApp = New Word.Application
'Making word App Visible
wordApp.Visible = True
'Creating a new document
Set mydoc = wordApp.Documents.Add()
'copying the content from excel sheet
ThisWorkbook.Worksheets("sheet1").Range("A1:g20").Copy
'Pasting on the document
mydoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False,
RTF:=False
'saving the document
mydoc.SaveAs2 "MyDoc"
'closing the document
mydoc.Close
'Emptying the Clipboard
CutCopyMode = False
End Sub
Explicación del código:
Bueno, he explicado cada paso en el código usando comentarios, pero tengamos algunas palabras sobre las líneas que hemos usado en este sub.
'Created variables of word application and document type Dim wordApp As Word.Application Dim mydoc As Word.Document
Aquí hemos declarado dos variables de los tipos requeridos. Podemos hacer esto porque ya hemos agregado la referencia a la palabra aplicación. Puede hacer esto yendo a las herramientas en el menú. Opción de búsqueda de referencias y luego busque la palabra de referencia.
'Creating a new instance of word only if there no other instances Set wordApp = New Word.Application 'Making word App Visible wordApp.Visible = True 'Creating a new document Set mydoc = wordApp.Documents.Add()
En la primera línea de arriba, intentamos la variable wordApp con un objeto de tipo Word.App usando la palabra clave New. Esto abrirá la aplicación de Word.
En la segunda línea estamos haciendo visible la palabra aplicación para que podamos trabajar con ella.
En la siguiente línea, agregamos un nuevo documento a la aplicación de Word usando la función Word.Documents.Add (). Esto se almacena en la variable mydoc.
'copying the content from excel sheet
ThisWorkbook.Worksheets («hoja1»). Range («A1: G20»). Copiar Aquí simplemente estamos copiando un rango de Excel. Debes haberlo hecho antes. Se almacena en el portapapeles.
'Pasting on the document mydoc.Paragraphs(1).Range.PasteExcelTable _ LinkedToExcel:=False, _ WordFormatting:=False, RTF:=False
Estamos usando el método PasteExcelTable de la clase Paragraph.Range de mydoc para pegar datos del portapapeles.
'saving the document mydoc.SaveAs2 "MyDoc" 'closing the document mydoc.Close 'Emptying the Clipboard CutCopyMode = False
Estamos guardando el documento con el nombre MyDoc. Luego cerramos el documento usando la función Cerrar. Finalmente liberamos el portapapeles para que lo utilicen otros.
Espero que este artículo sobre Cómo copiar los datos de un libro a diferentes hojas en Microsoft Excel 2010 sea explicativo. Encuentre más artículos sobre el cálculo de valores y fórmulas de Excel relacionadas aquí. Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook. Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected].
Artículos relacionados:
link: / general-topics-in-vba-vba-variables-in-excel [Variables de VBA en Excel]: VBA significa Visual Basic para Aplicaciones.
Es un lenguaje de programación de Microsoft. Se utiliza con aplicaciones de Microsoft Office como MSExcel, MS-Word y MS-Access, mientras que las variables de VBA son palabras clave específicas.
link: / general-topics-in-vba-excel-vba-variable-scope [Excel VBA Variable Scope]: En todos los lenguajes de programación, tenemos especificadores de acceso a variables que definen desde dónde se puede acceder a una variable definida. Excel VBA no es una excepción. VBA también tiene especificadores de alcance.
enlace: / celdas-rangos-filas-y-columnas-en-vba-cuál-es-la-diferencia-entre-byref-y-byval-argumentos-vba-entrevista-pregunta [ByRef y ByVal Arguments]: Cuando un argumento se pasa como un argumento ByRef a una función o sub diferente, se envía la referencia de la variable real. Cualquier cambio realizado en la copia de la variable se reflejará en el argumento original.
link: / files-workbook-and-worksheets-in-vba-add-and-save-new-workbook-using-vba-in-microsoft-excel [Add And Save New Workbook Using VBA In Microsoft Excel 2016]: En este código, primero creamos una referencia a un objeto de libro de trabajo. El beneficio de este enfoque es que puede realizar operaciones en este nuevo libro de trabajo fácilmente.
Como guardar, cerrar, eliminar, etc.
Artículos populares:
link: / tips-if-condition-in-excel [Cómo usar la función IF en Excel]: La declaración IF en Excel verifica la condición y devuelve un valor específico si la condición es VERDADERA o devuelve otro valor específico si es FALSO .
link: / formulas-and-functions-introduction-of-vlookup-function [Cómo usar la función VLOOKUP en Excel]: Esta es una de las funciones más utilizadas y populares de Excel que se usa para buscar valores de diferentes rangos y sábanas.
link: / excel-formula-and-function-excel-sumif-function [Cómo usar la función SUMIF en Excel]: Esta es otra función esencial del tablero. Esto le ayuda a resumir valores en condiciones específicas.
link: / tips-countif-in-microsoft-excel [Cómo usar la función CONTAR.SI en Excel]: Cuente valores con condiciones usando esta función asombrosa. No necesita filtrar sus datos para contar valores específicos. La función Countif es esencial para preparar su tablero.