Question

用vb随机选取指定文件夹中的照片，并显示在excel表格单元格中

求高手教具体操作，用截图的方式把步骤一步一步体现出来，本人VB是菜鸟，只能依葫芦画瓢

若以下回答无法解决问题，邀请你更新回答

Answer 1

代码及注释如下：
Sub main()
f = Dir("D;\*.xls*") '查找D盘根目录的所有Excel文件
Do While f <> ""
Workbooks.Open ("D:\" & f) '依次D盘根目录的所有Excel文件
k = k + 1
Cells(k, 1) = Workbooks(f).Range("A1") '将打开的Excel文件中的A1单元格内容依次提取到当前工作表中
f = Dir
Loop
End Sub

追问

我不会用VB，到这个界面，应该按哪个按钮，把代码复制到哪里，接着怎样运行，结束，能把操作截图给我看看吗？非常感谢