打开几个excel就有几个进程，excel无法跨表格链接。

barryro

打开几个excel就有几个进程，excel无法跨表格链接。
excel版本：2016，电脑上未安装其它版本。
1、试过重装；
2、试过修改注册表；
3、试过控制面板修改默认程序。
谁遇到到这个问题帮忙处理一下！

一把小刀闯天下

'要知道进程中Excel文件名的具体位置

Option Explicit

Sub test()
    Dim xlApp(1 To 5), i
    For i = 1 To UBound(xlApp)
      Set xlApp(i) = GetObject("c:\测试" & i & ".xls").Application
      Debug.Print xlApp(i).Workbooks(1).Worksheets(1).[a1] '分别打印5个excel进程中第一个工作簿第一个工作表中[a1]中的内容
    Next
End Sub

Sub createxcelapp() '创建5个excel进程，运行一次即可
  Dim i, xlApp(1 To 5), xlbook
  xlbook = xlApp
  For i = 1 To UBound(xlApp)
    Set xlApp(i) = CreateObject("excel.application")
    Set xlbook(i) = xlApp(i).Workbooks.Add
    xlApp(i).Visible = True
    xlbook(i).Sheets(1).Range("a1") = i '写上标志，其实就是创建顺序，默认情况下getobject只能获取第一个运行中excel表格数据
    xlbook(i).SaveAs "c:\测试" & i & ".xls"
  Next
End Sub

barryro

位置都在“C:\Program Files\Microsoft Office\root\Office16”

2489586288

告诉你两个可行的办法：
1:打开一个Excel进程后，剩下的用文件-打开方式打开
2:装一个office tab插件

barryro

2489586288 发表于 2017-10-7 10:37
告诉你两个可行的办法：
1:打开一个Excel进程后，剩下的用文件-打开方式打开
2:装一个office tab插件

第一种方法不方便，第二种方法我试了不行。

2489586288

其他的我也试过，什么改注册表之类的都没用

barryro

2489586288 发表于 2017-10-7 11:07
其他的我也试过，什么改注册表之类的都没用

原因找到不，所以无法解决。

2489586288

我的就是装了插件就行了

microyip

使用手工打开还是代码打开？一般不会出现这种情况，我在Win10,office2016上测试过。

barryro

microyip 发表于 2017-10-7 11:21
使用手工打开还是代码打开？一般不会出现这种情况，我在Win10,office2016上测试过。

手工打开。我也是WIN10,OFFICE2016。
装了几个月了，突然出现现在这种情况。