VB 操作EXCEL 例子

3星 · 超过75%的资源
所需积分/C币: 34
浏览量·228
DOC
45KB
2011-06-26 22:37:20 上传
身份认证 购VIP最低享 7 折!
icecityman
  • 粉丝: 20
  • 资源: 4
前往需求广场,查看用户热搜
上传资源 快速赚钱
精品专辑
内容简介:Private Sub Command3_Click() On Error GoTo err1 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 ...