无法连接EXCEL

limaolv

请问各位高手，我编写了一个ｖｂａ程序，需要从ｃａｄ里传递数据到ｅｘｃｅｌ，在我自己的机器上已经调试通过，但到另外一台机器上却老是无法连接，

即这个语句Set xlApp = GetObject(, "Excel.Application")无法运行

就连写数据到文本文件都不行，在引用里面已经选择了ｅｘｃｅｌ项，请问是什么原因啊？

另外我在06里面程序里面的汉字都可以正常显示，但是在04下面却出现乱码，请问怎么解决啊？

多谢！！

下载源码

用下面的试试：

Dim  strDestination As String
Dim xlApp As Excel.Application
Dim xlBook
Dim xlSheet As Excel.Worksheet

Set xlApp = New Excel.Application ''激活EXCEL应用程序
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False '隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination) '打开工作簿，strDestination为一个EXCEL报表文件
Set xlSheet = xlBook.Worksheets(1) '设定工作表

'现在就可以直接访问当前活动的工作簿中的“Sheet1”工作表

xlBook.Save  '保存文件
xlApp.Quit  '退出EXCEL