VBA的工作薄、工作表、单元格、数组等常见的对象的综合举例www.toutiao.com?2021-01-2415:47上一章给大家分享了
关于单元格Range对象的批注和对单元格的背景色设置，单元格的属性字体的设置等，今天就不分享新的知识点了就简单的最近这几天分享的知
识点综合的集中在一起举个例子给大家看看。免得大家把前面的都忘记了。今天举的这个例子主要是先判断一个工作簿是否存在，如果不存在就开始
新建一个工作簿，然后关闭新建的工作薄，再利用以前学过的数组，给没有打开的工作薄中添加表头，再添加数据。这里面使用到了Workboo
k、Worksheet、数组、活动的工作簿ActiveWorkbook对象的属性和方法，其中还包括Range对象及其属性方法等等。
下面一起先看看对代码的具体解释VBA的工作薄、工作表、单元格、数组等常见的对象的综合举例VBA的工作薄、工作表、单元格、数组等常见
的对象的综合举例VBA的工作薄、工作表、单元格、数组等常见的对象的综合举例注意：代码中的thisworkbook值得就是你已经打开
正在操作的工作薄，新建的工作薄就会保存到你操作工作薄的路径下。下面是具体的代码：代码1：Subk()DimwAsWorkb
ook,sAsWorksheet,rAsRange,jAsIntegerDimarrAsVariantDi
mr1AsRange,arr1AsVariant,j1AsIntegerDimfAsVariantf=
ThisWorkbook.Path&"\学生成绩表.xls"IfLen(Dir(f))<=0ThenSetw=W
orkbooks.AddSets=w.Worksheets(1)s.Name="学生成绩表"Setr=Worksh
eets("学生成绩表").Range("A65536").End(xlUp)arr=Array("名次","姓名","语
文","数学","英语","总分","标准")Ifr.Value<>""ThenSetr=r.Offset(
1,0)EndIfForj=0To6Worksheets("学生成绩表").Range(r.Address).Off
set(0,j).Value=arr(j)Nextw.SaveAsThisWorkbook.Path&"\学生成绩表.
xls"ActiveWorkbook.CloseElseMsgBox"文件已经存在，请换个文件名。"EndIfWorkbook
s.Open(f)Setr1=Worksheets("学生成绩表").Range("A65536").End(xlUp)a
rr1=Array("1","张起","89","67","72","228","中等")Ifr1.Value
<>""ThenSetr1=r1.Offset(1,0)EndIfForj1=0To6Worksheets
("学生成绩表").Range(r1.Address).Offset(0,j1).Value=arr1(j1)NextAct
iveWorkbook.Closesavechanges:=TrueEndSubVBA的工作薄、工作表、单元格、数组等常见的对
象的综合举例https://www.toutiao.com/i6921227310284718606/?timestamp=1
611705063&app=news_article_lite&use_new_style=1&req_id=2021012707
51020102020551670F0A58AD&share_token=713b88c2-61d3-4cda-8f95-bd67ddda0356&group_id=6921227310284718606 |
|
