Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets("Sheet1")
此处是你的处理代码。
xlbook.SaveAs App.Path & "\" & "adbc.xls"
xlbook.Close
Set xlbook = Nothing
xlapp.Quit
Set xlapp = Nothing
End Sub
希望对你有帮助。
这个嘛，书上有
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024