用GetObject跨表取值，EXCEL能取值，WPS取不了值？

anijoe123 · 发表于 2024-10-25 16:37

本帖最后由 anijoe123 于 2024-10-25 16:43 编辑

用GetObject跨表取值，代码没错，EXCEL能取值，WPS取不了值？

Sub 跨文件取值()
Dim MYFILE, wb As Workbook
'选择要取值的工作薄
MYFILE = Application.GetOpenFilename("EXCEL文件(*.XLS*),*.XLS*", , "选择数据表（可多选）", , False)
ThisWorkbook.Sheets(1).UsedRange.Clear
Set wb = GetObject(MYFILE) '打开目标表
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).[a1] '复制目标表数据至当前表
End Sub

复制代码

一个简单的取值代码，把另一个表的数据复制到当前表。
在excel中运行没问题，可以取值。
微信截图_20241025163157.png

但在WPS中运行，发现getobject无法在VBE中打开目标表，

请教一下各位大神，有没有遇到这个问题?
以下是截图中案例文件，请各位老师帮忙看一下。EXCEL运行没问题的，请用WPS看一下，有没有我描述的问题

WPS中宏getobject取不了值.rar (20.21 KB, 下载次数: 5)

z865593849 · 发表于 2024-10-25 17:58

没有问题

anijoe123 · 发表于 2024-10-25 23:02

z865593849 发表于 2024-10-25 17:58
没有问题

这么神奇吗？我这打不开呢。F8到getobject后，左边资源管理器并没有打开目标表，但excel能正常打开，用open又可以

anijoe123 · 发表于 2024-10-26 15:22

z865593849 发表于 2024-10-25 17:58
没有问题

你是WPS会员开的VBA宏功能还是外装的VBA插件？
VBA宏功能，WPS中是会员功能。
我在想是不是VBA插件的问题

逍遥爱迪生 · 发表于 2024-10-28 01:27

WPS安装一下VBA版本吧

anijoe123 · 发表于 2024-10-29 14:21

逍遥爱迪生发表于 2024-10-28 01:27
WPS安装一下VBA版本吧

有安装VBA库的，能正常运行其它代码，就这个getobject跨文件取值运行不了。

杨建营 · 发表于 2024-10-30 14:34

测试了一下，可以取值。

anijoe123 · 发表于 2024-11-1 21:19

杨建营发表于 2024-10-30 14:34
测试了一下，可以取值。

太奇怪了，我这运行不了呢。发给了其它的，有的运行不了，有的运行可以。
从代码上看，是没问题的。所有EXCEL中运行都不会有问题的
但WPS有时就失效。
WPS也是在官网下载的呢。
VBA插件安装的是这个，没有开会员用的官方VBA库：

是不是和VBA插件有关？

lss001 · 发表于 2024-11-1 21:55

anijoe123 发表于 2024-11-1 21:19
太奇怪了，我这运行不了呢。发给了其它的，有的运行不了，有的运行可以。
从代码上看，是没问题的。所有 ...

加入第二个参数试试
Set wb = GetObject(MYFILE, "Excel.Sheet.8")
  或者
  Set wb = GetObject(MYFILE, "Excel.Sheet.12")
  t = Timer '加入延时5秒
  While Timer < t + 5: DoEvents: Wend

		自动登录	找回密码
密码			免费注册

[求助] 用GetObject跨表取值，EXCEL能取值，WPS取不了值？