Private Sub Command3_Click() Dim x As Excel.Application Dim xbook As Excel.Workbook Dim xsheet As Excel.Worksheet Set x = CreateObject("excel.application") s_path = App.Path & "\test1.xls" Set xbook = x.Workbooks.Open(s_path) S.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024