你在贴书数据之前,先要保存一下。给个例子吧 If ExcelApp Is Nothing Then Set ExcelApp = CreateObject("Excel.Application") End If With ExcelApp .Visible = False Set ExcelWK = .Workbooks.Open(FileName:=App.Path & "\model.xls") ExcelWK.Activate ExcelWK.SaveAs FileName:=App.Path & "\" & xlsName & ".xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False
是否提示框?楼上的写法用不起来。
If ExcelApp Is Nothing Then
Set ExcelApp = CreateObject("Excel.Application")
End If With ExcelApp
.Visible = False
Set ExcelWK = .Workbooks.Open(FileName:=App.Path & "\model.xls")
ExcelWK.Activate
ExcelWK.SaveAs FileName:=App.Path & "\" & xlsName & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
.... '数据处理
ExcelWk.save
.visible=true
end with