Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo abrir y copiar otras tablas en VBA

Cómo abrir y copiar otras tablas en VBA

Para abrir otras tablas, puede utilizar el método Workbooks.Open para abrir un libro de Excel. El uso y los parámetros específicos de esta función son los siguientes:

Workbooks.Open(FileName). , UpdateLinks, ReadOnly, Format, Contraseña, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

FileName es un parámetro obligatorio que indica el nombre del libro que se va a abierto, si no se especifica ninguna ruta, representa la ruta actual. Los otros 14 son parámetros opcionales, excepto los parámetros de contraseña, los demás generalmente rara vez se usan. Consulte la ayuda de VBA para conocer el significado específico.

Ejemplo:

Workbooks.Open "F:\test.xls" 'Indica abrir el archivo llamado test.xls en el directorio raíz del disco F

Se puede abrir el archivo test.xls en la unidad F.

Puedes utilizar el método Copiar para copiar otras tablas. Seleccione la hoja de trabajo que desea copiar, luego copie todo lo que hay en la hoja de trabajo y luego péguelo en el libro de trabajo al que desea copiar. Suponga que lo que desea copiar es la hoja de trabajo Hoja5 en el archivo 123.xls en el documento de usuario de la unidad C. Debe copiarse en el primer libro que abrió, Libro1. El código de implementación específico es:

Sub ?Macro()

'La siguiente línea de código significa abrir el archivo llamado 123.xls en la carpeta de documentos del usuario de la unidad C

Workbooks.Open? Nombre de archivo:=?_

?"C:\Documentos?y?Configuración\Administrador\Mis?Documentos\123.xls"

Hojas("Hoja5").Seleccione 'Seleccionar la hoja Sheet5 que deseas copiar'

Cells.Select ? 'Selecciona todas las celdas en Sheet5

Selection.Copy '¿Copiar el contenido seleccionado?

Windows( "Libro1").Activar 'Establecer el libro de trabajo Libro1 como el libro de trabajo actual

ActiveSheet.Paste 'Pegue el tubo interior copiado en el libro de trabajo actual Libro1

End?Sub