vba Excel文件中的写入数据

vba Excel文件中的写入数据

‘Form = Command1 ‘引用 Microsoft Excel 11.0 Object Library ‘完成效果:在D盘下建立一个名字为 2的 excel文件 文件中的第5列第5行有“成功字样” ‘下面是代码

Dim xlapp As Excel.Application 
Dim xlbook As Excel.Workbook 
Dim xlsheet As Excel.Worksheet 
Private Sub Command1_Click() 
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象 
Set xlbook = xlapp.Workbooks.Add() 
Set xlsheet = xlbook.Worksheets("Sheet1") '设置活动工作表 
xlsheet.Cells(5, 5) = "成功" '向第五行第五列写入该数据 
xlbook.SaveAs "D:.xls" '另存文件 
xlbook.Close '关闭工作簿 
Set xlbook = Nothing '从内存中清除 
xlapp.Quit '关闭excel 
Set xlapp = Nothing '从内存中清除 
End Sub
 
© 版权声明
THE END
喜欢就支持一下吧
点赞1 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片