请问win10里怎么创建 arraylist 对象

爱疯 · 发表于 2020-9-21 10:01

本帖最后由爱疯于 2020-9-30 16:24 编辑

Sub test()
Dim al
Set al = CreateObject("System.Collections.arraylist")
End Sub

win7+office2010，可以

QQ截图20200921095739.png

win10+office2010，如图

Yalishanda30 · 发表于 2020-9-21 19:32

测试没问题啊

Datous · 发表于 2020-9-21 19:45

我的也是这样
是不是 32位和64位的问题？

爱疯 · 发表于 2020-9-22 09:07

Yalishanda30 发表于 2020-9-21 19:32
测试没问题啊

谢谢 Yalishanda30 ！
win10 下，我试了还是报错

zhangxiaod1 · 发表于 2020-9-22 10:50

你是不是支持库的问题呀比如net支持库更新下net4.5支持库看看

Yalishanda30 · 发表于 2020-9-22 13:12

爱疯发表于 2020-9-22 09:07
谢谢 Yalishanda30 ！
win10 下，我试了还是报错

VBA ArrayList Automation Error
You may encounter the VB Run-time Error ‘-2146232576 Automation Error’ when trying to get the ArrayList to work. Or sometimes your code has been working for a long time and then suddenly this error appears.

This is caused by not having the correct .Net Framework version installed. The correct version is 3.5. It doesn’t matter if you have a later version like 4.7, you must have 3.5 installed.
大意是不管你是否安装了最新版的.NET环境，.NET 3.5版本的环境也是必须安装的

爱疯 · 发表于 2020-9-22 15:05

Yalishanda30 发表于 2020-9-22 13:12
VBA ArrayList Automation Error
You may encounter the VB Run-time Error ‘-2146232576 Automation E ...

1）只能安装3.5版，其它高版本也不行，是吗？
2）3.5版是这个吗？
Download Microsoft .NET Framework 3.5 Service Pack 1（完整软件包） from Official Microsoft Download Center
https://www.microsoft.com/zh-cn/download/details.aspx?id=25150

QQ截图20200922150034.png

第1次，执行，进度条到大概1/6处一直不动，等了十分钟，受不了，重启了。
第2次，执行，如下图。
QQ截图20200922144526.png

3）后来发现D盘多了个文件夹，如下图
QQ截图20200922150333.png

执行了 setup后，如下

QQ截图20200922145459.png

请问，你那里的 win10 可以吗，需要安装的在哪儿下载？

zpy2 · 发表于 2020-9-22 19:17

爱疯发表于 2020-9-22 15:05
1）只能安装3.5版，其它高版本也不行，是吗？
2）3.5版是这个吗？
Download Microsoft .NET Framework ...

https://blog.csdn.net/ryu2003/article/details/90726966win10应该自带.net的。

Datous · 发表于 2020-9-22 20:48

爱疯发表于 2020-9-22 15:05
1）只能安装3.5版，其它高版本也不行，是吗？
2）3.5版是这个吗？
Download Microsoft .NET Framework ...

有专门的cmd 安装命令dism，直接运行安装不了
命令还有好几个版本

hnsd24 · 发表于 2020-9-22 21:42

参考下这个思路，看能不能解决
在x64 OFFICE中使用ScriptControl控件的方法

Sub Test()
Dim oSC As Object
Set oSC = CreateObjectx86("ScriptControl") ' create ActiveX via x86 mshta host
Debug.Print TypeName(oSC) ' ScriptControl
With oSC
'操作oSC
End With
CreateObjectx86 , True ' close mshta host window at the end
End Sub
Function CreateWindow()
Dim sSignature, oShellWnd, oProc
On Error Resume Next
sSignature = Left(CreateObject("Scriptlet.TypeLib").GUID, 38)
CreateObject("WScript.Shell").Run "%systemroot%\syswow64\mshta.exe about:""about:<head><script>moveTo(-32000,-32000);document.title='x86Host'</script><hta:application showintaskbar=no /><object id='shell' classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object><script>shell.putproperty('" & sSignature & "',document.parentWindow);</script></head>""", 0, False
Do
For Each oShellWnd In CreateObject("Shell.Application").Windows
Set CreateWindow = oShellWnd.GetProperty(sSignature)
If Err.Number = 0 Then Exit Function
Err.Clear
Next
Loop
End Function
Function CreateObjectx86(Optional sProgID, Optional bClose = False)
Static oWnd As Object
Dim bRunning As Boolean
#If Win64 Then
bRunning = InStr(TypeName(oWnd), "HTMLWindow") > 0
If bClose Then
If bRunning Then oWnd.Close
Exit Function
End If
If Not bRunning Then
Set oWnd = CreateWindow()
oWnd.execScript "Function CreateObjectx86(sProgID): Set CreateObjectx86 = CreateObject(sProgID): End Function", "VBScript"
End If
Set CreateObjectx86 = oWnd.CreateObjectx86(sProgID)
#Else
Set CreateObjectx86 = CreateObject("ScriptControl")
#End If
End Function

复制代码

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

[已解决] 请问win10里怎么创建 arraylist 对象