无法连接EXCEL

limaolv · 发表于 2006-9-20 08:44:00

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

下载源码 · 发表于 2006-9-21 10:25:00

用下面的试试：
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

无法连接EXCEL

发表回复

精选推荐