Office中国论坛/Access中国论坛

标题: 求助，急！ [打印本页]

作者: 若风1 时间: 2006-8-20 19:13
标题: 求助，急！
Workbooks.Open Filename:=k
Windows(h).Activate
riqi = Year(Now()) & "-" & Month(Now()) - 1
For n = 1 To ThisWorkbook.Sheets.Count
If f.Worksheets(n).Name = riqi Then
dd = dd + 1
End If
Next n
MsgBox (dd)

If dd >= 1 Then
MsgBox ("该月份的日记帐表已经备份，不需要重新备份！")

上面是我做的一个小程序的片段，本意是在一个工作簿的各个工作表名之间循环，发现表名＝riqi，则dd就＋１

但现在存在一个问题，我要循环的工作簿是h，但实际运行时程序判断默认运行的表是按钮所在的表

我感觉可能是　ThisWorkbook.Sheets.Count与
If f.Worksheets(n).Name = riqi Then
有问题，但不知道该如何写，请高手帮助！！

作者: 老鬼 时间: 2006-8-21 02:57
将thisworkbook改成activeworkbook

作者: 若风1 时间: 2006-8-21 04:39
十分感谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)