带你入门VBA，第四讲（如何控制关于工作薄与工作表）

先锋 · 发表于 2004-10-14 17:13

以下是引用happy91在2004-10-14 17:02:00的发言：

楼主显示错误为：Workbooks("2.xls").colse，好象不是你所说的空格问题

关闭,应该是CLOSE而不是COLSE吧

[此贴子已经被作者于2004-10-14 17:13:30编辑过]

兰色幻想 · 发表于 2004-10-14 17:13

以下是引用happy91在2004-10-14 17:02:00的发言：

楼主显示错误为：Workbooks("2.xls").colse，好象不是你所说的空格问题

可能是因为命名的原因，解决方法是在命名时把数字转换成文本

yigepure · 发表于 2004-10-14 17:42

Workbooks("2.xls").close

办公之星 · 发表于 2004-10-14 22:19

兰老师又一次创造了神话，当日点击突破三位数，恭贺。

当然，我是一名不合格的学生，呵............................

hnymlzs · 发表于 2004-10-14 22:49

继续!

兰色幻想 · 发表于 2004-10-15 08:49

有兴趣的请做个练习（这些问题都是经常有人问）：

1、如何一次性给所有工作表改名为A1、A2、A3....？

2、如何一次保护（或解除保护）所有工作表？

3、在闭工作薄前隐藏N-1个工作表（N是工作薄内工作表的总数），只留一个工作表？

lpdcd · 发表于 2004-10-15 09:50

请问:程序放错地方了，什么程序应该在Thisworkbook中,什么程序应在模块中。

wwhxp · 发表于 2004-10-15 09:52

兰大侠，请帮帮忙.TKS!

shangyu · 发表于 2004-10-15 10:10

路过，看着挺好！兰色幻想辛苦了！

补充一下：

有两个方法，是在对工作簿open、saveas操作时非常有用的：getopenfilename、getsaveasfilename。

这两个方法是用于打开“打开”、“另存为”对话框，获取要open、saveas的工作簿路径名称。

前面兰色幻想老师说的打开、另存为的方法都是在代码中直接指定路径和文件名，对自己用可以了，但一旦文件名或路径有了变化，就要修改代码，因此与用户的交互性不是很好。

使用这两个方法，可以在需要打开或另存的时候跳出对话框，由用户直接选取打开文件或另存文件的路径、文件名。

fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls") If fileToOpen <> False Then MsgBox "Open " & fileToOpen End If

这是帮助中的一段代码，可以将它放入sub中测试一下，注意运行后并不真正打开选取的文件，只是取得该文件的路径、文件名，真正打开还要使用workbooks.open方法。

兰色幻想 · 发表于 2004-10-15 10:44

以下是引用shangyu在2004-10-15 10:10:00的发言：