终于搞定vb调用任意版本的Excel了 还可以实现对Excel在线编辑 不用频繁的先关闭再运行程序了 不过有很多编辑表格的功能得重做 否则无法实现 这点还是有点小**

我也想做这方面的交互，可否分享？

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

这个程序应该可以

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

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