终于搞定vb调用任意版本的Excel了 还可以实现对Exce

Dim x As Excel.Application
Dim xbook As Excel.Workbook
Dim xsheet As Excel.Worksheet
Set x = CreateObject("excel.application")
s_path = App.Path & "\mybook.xls"
Set xbook = x.Workbooks.Open(s_path)
Set xsheet = x.Worksheets("sheet3")
xsheet.Range("a1") = Text1(0).Text
xsheet.Range("b1") = Text1(1).Text
xsheet.Range("c1") = Text1(2).Text
xsheet.Range("a2") = Text1(3).Text
xsheet.Range("b2") = Text1(4).Text
xsheet.Range("c2") = Text1(5).Text
xsheet.Range("a3") = Text1(6).Text
xsheet.Range("b3") = Text1(7).Text
xsheet.Range("c3") = Text1(8).Text
xsheet.Range("a4") = Text1(9).Text
xsheet.Range("b4") = Text1(10).Text
xsheet.Range("c4") = Text1(11).Text
x.Visible = False 'excel表不显示
xbook.Close True '保存 并且关闭
Set xsheet = Nothing
Set xbook = Nothing
Set x = Nothing

这个程序应该可以

怎么解决的？能分享一下代码吗？

楼主能不能帮我做一个宏，简单的宏我会做，但我想做得更简单快捷以及自动化一些，可以请回复，费用等你回复后再商量