急！请问什么是：类Worksheet的ShowAllDate方法无效

celeronfans

请高手指教！
本人编写了个名为礼品管理的宏文件，在我自己的电脑（Windows XP SP2，Office2007企业版）上运行正常，可是当我把这个文件拷贝到其他电脑的时候（也安装了同样版本的Office2007），但却在运行的时候却提示：“运行时错误‘1004’”，“类Worksheet的ShowAllDate方法无效”，无法通过。结束后，想保存这个文件，却提示“Excel执行保存操作时遇到错误。但是，Excel已将您的文件最小程度地保存到C:\users\LM\AppData\Roaming\Microsoft\Execl\Xl193E.xls”，无法正常保存文件。请问是什么原因呢！！希望得到高手的指教！！！

ldy

ShowAllData 方法
参阅应用于示例特性使当前筛选列表的所有行均可见。如果正在使用自动筛选，则本方法将下拉列表框内容改为“（全部）”。

expression.ShowAllData
expression      必需。该表达式返回一个 Worksheet 对象。

示例
本示例使工作表 Sheet1 上所有的数据可见。本示例应在包含用“自动筛选”命令筛选出的列表的工作表上运行。

Worksheets("Sheet1").ShowAllData

-----------------------------------
也就是说在没有筛选的情况下（行标签不是蓝色的）Worksheets("Sheet1").ShowAllData这个语句会出错

celeronfans

谢谢楼上的朋友回复！我先按照你的方法试试！

yanjie

一般要加入一个判断，如果运用了筛选模式，包括高级筛选或者自动筛选，则全部显示。否则，跳过！
Sub yanjie()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub

celeronfans

谢谢，前面关于ShowAllDate的问题已经解结决。把原来代码ActiveSheet.ShowAllData改成sheets("sheet1").ShowAllData才可以。奇怪为什么在其它三台计算机上运行都没有问题，偏偏这台会有问题。其它三台分别是XP和WIN7操作系统，安装有OFFICE2007 Pro完整版。出问题的机器是正版VISTA HOME BASIC安装OFFICE2007 Pro完整版。现在的问题是运行过宏后表就无法保存，出现图1提示。并在点击“开发工具”->“Visual Basic”出现图2提示（加载DLL出错）。请大虾们再帮忙看看吧。

celeronfans

请各位高手出手帮忙，看看是什么地方出了问题？

别古居士

我最近也遇到同样的问题，有加载DLL出错，而且thisworkbook的对象也不能使用

windowsxpsp

估计是Excel的Bug，我在2010
上也出现此问题

lb_bn

注意看前面两位版主的回帖，这个不是bug.

oonly

yanjie 发表于 2009-6-17 19:36
一般要加入一个判断，如果运用了筛选模式，包括高级筛选或者自动筛选，则全部显示。否则，跳过！
Sub yanj ...

谢谢啦,帮我解决问题