使用以下代码打开excel,然后使用SaveExcel保存(不加参数),格式变化了,附件是excel,附件是zip,解压后得到excel
Dim s As System.IO.FileStream
Try
s = New System.IO.FileStream(file_path, IO.FileMode.Open, IO.FileAccess.ReadWrite)
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Dim wl As New FarPoint.Excel.ExcelWarningList
Try
frmcommon_inst.FpSpread1.OpenExcel(s, wl)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try