Dzwebs.Net

撰写电脑技术杂文十余年

Workbook和Worksheet的简单综合应用

Admin | 2010-4-11 10:16:57 | 被阅次数 | 11060

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  VBA代码中的Workbook对象代表工作簿,而Workbooks集合则包含了当前所有的工作簿。

  本文,为大家介绍Workbook和Worksheet的简单应用

  下面的代码,功能是这样的,创建一个工作薄,并设置该工作薄的第一个工作表,并在表中自动录入数据,最后,将该工作薄保存到D盘,名称是dzwebs.xls。

  Dim wb As Workbook'申明一个工作薄参数
  Dim ws As Worksheet'申明一个工作表参数
  Dim i As Long
  Set wb = Workbooks.Add'新建一个工作薄
  Set ws = wb.Sheets(1)'激活第一个工作表

  '以下内容,是工作表添加内容
  ws.Name = "产品汇总表"
  ws.Cells(1, 1) = "序号"
  ws.Cells(1, 2) = "产品名称"
  ws.Cells(1, 3) = "产品数量"
  For i = 2 To 10
   ws.Cells(i, 1) = i - 1
  Next i

  '保存工作薄
  Application.DisplayAlerts = False'禁止弹出警告框
  wb.SaveAs Filename:="D:/dzwebs.xls"


该杂文来自: Excel杂文

上一篇:精辟讲述符号$在Excel中的灵活运用

下一篇:vba打开工作薄、修改工作薄、保存另存退出工作薄

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计