如何在Excel打开的情况下写入数据

wjhtuopu1180

在EXCEL 打开的情况下只能读 数 据， 而不能写入数据。
不知如何解决？

xiezhh

可以利用ActiveX控件接口技术

1. >> Excel=actxGetRunningServer('Excel.Application');
   
2. >> Sheets = Excel.ActiveWorkbook.Sheets;
   
3. >> Sheet1 = Sheets.Item(1);
   
4. >> Sheet1.Range('A1:C3').Value = [1 2 3;4 5 6;7 8 9];

复制代码

wjhtuopu1180

谢谢。我试一 下。

wjhtuopu1180

还是没有成功。

xiezhh

出了什么问题，描述一下。

wjhtuopu1180

不好意思。主要问题如下：

1. EXCEL文件重复打开。
2. 数据不能写入提示有误。见附件

xiezhh

filename是文件的完整路径，根本就不是Excel工作簿的接口，怎么能那样用呢，先返回文件中工作簿的接口句柄，然后再查找工作表接口句柄，最后才能写入数据。

1. 
   
2. w = invoke(wkbs,'open',filename);
   
3. sh2 = w.sheets.item(5);
   

复制代码

如果打开的EXCEL文件中没有5个工作表，以上命令可能错误。

wjhtuopu1180

非常感谢。可以写入了。

还有一个问题：如何检测EXCEL文件已打开？否则老是运行一次EXCEL又打开一次。

xiezhh

可以这样：

1. try
   
2.     Excel=actxGetRunningServer('Excel.Application');
   
3. catch
   
4.     Excel = actxserver('Excel.Application');
   
5. end;

复制代码

xieyubing734

学习了，这个很有用啊~