主题：将指定期货最新行情数据写入Excel的代码

在getNewPrice过程中，on error resume next那句下面加上下面一句就可以激活stock.xls文件，而不会写到别的文件中。 MyXl.Parent.Windows("Stock.xls").Activate

谢谢哈。但是我试了，还是出现对其他打开的excel文件的影响问题哈。我用的excel的版本是2003版哈。麻烦版主能不能再帮我试试，解决一下哈。谢谢了！

对不起，是我弄错了。现在可以了哈。完全不受影响了。谢谢版主！再请问一下，如果在导出买一、卖一数据的同时，还要导出最新价、卖一量、买一量这些即时行情数据，应该在该文件中怎么设计呢？拜托版主帮忙指导一下哈。谢谢！

再麻烦一下版主：版主先前的程序修改能解决不导出数据时不影响其它excel文件的使用。而如果Stock.xls中有若干个表（如Sheet1、Sheet2……等），如果想导出的数据只限制在该文件表Sheet1中的特定位置，而又不影响该文件的其他表的使用，该如何进行文件的修改呢？再就是先前问的：如果在导出买一、卖一数据的同时，还要导出最新价、卖一量、买一量这些即时行情数据，应该在该文件中怎么设计呢？麻烦版主费心帮我解决一下哈。多谢了哈！

操作某一个工作表就是在写数据前，选择那个表，语法:MyXl.Sheets("sheet1").Select或MyXl.Application.Sheets("sheet1").Select,具体哪个行，自己试试看。

要写入最新价、卖一量、买一量这些即时行情数据，参考marketdata对象，现在的report1引用的数据只有三个，增加就行了。

貌似其中的过程getexcel（）没有必要，请问它存在的作用是什么呢？

如果无意中关闭了Excel这行代码可以再次打开。

多谢提供，能导出每个1分钟k的时间、四价、量吗？并保存起来以供分析？能导出为其它数据库类型文件吗？

楼上的要求是导出历史数据，可以实现，只是方式不同，使用marketdata对象来做就行了，如果需要导出成其他数据库格式，比如Access，Sql Server等都是可以的，使用ActiveX ADO 对象来实现就行。 至于实现的细节，自己去琢磨就行了，想要现成的，暂时没有。