该篇文章照抄自:http://www.cnblogs.com/xwgli/p/5845317.html 在 Excel 中使用正则表达式进行查找与替换 在 Excel 中,使用 Alt+F11 快捷键打开 VBA 项目窗口,在左侧的工作表名称上点右键,选择查看代码,即可出出现右侧的代码编辑窗口 在窗口中输入以下代码 Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range, Cell As Range
Sub AutoInputValNewExcel() Dim sh1, sh2 As Worksheet Dim ws1, ws2 As Workbook ) ) ).Sheets() iRows = sh1.UsedRange.Rows.Count If i > ws2.Sheets.Count Then ws1.Sheets().Copy After:=ws2.Sheets(ws2.Sheets.Count) End If Set sh2 = ws2.Sheets(i) sh2.Name =
使用OLEDB可以对excel文件进行读取,我们只要把该excel文件作为数据源即可 首先引用Microsoft.EXEL 代码如下: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms