无法连接EXCEL
<P>请问各位高手，我编写了一个ｖｂａ程序，需要从ｃａｄ里传递数据到ｅｘｃｅｌ，在我自己的机器上已经调试通过，但到另外一台机器上却老是无法连接，</P><P>即这个语句Set xlApp = GetObject(, "Excel.Application")无法运行</P>
<P>就连写数据到文本文件都不行，在引用里面已经选择了ｅｘｃｅｌ项，请问是什么原因啊？</P>
<P>另外我在06里面程序里面的汉字都可以正常显示，但是在04下面却出现乱码，请问怎么解决啊？</P>
<P>多谢！！</P> <P>用下面的试试：</P>
<P>Dim strDestination As String<BR>Dim xlApp As Excel.Application<BR>Dim xlBook<BR>Dim xlSheet As Excel.Worksheet</P>
<P>Set xlApp = New Excel.Application ''激活EXCEL应用程序<BR>Set xlApp = CreateObject("Excel.Application")<BR>xlApp.Visible = False '隐藏EXCEL应用程序窗口<BR>Set xlBook = xlApp.Workbooks.Open(strDestination) '打开工作簿，strDestination为一个EXCEL报表文件<BR>Set xlSheet = xlBook.Worksheets(1) '设定工作表</P>
<P>'现在就可以直接访问当前活动的工作簿中的“Sheet1”工作表</P>
<P>xlBook.Save '保存文件<BR>xlApp.Quit '退出EXCEL</P>
页:
[1]