EXCEL 64位版本加载不了EXCEL 32位版本的控件

小白兔3399 · 发表于 2024-9-7 18:19

大家好：

我这里有一个表，在32位版本的情况下运行没有问题，但是在EXCEL 64位版本的电脑上就无法加载控件了 Listview1控件

各位大神有没有什么好的办法实现类似功能呢，实在不行用其他控件替代 Listview1 也行呀，能做出类似功能就好，感谢

TEXT.zip (221.46 KB, 下载次数: 13)

Qs18 · 发表于 2024-9-7 19:30

''窗体初始化
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False '关闭屏幕涮新，这样可以让程序运行得更快一些
Dim arr, rw, a
rw = Sheet12.Cells(Rows.Count, 2).End(xlUp).Row
Dim r As Integer
arr = Sheet12.Range("b3").Resize(rw, 25).Value
With Me
.Width = Application.Width - 20
.Left = Application.Left + 10
.Top = Application.Top + 6
.ListView1.Width = Application.Width
End With
Application.WindowState = xlMaximized
' On Error Resume Next
With Me.ListView1
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "PO单号", 70, lvwColumnLeft
.ColumnHeaders.Add , , "料号", 75, lvwColumnLeft
.ColumnHeaders.Add , , "单位", 35, lvwColumnCenter
.ColumnHeaders.Add , , "请购帐户", 50, lvwColumnCenter
.ColumnHeaders.Add , , "采购员", 45, lvwColumnCenter
.ColumnHeaders.Add , , "收货地点", 120, lvwColumnLeft
.ColumnHeaders.Add , , "供应商", 160, lvwColumnLeft
.ColumnHeaders.Add , , "供应商地址", 55, lvwColumnLeft
.ColumnHeaders.Add , , "数量", 45, lvwColumnCenter
.ColumnHeaders.Add , , "PO下单日期", 95, lvwColumnLeft
.Width = Application.Width - 23 '全屏后-23
.View = lvwReport '选择为报表格式
.Gridlines = True '选择有网格线
.FullRowSelect = True '允许选中整行
' .SmallIcons = ImageList1 '改变行行距
Dim itm As ListItem
a = [{6,8,23,4,13,5,25,15,9}]
For i = 1 To UBound(arr)
Set itm = .ListItems.Add()
itm.Text = arr(i, 1)
For j = 1 To UBound(a)
itm.SubItems(j) = arr(i, a(j))
Next
Next
End With
Application.ScreenUpdating = True '关闭屏幕涮新
End Sub

复制代码

小白兔3399 · 发表于 2024-9-7 22:11

本帖最后由小白兔3399 于 2024-9-7 22:13 编辑

Qs18 发表于 2024-9-7 19:30

这样就可以在64位电脑上运行么？我现在没有64位版本的电脑来测试，不确定行不行

小白兔3399 · 发表于 2024-9-8 09:09

如果64位EXCEL 没有Listview 控件，可否使用期其他控件实现这个功能呀

fxl447098457 · 发表于 2024-9-8 09:36

从新版office里拷出来的。

MSCOMCTL64位.7z (564.79 KB, 下载次数: 26)

小白兔3399 · 发表于 2024-9-8 09:40

fxl447098457 发表于 2024-9-8 09:36
从新版office里拷出来的。

这个怎么用呀，是要安装到64位电脑上么

fxl447098457 · 发表于 2024-9-8 09:44

小白兔3399 发表于 2024-9-8 09:40
这个怎么用呀，是要安装到64位电脑上么

文件解压缩放到c:\windows\system32文件夹里,使用regsvr32命令注册ocx即可。

小白兔3399 · 发表于 2024-9-8 20:16

fxl447098457 发表于 2024-9-8 09:44
文件解压缩放到c:\windows\system32文件夹里,使用regsvr32命令注册ocx即可。

文件解压缩放到c:\windows\system32文件夹里这个我会

使用regsvr32命令注册ocx即可，这个看不懂是什么意思

淡__ · 发表于 2024-9-9 13:44

升级到2016以上版本就可以用了

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