excel - una - macro para importar datos de un libro a otro

Importación de datos de hoja de cálculo de Excel en otra hoja de cálculo de Excel que contiene VBA

Question

Necesitamos escribir una hoja de cálculo de Excel con código VBA; el código lee y realiza operaciones sobre los datos en la primera hoja de cálculo.

El usuario recibirá hojas de cálculo que contienen datos pero que no contienen el código VBA. Necesitamos poder importar los datos de las hojas de cálculo que contienen los datos en la hoja de cálculo que contiene el código de VBA automáticamente. Las hojas de trabajo que contienen los datos tienen el mismo formato de columna y tipos de datos que la hoja de cálculo de la hoja de cálculo que contiene los datos.

Idealmente, abriría la hoja de cálculo que contiene el código VBA, se le presentaría una IU que le permitiría navegar a la hoja de cálculo que contiene los datos, hacer clic en Aceptar y los datos se importarán.

¿Cómo harías para hacer esto? Tiene que hacerse usando VBA en hojas de cálculo de Excel.

Muchas gracias.

Answer 1

Esto debería comenzar: usando VBA en su propio libro de trabajo de Excel, solicite al usuario el nombre de archivo de su archivo de datos, luego simplemente copie ese rango fijo en su libro de trabajo objetivo (que podría ser el mismo libro de trabajo que su macro habilitada , o un tercer libro de trabajo). Aquí hay un ejemplo rápido de cómo funciona eso:

'' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
'' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook
'' get the customer workbook
filter = "Text files (*.xlsx),*.xlsx"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)
Set customerWorkbook = Application.Workbooks.Open(customerFilename)
'' assume range is A1 - C10 in sheet1
'' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)
targetSheet.Range("A1", "C10").Value = sourceSheet.Range("A1", "C10").Value
'' Close customer workbook
customerWorkbook.Close

Answer 2

Los datos se pueden extraer en un excel de otro Excel a través del método Workbook o referencia externa oa través de la instalación de importación de datos.

Si desea leer o incluso si desea actualizar otro libro de Excel, estos métodos pueden ser utilizados. No podemos depender solo de VBA para esto.

Para obtener más información sobre estas técnicas, haga clic aquí para consultar el artículo