'举个例子：将D盘下b.xlsx另存为将D盘下test.xlsx'引用Microsoft Excel 12.0 Object Library，版本不太一样，有可能是14Private Sub Command1_Click() Dim xlsApp As Excel.ApplicationDim xlsWorkbook As Excel.WorkbookDim xlssheet As Excel.WorksheetSet xlsApp = CreateObject(Excel.Application)Set xlsWorkbook = xlsApp.Workbooks.Open(D:\b.xlsx) Set xlssheet = xlsWorkbook.Worksheets(1)xlsApp.Visible = False xlsWorkbook.SaveAs D:\test.xlsx '另存文件xlsApp.Quit Set xlssheet = Nothing Set xlsWorkbook = Nothing Set xlsApp = Nothing End Sub
