不好意思，忘贴代码了

Option Explicit

Private Sub Command1_Click()
Unload Me
'market24.Hide
End Sub

Private Sub Command2_Click()
If fps.EditMode = True Then
fps.EditMode = False
DoEvents
End If

aaa = "market2"
spreadpreview.Show

End Sub

Private Sub Command3_Click()
Dim ExcelObj As Excel.Application
Dim SaveSuccess As Boolean
SaveSuccess = fps.ExportToExcel(App.Path + "\market2.xls", "Sheet1", "")

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Application.Visible = True
ExcelObj.Workbooks.Open (App.Path + "\market2.xls")
'ExcelObj.Cells.Select
'ExcelObj.Selection.Font.Name = "宋体"
ExcelObj.Selection.Font.Size = "12"
'ExcelObj.Range("f2").Value = tech23.Label4.Caption

End Sub

Private Sub Form_Load()

End Sub