vba转换vb.net6 vba转vbs( 二 ) _Annotation

'xlBook.Worksheets.Count '工作簿标签总数
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
On Error Resume Next
Workbooks.Add '新建工作簿
MkDir "C:\123"
ChDir "C:\123" '在桌面上建“123”文件夹
'以下是将文件保存到“C:\\模板.xls”
ActiveWorkbook.SaveAs FileName:= _
"C:\123\模板.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Windows("模板.xls").Activate
xlApp.Visible = True
'Sheets("Sheet1").Select
Sheets.Add '新建工作表
Sheets("Sheet2").Name = "新建工作表"
'Sheets("Sheet3").Name = "Sheet"
ActiveWorkbook.Sheets("新建工作表").Tab.ColorIndex = 7 '给工作表标签指定颜色
xlApp.Worksheets("新建工作表").Range("A1").Cells(3, 2) = "添加数据"
'xlApp.Worksheets(Sheets(i).Name).Range("A1").Cells(j, 2) = "@"
'ActiveWorkbook.Sheets("考评").Tab.ColorIndex = 7
'ActiveWorkbook.Sheets("教师任课").Tab.ColorIndex = 7
'ActiveWorkbook.Sheets("班级设置").Tab.ColorIndex = 7
'ActiveWorkbook.Sheets("Zxmd").Tab.ColorIndex = 32
xlBook.Save
xlApp.Save
ActiveWorkbook.Close
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象.
Set xlApp = Nothing '释放xlApp对象
End Sub
还可以到vba转换vb.net6我博客中参阅其他有关代码
【vba转换vb.net6 vba转vbs】关于vba转换vb.net6和vba转vbs的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vba转换vb.net6 vba转vbs( 二 )

推荐阅读

有什么小偏方能治疗男性遗精吗？

p30pro可以贴p30的膜吗华为p30pro可以贴膜吗

ai打造玩沙子小桶图形的操作过程

元宵酸了是不是坏了

非电类如何报考2020年国家电网公司招聘考试？

中国最顶级的rapper 国内rapper歌手排名

蚊子最怕什么蚊子怕的东西中,首当其冲就是杀虫剂了蚊子怕什么

int,signed int和unsigned int 以及printf 的%u，%d的区别

QQ会员18周年内部员工有什么福利腾讯员工获赠1年免费会员

河北联通怎么开10元流量包

传统节日重阳节有哪些习俗重阳节的节日传统

《长风渡》范玉让出皇位的原因长风渡结局是好是坏

含有近义词的词语含有近义词的词语四字

电视游戏手柄,华为电视游戏手柄

刑法放纵制售伪劣商品犯罪行为罪相关司法规定主要内容

三棵树防水当选中国建筑防水协会副会长单位，科技防水筑造美好生活

供应链|超400亿元！这回，台积电也保不住苹果了

浙江省养老金重算补发将开始，为什么7月刚发，8月再次补发

sem如何进行数据分析,Sem数据分析

网络安全知识手抄报内容