vb如何实现excel的另存为操作
引用了microsoftexcel12.0objectlibrary后DimEXAsExcel.ApplicationPrivateSubForm_Load()SetEX...
引用了microsoft excel12.0 object library后
Dim EX As Excel.Application
Private Sub Form_Load()
Set EX = New Excel.Application
'网上COPY的代码是 Set EX as 但总提示缺少= 故改为Set EX =
EX.Workbooks.Open ("C:\123.xls")
EX.Cells(4, 4).Value = "3333"
EX.SaveAs ("C:\test.xls")
EX.Quit
End Sub
f5后EX.SaveAs ("C:\test.xls")提示
对象不支持属性或方法
求解
系统win03 office版本2007 vb版本6.0
已经解决了 谁第一个恢复就给谁分吧 东东都做完了还没人恢复哎…… 展开
Dim EX As Excel.Application
Private Sub Form_Load()
Set EX = New Excel.Application
'网上COPY的代码是 Set EX as 但总提示缺少= 故改为Set EX =
EX.Workbooks.Open ("C:\123.xls")
EX.Cells(4, 4).Value = "3333"
EX.SaveAs ("C:\test.xls")
EX.Quit
End Sub
f5后EX.SaveAs ("C:\test.xls")提示
对象不支持属性或方法
求解
系统win03 office版本2007 vb版本6.0
已经解决了 谁第一个恢复就给谁分吧 东东都做完了还没人恢复哎…… 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询