背景：
计划用VBA写一个xml文件（开发工具 源 不能满足需求）
整个脚本要很多次写入动作，所以做一个子程序直接调用。
解读：
1.定义公共变量 str xmlfile 为字符串
2.定义I为数字（还未使用到）
sub shishi
赋值 <groups> 到变量 str
调用 xiexml 并带变量 str
sub xiexml（接收任意字符串）
赋值文件路径到变量 xmlfile
追加写入的方式打开文件到 #1
写入变量 str
关闭变量
转载于:https://blog.51cto.com/mflag/2360656
背景：计划用VBA写一个xml文件（开发工具 源 不能满足需求）整个脚本要很多次写入动作，所以做一个子程序直接调用。解读：1.定义公共变量 str xmlfile 为字符串2.定义I为数字（还未使用到）sub shishi赋值 <groups> 到变量 str调用 xiexml 并带变量 strsub xiexml（接收任意字符串）赋值文件路径到变量 xmlfile追加写入的...
CallByName(object, procname, calltype,[args()])
CallByName是个很灵活的函数。帮助说明：执行一个对象的方法，或者设置或返回一个对象的属性。
即：通过名称来调用，这个函数可以通过使用“procname---属性/方法的名称"，操作对象的属性和调用对象的方法。
1、返回（取得）对象的属性的值-----VbGet
Dim result ...
最近由于项目的需要，需要在Excel自定义一些函数，来完成特殊的处理，为了完成工作，就囫囵吞枣的写了一些代码，现在闲暇下来，就好好的学习一下，
VBA
的基础知识。1.变量
1.Dim <<variable_name>> As <<variable_type>>
变量名称必须使用一个字母作为第一个字符。
变量名称不能使用空格，句点(.)，感叹号(
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=emssxjk;"
dl580是tnsnames.ora中配置的服...
2. 通过
VBA
的循环语句遍历需要归类的单元格，将单元格的值与
字符串
数组中的每个元素进行比较。
3. 如果单元格的值与
字符串
数组中的某个元素相等，则将该单元格的地址记录到相应的分类变量中，否则将其记录到其他变量中。
4. 最后可以将分类结果输出到相应的单元格或者弹出消息框。
下面是一个示例代码，该代码将 A1:A10 区域内的单元格按照 "A", "B", "C" 三种
字符串
进行归类：
```
VBA
Sub ClassifyCells()
'定义需要归类的
字符串
数组
Dim arr() As String
arr = Split("A,B,C", ",")
'定义分类变量
Dim classA As String, classB As String, classC As String, other As String
classA = ""
classB = ""
classC = ""
other = ""
'遍历单元格并进行归类
For Each cell In Range("A1:A10")
If cell.Value = arr(0) Then
classA = classA & cell.Address & ","
ElseIf cell.Value = arr(1) Then
classB = classB & cell.Address & ","
ElseIf cell.Value = arr(2) Then
classC = classC & cell.Address & ","
other = other & cell.Address & ","
End If
Next cell
'输出分类结果
Range("B1").Value = "Class A: " & Left(classA, Len(classA) - 1)
Range("B2").Value = "Class B: " & Left(classB, Len(classB) - 1)
Range("B3").Value = "Class C: " & Left(classC, Len(classC) - 1)
Range("B4").Value = "Other: " & Left(other, Len(other) - 1)
End Sub
在上面的代码中，使用了 Split 函数将
字符串
"A,B,C" 拆分成一个
字符串
数组，方便后续的比较。然后使用了 For Each 循环语句遍历了需要归类的单元格，并使用了 If 条件语句判断单元格的值与
字符串
数组中的元素是否相等。最后将分类结果输出到了 B1:B4 区域的单元格中。
