Question

VBA中代码选择另一个工作簿怎么写

E盘有个文件夹名为"表格"，里面有两个工作簿 : 簿A和簿？？。我打开这两个工作簿，在簿A里写宏代码让sheet1的D2单元格=簿？？的sheet1的F8单元格，这个簿A名字不会变，簿？？名字天天变的，也就是别人每天发个表给我放到这里所以名字天天不一样，但我每次都打开这两个表再运行代码，完毕后我会删除簿？？的，在代码中这个簿？？能提示选择吗？代码怎么写？
每天收到的表可能有多个，所以文件夹内可能有多个表，我也可以一次打开多个表，只有簿A名字不会变。主要问题是在代码中如果不能提示选择需要处理的工作簿，那我就得每次修改代码中的工作簿名，或是每次把表名改为代码中的表名了，

Answer 1

这个不用VBA就能解决，但我想，没必要分5个工作簿，这个功能太简单了，我能做到选择年级进行筛选，这个筛选不是什么向下的箭头什么的，是你点击一个单元格就能选择年级，选择完年级就能看到相应的，如果你要给别人发过去不同年级的，同时不想让别人看到你的总表，那么我给你提供几个方案，建立登陆系统，只有你有权限查看更改总表，或者利用公文包进行网络共享，在一个就算分开工作簿也没必要用VBA，直接外联工作簿就行，非常简单，首先，你需要建立一个新的工作簿可以命名为一年级，打开这个新建立的，点击A1单元格输入“=”，然后打开你的总表，点击A1这样，一年级的A1就等于总表A1了，拖拉全部都是了，用查找替换功能将公式变成半绝对引用，设置密码加锁，然后再一年级工作簿建立一个一年级工作表，建立查找公式组，这样，就完成了一年级的建立，当然，公式变种方式非常非常多，大概就这个思路，但你想在打开状态提示更新信息到时需要VBA，例如你可以写一个重新计算所有公式的一个VBA代码，然后再在工作簿添加关闭自动保存代码就行了，只要你关闭了他就自动保存了，再打开会提示你要不要更新，点击更新就更新，不点击就会保留状态，点击按钮或者再打开就会得到更新提示或更新总结：换一种思路，一样很方便，建议用VBA实现一些既简单又恶心的功能，例如保存了，例如重新计算公式了（虽然EXCEL自带计算按钮）

Answer 2

Sub s()
    For i = 1 To Workbooks.Count
        If Workbooks(i).Name <> ThisWorkbook.Name Then
            f = MsgBox("是否复制" & Workbooks(i).Name & "数据?", vbYesNo)
            If f = vbYes Then
                ThisWorkbook.Sheets(1).[D2] = Workbooks(i).Sheets(1).[f8]
            End If
        End If
    Next
End Sub