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

小白兔3399

大家好：

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

各位大神有没有什么好的办法实现类似功能呢，实在不行用其他控件替代 Listview1 也行呀，能做出类似功能就好，感谢 TEXT.zip (221.46 KB, 下载次数: 13)

2024-9-7 18:19 上传

点击文件名下载附件

Qs18

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

复制代码

小白兔3399

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

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

小白兔3399

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

fxl447098457

从新版office里拷出来的。 MSCOMCTL64位.7z (564.79 KB, 下载次数: 26)

2024-9-8 09:34 上传

点击文件名下载附件

小白兔3399

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

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

fxl447098457

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

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

小白兔3399

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

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

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

淡__

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