写成vb标准exe
Private Sub Command1_Click()
Dim xls As Object
Dim book As Object
Dim sht As Object
Set xls = CreateObject("excel.application")
Set book = xls.Workbooks.Open("c:\表格1.xlsm")
Set sht = xls.Worksheets("sheet2")
sht.Cells(2, 2) = "1" 'B2的坐标是第二行第二列
book.Save
book.Close
xls.Quit
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024