(用VB操作excel方法汇总.docVIP

Private Sub Command3_Click()? ? ? ? Dim i As Long? ? Dim j As Long? ? Dim objExl As Excel.Application? ?声明对象变量? ? Me.MousePointer = 11? ?? ?? ?? ?改变鼠标样式? ? Set objExl = New Excel.Application? ? 初始化对象变量? ? objExl.SheetsInNewWorkbook = 1??将新建的工作薄数量设为1? ? objExl.Workbooks.Add? ?? ?? ? 增加一个工作薄? ? objExl.Sheets(objExl.Sheets.Count).Name = book1??修改工作薄名称? ? objExl.Sheets.Add , objExl.Sheets(book1) 增加第二个工作薄在第一个之后? ? objExl.Sheets(objExl.Sheets.Count).Name = book2? ? objExl.Sheets.Add , objExl.Sheets(book2) 增加第三个工作薄在第二个之后? ? objExl.Sheets(objExl.Sheets.Count).Name = book3? ? objExl.Shee