在VB中如何使用EXCEL

Dim ExApp As New ExcelApplication
Dim ExBook As ExcelWorkbook
Dim ExWorksheet As ExcelWorksheet
Set ExApp = New ExcelApplication
Set ExBook = ExAppWorkbooksOpen("Excel文件路径")
Set ExWorksheet = ExBookWorksheetsItem(1)'第一个工作表
访问单元格用:
ExWorksheetCells(row, col)'分别为行,列
结束时要:
ExAppWorkbooksClose
ExAppQuit

1 设置合并方式
'flexMergeNever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
'flexMergeFree 1 自由。包含相同内容的单元总是合并。
'flexMergeRestrictRows 2 限制行。只有行中包含相同内容的相邻单元（向当前单元左边）才合并。
'flexMergeRestrictColumns 3 限制列。只有列中包含相同内容的相邻单元（向当前单元上方）才合并。
'flexMergeRestrictBoth 4 限制行和列。只有在行中（向左）或在列中（向上）包含相同内容的单元才合并。
msflexgridMergeCells = flexMergeFree
2 设置合并的列
msflexgridMergeCol(m) = True '第m列合并
msflexgridMergeRow(n) = True '第n行合并

1、第一种方法： ActiveSheetRange("A" & RowsCount)End (xlUp)Row

2、第二种方法：ActiveSheetRange("a1048576")End(xlUp)Row

如果是低版本的OFFICE用ActiveSheetRange("a65536")End(xlUp)Row

3、第三种方法：ActiveSheetCells(RowsCount,1)End(3)Row

4、第四种方法：ActiveSheetrange("A1")CurrentRegionRowsCount

5、第五种方法：ActiveSheetCellsSpecialCells(xlCellTypeLastCell)Row

6、第六种方法：ActiveSheetUsedRangeSpecialCells(xlCellTypeLastCell)Row

7、第七种方法：MaxRow  =ApplicationEvaluate("=MAX((A1:A1048576<>"""")ROW(1:1048576))")

首先找出需要转换成文本格式的数字列，比如下图中的A列，然后在空白列中，比如B列的B2,输入公式“=TEXT（A2，”000“），其中B2与A2对应，”000“指的是小数点为2位数，如果小数点为1位数的可以写上”00“，或者为整数的可以写上”0“。（如下图）
写完公式之后，直接点击”Enter“回车键，结果就显示出来了，然后把鼠标放到B2边框的右下角。（如下图）
当鼠标在B2边框右下角时，会有一个“+”号出现，这是双击鼠标左键进行下拉，这时B列将会显示与A列相对于的数值。（如下图）
然后全选B列的所有数列，复制再粘贴，就会出现右下角一个类似粘贴的图标，点击这个图标，再点击一个123数值。（如下图）
这时候B列的数字全部都是文本格式显示，再把B列的所有数列复制，然后粘贴到A列中，接着再把B列全部删除，这样A列的所有数字都转化成文本格式了。（如下图）

---