小编And*_*eea的帖子

我会尽量在描述中尽可能清楚,所以这里什么都没有:

我创建了一个代码,用户在其中选择他的excel文件,然后宏Sheet将该文件复制到我的宏中Workbook.

MyFile = Application.GetOpenFilename()
    Workbooks.Open (MyFile)
        ActiveSheet.Copy After:=wbook.Sheets(1)
        ActiveSheet.Name = "Selected file"
    Workbooks.Open (MyFile)
ActiveWorkbook.Close SaveChanges:=False

这是有效的,但我意识到,可能存在所选文件有多个的情况Sheets.

有没有办法写宏,如果我选择的文件有1张它运行上面的代码,如果它有多张表让我选择我想要的表,然后运行其余的代码？