《别怕，Excel VBA其实很简单》勘误汇总专帖

小夜出品

《别怕EXCEL VBA其实很简单》P52粗体字，应该是“把数据存储到变量里“，不应该是"把数量存储到变量里"，再版的时候记得修正。

gaolin825

李树同學 发表于 2012-10-20 22:19
第60页，声明多维数组中。货架有3层，每层5瓶酱油。从给出的条件判断，这个数组里面应该有（3-0+1）*（5-0+ ...

到底是"（3-1+1）×（5-1+1）"还是"（3-0+1）×（5-0+1）",菜鸟都被搞晕了。。。

这个得看声明变量时起始索引号是几。
如果是(0 to 5)则应是5-0+1，如果是(1 to 5)，则是5-1+1,如果是(3 to 5),则应是5-3+1
——ggsmart

gxb118

kdslife123 发表于 2012-9-29 13:28
“43页表3-1 VBA 中的数据类型中，Integer 保存-2768~32768 的整数”，书中是“Integer 保存-2768~32767  ...

我刚买的书没错呀

5d1919

这是买的正版的书，希望老师能看到宋课卷我，谢谢，

买书载图

ass2008

P140 最后一行“Book.xls”是否应为“Book1.xls”

原文：Excel 2003版本的文件扩展名为".xls"，所以文件名为"Book.xls"。
应为：Excel 2003版本的文件扩展名为".xls"，所以文件名为"Book1.xls"。
——ggsmart

fangdaping

248页的第一段代码，以及论坛上本书的实例文件中第四行
If fil = False Then

是否应是

If fil = "False" Then

？

感谢指正。
前面使用 Dim fil As String将fil定义为String型变量了，所以后面的“Flase“应该加上引号。
但说明一点，当单击对话框中的“取消”按钮后，GetOpenFilename返回的是逻辑值Flase.
——ggsmart

菜农老张

Ｐ197 的汇总程序　在执行到　Ｓet wb=Ｇetobject(fn)这一句就中止，提醒是类型不符。请版主及高手指点

你是运行配书的示例文件吗？
程序如下：

1. [/color]
   
2. [color=red]Sub HzWb()
   
3.     Dim bt As Range, r As Long, c As Long
   
4.     r = 1    '1 是表头的行数
   
5.     c = 8    '8 是表头的列数
   
6.     Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents    ' 清除汇总表中原表数据
   
7.     Application.ScreenUpdating = False
   
8.     Dim FileName As String, wb As Workbook, Erow As Long, fn As String, arr As Variant
   
9.     FileName = Dir(ThisWorkbook.Path & "\*.xls")
   
10.     Do While FileName <> ""
    
11.         If FileName <> ThisWorkbook.Name Then    ' 判断文件是否是本工作簿
    
12.             Erow = Range("A1").CurrentRegion.Rows.Count + 1    ' 取得汇总表中第一条空行行号
    
13.             fn = ThisWorkbook.Path & "" & FileName
    
14.             Set wb = GetObject(fn)    ' 将fn 代表的工作簿对象赋给变量
    
15.             Set sht = wb.Worksheets(1)    ' 汇总的是第1 张工作表
    
16.             ' 将数据表中的记录保存在arr 数组里
    
17.             arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
    
18.             ' 将数组arr 中的数据写入工作表
    
19.             Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
20.             wb.Close False
    
21.         End If
    
22.         FileName = Dir    ' 用Dir 函数取得其他文件名，并赋给变量
    
23.     Loop
    
24.     Application.ScreenUpdating = True
    
25. End Sub[/color]
    
26. [color=red]

复制代码

如果不是，那你把你的文件发上来看看。
——ggsmart

chenzyyysl

不好意思，搞错了

yunewlife

感谢各位，我刚刚看了一下   我拿到的都是已经更正了的

jxnucwf

P152
参考答案
用Activate方法不用同时选中多张工作表
应该是不能吧？

P164,最下面一段
注释里：'选中活动工作表中的B3:F10单元格区域
是不是B3:F9？

P170
Range对象的RESIZE属性
。。。。。。。如图4-40和图4-41所示):
多了一个右括号




P190
最下面参考答案第一行
SUB前面多了一个T