vb创建excel报48错误解决方法

    修改为下面这种即可：

   先把对应的Excel或者word的引用去掉

 Dim ExcelApp As Object
 Dim Book As Object
 Dim ws As Object
 Set ExcelApp = CreateObject("Excel.Application")
 Set ws = ExcelApp.Workbooks.Add
 ws.SaveAs ("c:\file2.xls")
 ws.Close
 ExcelApp.Quit
 Set ExcelApp = Nothing
 Set Book = Nothing
 Set ws = Nothing