我试图将用户打开的工作表中的内容从另一个工作簿复制到另一个工作表 . 下面的代码确实有效,但它不会从WS_REL表中选择第一个空单元格,并覆盖包含的所有数据 . 到目前为止,我有这个:
Sub Importar_Dados()
Dim vTemp As Variant
Dim WB_TOA As Workbook, WB_REL As Workbook
Dim WS_TOA As Worksheet, WS_REL As Worksheet
Set WB_REL = ActiveWorkbook
Set WS_REL = WB_REL.Sheets("Planilha2")
vTemp = Application.GetOpenFilename("Excel-files,*.xlsx", _
1, "Selecione o relatório gerado pelo TOA", , False)
If TypeName(vTemp) = "Boolean" Then Exit Sub
Workbooks.Open vTemp
Set WB_TOA = Workbooks.Open(vTemp)
Set WS_TOA = WB_TOA.Sheets("Page 1")
WS_TOA.Cells.Copy WS_REL.Cells
End Sub
谢谢!
1 回答
首先,您不需要两次打开其他工作簿 . 删除该行
然后,要在不覆盖的情况下追加,您需要在目标表中找到最后一个非空单元格 . 试试它(例如):
如果您没有确保所有行中都包含数据的列,请使用以下命令:
这会找到第一个非空行 .