目录

ColumnComboBoxCopy PasteCountAEvaluateExcel to XMLExcel ADOExcel to Text FileExcel Toolbar

Column

(资料图片)

1.选择整列如columnIndex为11则转换后的列名为K，columnIndex为111则转换后的列名为DG。3. 将数组直接赋值给Columns4. 指定Column的宽度LBound和UBound分别表示了数组的下标和上标，该示例采用了两种不同的方法填充ComboBox，一种是在循环中采用AddItem方法，一种是使用Excel的系统函数Transpose。通过ComboBox.Value可以得到ComboBox的当前值。

返回目录

Copy Paste

1.利用VBA复制粘贴单元格示例将A1单元格复制到A10单元格中，Application.CutCopyMode =False用来告诉Excel退出Copy模式，此时被复制的单元格周围活动的虚线将消失。还有一种较为简单的粘贴方式，用ActiveSheet.Paste Destination := Range("A10")代替上例中的3、4行，或者直接用Range("A1").Copy Destination := Range("A10")代替上例中的2、3、4行。2. 使用VBA进行单元格复制粘贴的一个例子

返回目录

CountA

1.返回当前所选区域中非空单元格的数量Evaluate函数对给定的表达式进行公式运算，如果表达式匹配公式失败则抛出异常。示例中对公式Concatenate进行运算，该公式将给定的多个字符串连接起来。如下面这个例子用来判断当前单元格是否为空：

返回目录

Excel to XML

1. 导入XML文件到Excel的一个例子

返回目录

Excel ADO

1. 使用ADO打开Excel2. 使用SQL语句在用ADO打开的Excel中插入一行数据3. 使用ADO从Access读取数据到Excel注意其中的CopyFromRecordSet方法，它可以从RecordSet中将数据直接读取到Excel的Range中，这比自己编写代码通过循环去填充Cell值要方便很多。如下面的方法就是通过循环读取值，然后通过Debug语句将读取到的值打印在Immediate窗口中。4. 将Access中的数据读取到Excel的一个例子读者可以自行创建测试环境运行这段代码（可根据需要做适当修改），其中程序将各种值打印到Immediate窗口中了。

返回目录

Excel to Text File

1. 使用TextToColumns方法Range.TextToColumns方法用于将包含文本的一列单元格分解为若干列，有关该方法的详细介绍，读者可以参考Excel的帮助信息，在Excel的帮助信息中搜索TextToColumns即可。示例中的代码将Sheet3中A20单元格所在的当前区域（可以简单地理解为A1:A20的区域）的内容通过TextToColumns方法复制到第三列中，这个由Offset的值决定。如果要演示该示例，读者可以在Excel中创建一个名称为Sheet3的工作表，然后在A1至A20的单元格中输入值，复制代码到Excel VBA工程中，通过按钮触发Click事件。2. 导出Range中的数据到文本文件3. 从文本文件导入数据到Excel示例从c:\textfile.txt文件中按行读取数据并依次显示到当前Sheet的单元格中。

返回目录

Excel Toolbar

通过VBA隐藏Excel中的Toolbars2. 通过VBA恢复Excel中的ToolbarsEndSub