[已解决]如何批量删除不同工作簿同一单元格的内容？

bbboooaaaiii

zjdh 发表于 2012-1-3 12:54
6楼不用预先打开工作簿的帖子视而不见？！！

试过 代码黄色显示“Workbooks.Open (MyName)”

zjdh

1. Sub test()
   
2.     Set Myf = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", &H1)
   
3.     If Not Myf Is Nothing Then
   
4.         Directory = Myf.self.Path
   
5.     End If
   
6.     MyName = Dir(Directory & "\*.xls")
   
7.     Do While MyName <> ""
   
8.         Workbooks.Open (Directory & "" & MyName)
   
9.         ActiveSheet.Range("G3") = ""
   
10.         ActiveWorkbook.Close True
    
11.         MyName = Dir
    
12.     Loop
    
13. End Sub

复制代码

bbboooaaaiii

代码黄色显示 Workbooks.Open (Directory & "\" & MyName)

zjdh

不可能啊，看动画：

bbboooaaaiii

zjdh 发表于 2012-1-3 17:34
不可能啊，看动画：

试过了，没问题。
在单元格G3，插入了一张图片，显然这张图片不属于G3单元格里的内容。只是占用了G3单元格的位置，所以程序运行后图片没有被清除，遗憾。
问题转化成了批量删除图片的问题了。老师有什么办法吗？

zjdh

你至少发一个附件上来，因不知你的具体情况，无法有效解决！
还是另外发帖吧。