excel - valor - Copiar y pegar datos usando el código VBA

macro para copiar formulas hacia abajo

Question

Tengo un botón en una hoja de cálculo que, cuando se presiona, debe permitir al usuario abrir un archivo, luego copiar las columnas AG de la hoja de cálculo "Datos", luego pegar los datos de esas columnas en la hoja actual.

Tengo un error de lógica en el código; se ejecuta, pero pega la selección en el lugar equivocado.

Tengo problemas para hacer referencia a los dos libros de trabajo.

Aquí está mi código:

Sub Button1_Click()
Dim excel As excel.Application
Dim wb As excel.Workbook
Dim sht As excel.Worksheet
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
f.Show
Set excel = CreateObject("excel.Application")
Set wb = excel.Workbooks.Open(f.SelectedItems(1))
Set sht = wb.Worksheets("Data")
sht.Activate
sht.Columns("A:G").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
wb.Close
End Sub

Answer 1

Use el método PasteSpecial:

sht.Columns("A:G").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues

PERO su gran problema es que está cambiando su ActiveSheet a "Datos" y no lo está cambiando. No necesita hacer el Activar y Seleccionar, según mi código (esto supone que su botón está en la hoja en la que desea copiar).

Answer 2

"Entonces, a partir de esta discusión, estoy pensando que este debería ser el código entonces".

Sub Button1_Click()
Dim excel As excel.Application
Dim wb As excel.Workbook
Dim sht As excel.Worksheet
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
f.Show
Set excel = CreateObject("excel.Application")
Set wb = excel.Workbooks.Open(f.SelectedItems(1))
Set sht = wb.Worksheets("Data")
sht.Activate
sht.Columns("A:G").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
wb.Close
End Sub

''Avíseme si esto es correcto o si se omite un paso. Gracias.