无法连接EXCEL
请问各位高手，我编写了一个ｖｂａ程序，需要从ｃａｄ里传递数据到ｅｘｃｅｌ，在我自己的机器上已经调试通过，但到另外一台机器上却老是无法连接，即这个语句Set xlApp = GetObject(, "Excel.Application")无法运行
就连写数据到文本文件都不行，在引用里面已经选择了ｅｘｃｅｌ项，请问是什么原因啊？
另外我在06里面程序里面的汉字都可以正常显示，但是在04下面却出现乱码，请问怎么解决啊？
多谢！！
用下面的试试：
DimstrDestination 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
页:
[1]