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

1 本网站名称：LaokNAS网络技术
2 本站永久网址：https://www.laoknas.com
3 本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长 QQ806666754进行删除处理。
4 本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5 本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报
6 本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。

THE END