excel 需要将多个工作表从一个工作簿复制到另一个工作簿

liwlm1x9 于 11个月前发布在其他

关注(0)|答案(1)|浏览(112)

我有一个工作簿，有几个工作表，我需要我的代码循环通过所有工作表，只是复制到另一个工作簿，这些工作表符合以下条件：1）可见，2）它的名称不是“菜单”。
我当前的代码开始循环，但一旦它复制了第一个符合条件的工作表，它就停止了，我不知道为什么。

With wbFrom
    For Each ws In .Sheets
        If (ws.Visible = True And ws.Name <> "Menu") Then
            ws.Copy After:=wbTo.Sheets(wbTo.Sheets.Count)
            .Activate
        End If
    Next ws
End With

字符串
End Function

excel

来源：https://stackoverflow.com/questions/77430816/need-to-copy-several-sheets-from-one-workbook-onto-another

1条答案

按热度按时间

kiayqfof1#

你的代码应该可以正常工作，除非你没有正确定义两个工作簿。另外，把Option Explicit放在模块的顶部是个好主意，这样就需要声明变量。

Dim wbFrom As Workbook
Dim wbTo As Workbook
Dim ws As Worksheet

Set wbFrom = Workbooks("SourceFileName.xlsx")
Set wbTo = Workbooks("TargetFileName.xlsx")

字符串

赞(0）回复(0）举报 11个月前

我来回答

excel 需要将多个工作表从一个工作簿复制到另一个工作簿

1条答案

相关问题

热门标签

最新问答