请把你的语句： Sheets("database").Select 修改为： Application.Goto Sheets("database")
excel 的问题。 换成： for each sh in sheets if sh.name"a" then sh.visible =false end if next
两个问题，有没有一个叫：“DN2”的工作表，还有将Cells("B2")改成：Range("B2")或Cells(2,"B")如果以上都不是问题，那么得看一下要粘贴的文件，是否已经打开。
退出360安全桌面就行了 亲测有用