老鬼版主：再请教向Excel导入的问题

wang1950317

老鬼版主：从插入窗体的Excel 中导出数据已很好用了，现在想反过来，将窗体文本框中的数据导入到Excel中去，代码该怎样写？请看附件。谢谢！

老鬼

原理是一样的，S1.value = xlsSheet.Range("B8").text这样的代码是将数据从EXCEL导到文本框，xlsSheet.Range("B8").value = S1.value就反向将文本框的数据导到了EXCEL里面。

情比金坚

建议使用控件，而非OLE对象。

wang1950317

谢谢两位版主,数据可以导进Excel表了。情版主建议使用控件，不知使用何控件可进行回归方程计算、作图？我也曾在本站发过帖子求教spreadsheet控件的使用方法，但一直没有人支招，spreadsheet控件就是一个Excel表，但是功能有限远不及插入的Excel工作表。回归可以使用代码完成，但不如在Excel中直观。  谢谢！

wang1950317

情版主：

鬼版主：

       您们好！情比金坚版主建议使用控件，直观结果确实不错。但代码改动还请两位版主打开附件帮帮忙。麻烦您们了！谢谢！谢谢！

老鬼

使用工作表控件后，控件支持同时支持ACCESS和EXCEL VBA，所以代码比较简单。你试着加上下面一段代码测一下：Private Sub Spreadsheet6_Updated(Code As Integer)   '控件数据变更时

S8.Value = Spreadsheet6.Range("A1").Value  '让ACCESS窗体上的S8等于控件的A1单元格的数值

End Sub

wang1950317

很好！老鬼版主。这个控件我很生疏，有几个问题再请教：1 只有在设计视图下输入的数据才能保存，激活代码与激活Excel有何不同？2  虽然工具栏没有函数可调用，但输入Excel函数完全可以使用，但是作图呢？怎样才能在这个控件中制作坐标图? 谢谢!

老鬼

1、你在设计视图里面是设置控件的原始数据。如果相让数据保存下来，必须让数据保存到表里面，窗体打开时让数据自动加载，这些只能靠编程完成。原理其实和OLE控件是一样的。2、制作图表可以使用窗体制作，嵌入原窗体内。这个控件我也很生疏，如果不是你附了附件，我甚至不知道有这个控件。但控件的用法大同小异，举一反三很容易就能搞定。

wang1950317

老鬼版主：对我等菜鸟来说并不是那么容易就能搞定的。例如按照您6楼上的代码从Spreadsheet6中导出数据，非常简便，但一到单位，装的是office2000,Spreadsheet6控件由10.0，11.0变成了9.0，代码不知为什么就不起作用了？是重装软件系统还是有办法引用？ 窗体中插入Excel也是这样，office2003是10.0，一到2000变成9.0，就提示找不到工程或库，必须要打开代码中的“引用”勾选9.0才能正常，每次开机都要这样，也怪烦人的，鬼斑主有没有解决这个问题的办法？      情比金坚版主建议使用OLE控件，想必对Spreadsheet6控件有研究，请对该控件的激活码及有关使用方法大体介绍一下，谢谢了！

老鬼

不同版本的OFFICE有不同版本的控件，在一台机子上应该只要勾选 一次就可以了，如果在很多机子上拷来考去就麻烦了点