[求助]：能否用mdl将文本格式的数据写成execl格式的文件

gp341

本来想写成文本格式在导入execl  不知道有没有直接写的方法

guanfahai

mdl直接做，做不到吧！

pipi

写csv类型的文件啊

MicroStation迷

可以做到，用mdlWin32_DdeXXX类函数！

gp341

感谢ms迷 可是有没有例子呀
v8里的例子运行后不知道在做什么

MicroStation迷

V8中的例子ddeclkcn是利用DDE技术从运行的CLOCK.EXE程序中取“当前时间”。
下面是我针对您的向Excel中写数据编写的一个小例子(花了我一整个晚上哟！)
#include <msw32dde.fdf>                    /* For MDL-DDEML prototypes.    */
#include <wnclpext.h>
/*----------------------------------------------+
|      wrt2ExcelByDDE                |
+----------------------------------------------*/
Private void wrt2ExcelByDDE (void)
{
   int            rtn;
   long           idInst = 0;            /* Instance id for MDL-DDEML    */
   HSZ           hszService;            /*   Service string                    */
   HSZ           hszTopic;            /*   Topic   string                    */
   HSZ           hszItem;               /*   Item    string                    */
   HCONV           hConv;                    /* Handle to the conversation.  */
   char     transStr[50];
   
   mdlWin32_DdeInitialize (&idInst, NULL, APPCLASS_STANDARD|APPCMD_CLIENTONLY, 0L);
   hszService = mdlWin32_DdeCreateStringHandle (idInst, "EXCEL", 0);
   hszTopic   = mdlWin32_DdeCreateStringHandle (idInst, "Sheet1",  0);
   hConv = mdlWin32_DdeConnect (idInst, hszService, hszTopic, NULL);
   mdlWin32_DdeFreeStringHandle (idInst, hszService);
   mdlWin32_DdeFreeStringHandle (idInst, hszTopic);

   strcpy (transStr, "Test");
   hszItem    = mdlWin32_DdeCreateStringHandle (idInst, "R1C1",  0);
   mdlWin32_DdeClientTransaction ((LPBYTE)transStr, 4, hConv, hszItem, CF_TEXT, XTYP_POKE, TIMEOUT_ASYNC, NULL);
   mdlWin32_DdeFreeStringHandle (idInst, hszItem);

   strcpy (transStr, "Test");
   hszItem    = mdlWin32_DdeCreateStringHandle (idInst, "R2C2",  0);
   mdlWin32_DdeClientTransaction ((LPBYTE)transStr, 4, hConv, hszItem, CF_TEXT, XTYP_POKE, TIMEOUT_ASYNC, NULL);
   mdlWin32_DdeFreeStringHandle (idInst, hszItem);
}
该例子向Excel的第一行第一列和第二行第二列分别写入了Test字样。
DDE技术是一项非常复杂的技术，其中涉及大量的术语，要想深入了解它请看Microsoft的MSDN。
其实完成你的任务的最好方法应该是采用Automation技术，即以前叫做OLE Automation的。但可惜MDL没有直接支持的方法。
还需要注意的是：要运行通我的例子，需要先启动Excel程序，把它作为服务器，我们的程序作为客户机。当然，你可以用MDL的mdlExternal_startProgram实现自动启动Excel。

gp341

程序调试成功 非常感谢ms迷
但是mdlExternal_startProgram还没有执行完就已经执行写入的wrt2ExcelByDDE()函数了
应该怎么让他等待一下??
还有输入的没有保存 怎么保存 在自动关闭execl???

MicroStation迷

1、如果你用的是MSV8，可以用mdlExternal_extStartProgram来控制Excel启动后再返回，如果用的是MSJ就比较麻烦，需要调用mdlExternal_wait。
2、关闭Excel仍然可以用DDE，不是发送XTYP_POKE而是发送XTYP_EXECUTE即可，当然详细的细节还得靠自己到MSDN里去查找！

gp341

我用的是v8 mdlExternal_extStartProgram没有其他参数了 怎么等待execl启动在返回呢
mdlExternal_wait 怎么使用拿 我试试了 还是不会用

MicroStation迷

把waitForCompletion设为TRUE就行了呀！

gp341

ms迷 不对呀 使用mdlExternal_extStartProgram打开exec
怎么没有用exec 打开一个特定文件的参数

MicroStation迷

char**  argumentsP  不就是吗？！

zergman

偶觉得还是用vc6 或者c++.net做dll 省事儿些。

gp341

我刚才试试了参数 好像没有起作用
在问一下是不是可以使用mdlExternal_terminateProgram 来关闭打开的exec
vc6里面怎么在关闭exec

zergman

vc里直接用excel 的object就可以吧