有氧呼吸

 VBA中经常需要对文件夹里的XLS文件进行打开、复制粘贴等操作，可以直接在代码中指定文件路径，但如果是要批量打开多个文件，就要想办法把所有的文件名存到数组里再一一读取。可以使用Application的FileDialog方法，来获取文件或文件夹的路径，再使用Dir函数读取具体的文件名。 调用FileDialog方法可以使用with语句构建，如下： With Application.FileDialog(msoFileDialogFolderPicker) End With 括号里面的参数可以有四种选择，分别是msoFileDialogFilePicker-允许用户选择文件，msoFileDialogFolderPicker-允许用户选择文件夹，msoFileDialogOpen-允许用户打开文件，msoFileDialogSaveAs-允许用户保存文件。直接运行此语句就会跳出文件对话框。这里以文件夹举例。 接下来就可以在with语句内部对文件对话框框的选择结果进行操作。这里涉及到FileDialog的show方法，show方法返回-1（操作）或者0（取消）。FileDialog还有一个SelectedItems属性，会返回一个集合，里面是所选文件的路径列表。可以用一个简单的语句理解.show和.SelectedItems的使用： If .Show = -1 Then      PathStr = .SelectedItems(1)      MsgBox PathStr Else      MsgBox "Cancel" End If 如果选了文件夹并点了确定按钮，Msg就会显示出所选文件夹的路径；如果选了取消，Msg就显示Cancel。实际应用中，通常在.Show返回0的情况后面跟Exit Sub，退出程序。 需要注意的是，如果上面的例子我们没有使用选择文件夹的参数，而是msoFileDialogOpen或msoFileDialogSaveAs，在文件对话框里选择了文件并确定后，系统并不会真的执行Open或者Save动作，而是要再写Workbook.Open语句进行操作。 FileDialog的参数可以使用msoFileDialogFilePicker来选择多个文件...

之前以为自己把数据的概念搞清楚了，在工作中多次涉及到相关知识点，但还是有一次出了问题。在给数组变量赋值时，发现直接引用单元格的方式行不通了，提示“类型不匹配”。我用了如下语句：  Dim sht() sht = Worksheets(1).Range("B4:B6") 在 《VBA学习笔记2：数组的使用》 中，我曾总结： 直接引用区域也是创建数组的办法，因为range的默认方法是value，所以直接使用arr=range("A1:B6")这样的语句就能为数组赋值了。 但是用 sht = Worksheets(1).Range("B4:B6") 却出现错误。使用Debug检查发现一些问题。 首先用 Debug.Print TypeName(Worksheets(1).Range("B4:B6")) 检查了数据类型，返回“range”，而dim sht()时，sht的默认属性是variant，是否是这个原因造成无法赋值呢？ 但是当我把Worksheets(1)去掉时，这个语句居然奏效了，虽然 Debug.Print TypeName(Range("B4:B6")) 出来的还是“range”类型，但sht = Range("B4:B6")的赋值确实是有效的。 那如果我要赋值的数据不是当前工作表呢？试着把Dim sht()去掉，也就是说赋值前不声明数组变量， sht = Worksheets(1).Range("B4:B6") 居然也奏效了， Debug.Print TypeName(Worksheets(1).Range("B4:B6")) 依然返回“range“。 再试一下，如果直接声明Dim sht，或Dim sht as variant，则后面的语句无论加不加worksheets都能生效。 这让人感觉有点混乱，稍微一个不小心就会出错。在微软官方文档并没有找到相关说明。 总结了一下引用区域对数组赋值的两个规则： 1.range对象可以为未声明变量或variant变量（Dim x）赋值，其值会转换为variant类型。 2.声明数组变量后再赋值，只适合当前工作表，不能引用range的父对象。

 问题来源：一个项目需要使用inputbox来获取用户输入值，如果用户点击了“取消”或者输入了未在备选里的值将自动退出程序。获取输入值我使用了 num = inputbox(optfm) 语句，接下来使用 If num = false Then Exit Sub 语句来退出。测试中却发现点击了“取消”程序并未退出，而是继续执行了后面的语句。搜索后发现，原来inputbox语句分“函数”和“方法”两种，其返回值不同，所以处理方式也不相同。 Inputbox函数，是VBA的内置函数，无论是在Excel、Word，任何使用VB脚本语言的程序都能使用，而Inputbox方法，完整写法是Application.Inputbox，是Excel这个App特有的，其语法与Inputbox函数稍有不同，是为Excel量身定做的。使用中，直接输入Inputbox就是函数的用法，使用“方法”的话就必须在前面加上Application.。 Inputbox函数和方法的主要区别 1.提示文字的限制不同。两个语句第一个参数均是提示文本，但是Inputbox函数的提示文本最大可以是1024个字符，而Inputbox方法最大是255个字符。两者均可在提示文本中使用Chr(10)换行符。 2.Inputbox方法多了一个Type参数，这个参数可以指定返回数据的类型，如果省略则默认返回文本。此参数在Excel很有用，如果使用参数8（range类型），则可以直接用鼠标选择对应的单元格区域。 3.此点最为重要，Inputbox函数如果 用户选择"取消  "，  函数将返回一个零长度字符串 ("")；而Inputbox方法用户选择“取消”，会直接 返回  False。 引用微软的官方总结： InputBox  方法与  InputBox  函数的区别在于，前者可以对用户输入进行选择性验证，并能与 Excel 对象、错误值和公式结合使用。 回到开头的问题，可以得出结论，如果使用了 num = inputbox(optfm) 语句，则后面判断用户是否“取消”要使用 if num="" Then Exit Sub ；如果使用 num = Application.Inputbox(optfm) ，后面的判断应使用 if num=False Then...

