VB如何实现:在一个excel表中的一个按钮,点击按钮可以新建一个excel表并...
发布网友
发布时间：6小时前
共1个回答
热心网友
时间：5分钟前
测试下
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim oWB As Workbook
Set oWB = Application.Workbooks.Add
oWB.Worksheets(1).Range("a1") = 100
oWB.SaveAs ThisWorkbook.Path & "\abc.xls"
Application.DisplayAlerts = True
End Sub
