复制到另一本书不起作用

Question

我正在努力工作，这让我感到疯狂，正在努力工作但是它很重，打开和保存需要很长时间所以我决定将一些“工作表”移到另一本书上。但我不能让代码工作。

这是在一本书中完美运行的代码

'Ariel
 If ActiveSheet.Range("C6").Value = "Ariel" Then
 filalibre = Sheets("ariel").Range("a1048576").End(xlUp).Row + 1
ActiveSheet.Range("A10").Select
fila = 10
Sheets("ariel").Cells(filalibre, 2) = ActiveSheet.Range("E4") 'factura
Sheets("ariel").Cells(filalibre, 1) = ActiveSheet.Range("E2") 'fecha
Sheets("ariel").Cells(filalibre, 3) = ActiveSheet.Range("C6") 'cliente
Sheets("ariel").Cells(filalibre, 4) = ActiveSheet.Range("f26") 'subtotal
Sheets("ariel").Cells(filalibre, 5) = ActiveSheet.Range("f27") 'saldo
Sheets("ariel").Cells(filalibre, 6) = ActiveSheet.Range("f28") 'total
End If

我这是我尝试的代码。我把表单“ariel”移到了一本新书上。它什么都不做

Dim wb As Workbook

If ActiveSheet.Range("C6").Value = "Ariel" Then
Set wb = Workbooks.Open("C:\MARI\clientes 2.xlsm")
filalibre = wb.Sheets("ariel").Range("a1048576").End(xlUp).Row + 1

ActiveSheet.Range("A10").Select
fila = 10
wb.Sheets("ariel").Cells(filalibre, 2) = ActiveSheet.Range("E4") 'factura
wb.Sheets("ariel").Cells(filalibre, 1) = ActiveSheet.Range("E2") 'fecha
wb.Sheets("ariel").Cells(filalibre, 3) = ActiveSheet.Range("C6") 'cliente
wb.Sheets("ariel").Cells(filalibre, 4) = ActiveSheet.Range("f26") 'subtotal
wb.Sheets("ariel").Cells(filalibre, 5) = ActiveSheet.Range("f27") 'saldo
wb.Sheets("ariel").Cells(filalibre, 6) = ActiveSheet.Range("f28") 'total
End If

谁能帮帮我吗。谢谢

Answer 1

当您打开一个新的工作簿时，它默认为ActiveWorkbook。因此，所有使用ActiveSheet的语句都会引用此新工作簿。这些范围可能是空白的，你什么也没得到，因为你正在复制同一工作簿中的单元格。

当您使用VBA代码时，习惯于使用ThisWorkbook和ActiveWorkbook等对象：

要使代码有效，请尝试以下方法：

Dim wb As Workbook

If ThisWorkbook.ActiveSheet.Range("C6").Value = "Ariel" Then
    Set wb = Workbooks.Open("C:\MARI\clientes 2.xlsm")
    filalibre = wb.Sheets("ariel").Range("a1048576").End(xlUp).Row + 1

    ThisWorkbook.ActiveSheet.Range("A10").Select
    fila = 10
    wb.Sheets("ariel").Cells(filalibre, 2) = ThisWorkbook.ActiveSheet.Range("E4") 'factura
    wb.Sheets("ariel").Cells(filalibre, 1) = ThisWorkbook.ActiveSheet.Range("E2") 'fecha
    wb.Sheets("ariel").Cells(filalibre, 3) = ThisWorkbook.ActiveSheet.Range("C6") 'cliente
    wb.Sheets("ariel").Cells(filalibre, 4) = ThisWorkbook.ActiveSheet.Range("f26") 'subtotal
    wb.Sheets("ariel").Cells(filalibre, 5) = ThisWorkbook.ActiveSheet.Range("f27") 'saldo
    wb.Sheets("ariel").Cells(filalibre, 6) = ThisWorkbook.ActiveSheet.Range("f28") 'total
End If

更多信息（英文，但也有西班牙语版本。看看你的代码，我猜你是西班牙语。在提供的链接中，只需替换en-us并输入es-es）。

ThisWorkbook

ActiveWorkbook