对于办公人员来说，使用数据最大的好处是，需要写入或计算的数据会在内存里组织好后一次性贴入单元格内，而不是逐个贴入。这样可以大大提升VBA代码的运行速度，特别是针对数据量大的表格，避免了屏幕反复刷新的情况。本文梳理几个常与数组配合使用的知识点。 1.数组的参数 数组的参数指明对数组的引用，类似对单元格区域的引用，如果是二维数组，同样遵循“先行后列”原则。如： range("A1:B6")(3,2)     '引用区域 "A1:B6"中第3行第2列的值 arr(3,2)     '引用二维数组 第3行第2列的值 但是，Range("A1:B6")(3) 是引用区域"A1:B6"中的第3个单元格的值（先行后列），而对二维数组arr使用“arr(3)”语句的话，就会“下标越界”，因为二维数组必须使用两个参数。 2.数组的产生 数组产生的方式有多种，每种方式产生的结果有细微差异。 ①最简单的方式，和工作表中的数组公式类似，即使用{}括住数组的内容，横向数组采用“，”分隔，纵向数组采用“；”分隔。VBA中的数组还要在大括号外面加上一对“[]”。 Sub 数组产生() Dim arr(), arr1() arr = [{"语文";"数学";"英语";"体育"}]     '产生纵向二维数组 arr1 = [{"语文","数学","英语","体育"}]      '产生横向一维数组 Debug.Print arr(2, 1)     ‘结果：数学 Debug.Print arr1(2)      ‘结果：数学 End Sub 上例，arr是纵向数组，因为VBA中只有横向一维数组，没有纵向一维数组，所以arr是二维数组，引用时必须用两个参数。而arr1则是一维数组。 ②以上手工录入数组元素的方式，中括号可以用evaluate函数代替。但是evaluate函数的参数是文本类型，所以要在大括号外加上双引号。为了避免产生歧义，大括号内的双引号要变成”双双引号“。如：arr = evaluate("{...

案例分析：现有工作簿A和工作簿B，A中有一些工作表与B中的工作表同名，也有一些工作表B中没有。需要把A和B同名的那些工作表内容从B数值化粘贴到A对应的表里。 此案例看起来比较简单，最重要的一步就是复制粘贴，很容易实现；通过A工作簿里的表名去找B里对应的表也比较容易，把表名设定为变量即可。难点在于A有，B没有的工作表如何处理。 首先设置几个变量，便于后面的引用： Dim Nonesht As String '在B中找不到对应工作表的提示 Dim shtname As String '需要复制粘贴的表名 Dim Desbook As Workbook '目标工作簿A Dim Soubook As Workbook '来源工作簿B 因为工作簿名比较长，所以用Desbook和Soubook来表示。用如下语句开启循环，确保A中的每个工作表都能进入循环中。同时为shtnam赋值当前A中工作表的表名，以便后续复制粘贴时可以引用。 For i = 1 To Desbook.Worksheets.Count Shtname = Desbook.Worksheets(i).Name 如果A中的工作表在B中没有对应，我初步的想法是用goto语句跳转。如何判断shtname是否在B工作簿中呢？我用了is nothing语句 If Soubook.Worksheets(Shtname) Is Nothing Then     GoTo skip Else 但是这个语句会报”下标溢出“的错误，因为如果Shtname不在B里，那表达式Soubook.Worksheets(Shtname)就是错误的。 所以我在前面加上了on error resume next的语句，期望如果报错忽略继续运行，结果依然报错。 这样犯了逻辑上的错误。系统无法判断一个错误的东西是不是不存在！既然Worksheets(Shtname)的语句错误，那后面is nothing根本无从谈起。 改进后如下：      On Error Resume Next      shtnam = Soubook.Worksheets(Shtname).Name        ...