请教各位关于Excel 的 Union - 编程论坛

#2

wengjl2021-11-24 13:16

set rng = [a1]

set rng = Union(rgn,cells(r))
这二句为何意？？？

#3

easyppt2021-11-24 16:21

应该是无解，可能Excel的合并区域Union 就是轻量级应用，多了就是卡。

另外发现1楼代码本身也有问题，即：Set rng = [a1] 放在循环内，没有实际意义。

谢谢，这个话题可以不用研究了，关闭吧。

#4

吹水佬2021-11-24 18:34

以下是引用easyppt在2021-11-24 16:21:37的发言：

应该是无解，可能Excel的合并区域Union 就是轻量级应用，多了就是卡。

另外发现1楼代码本身也有问题，即：Set rng = [a1] 放在循环内，没有实际意义。

谢谢，这个话题可以不用研究了，关闭吧。

关键是要求“速度一样快”，这一定是无解了
随便写个速度肯定不一样快的示例

只有本站会员才能查看附件，请登录

程序代码：

oExcel = CREATEOBJECT("Excel.Application")
oExcel.DisplayAlerts = 0
oExcel.WorkBooks.Add
tms = SECONDS()
RAND(-1)
n = 10
FOR i=1 TO n
    rng = oExcel.Range("A1")
    FOR j=1 TO 30
        r = INT(RAND()*n) + 1
        rng = oExcel.Union(rng, oExcel.Cells(r))
    ENDFOR
ENDFOR
? SECONDS()-tms
rng.Interior.color = 0xFF
oExcel.Visible = 1

#5

吹水佬2021-11-24 18:59

EXCEL2003列数最大是256
n=1000时要70多秒

程序代码：

tms = SECONDS()
RAND(-1)
n = 1000
nCols = 256
FOR i=1 TO n
    rng = oExcel.Range("A1")
    FOR j=1 TO 30
        r = INT(RAND()*nCols) + 1
        rng = oExcel.Union(rng, oExcel.Cells(r))
    ENDFOR
ENDFOR
? SECONDS()-tms

#6

吹水佬2021-11-24 19:25

FOR i=1 TO 1000
rng = oExcel.Range("A1")
ENDFOR
这个循环的是什么意思

#7

xuminxz2021-11-24 20:45

这个好像只是测试机器性能的一个函数。
Union()作用微软帮助文件有说明
Set rng = [a1]
放在循环中是有意义的，保证每次进入内循环前rng指向A1。因为内循环结束后，rng的指向不定。

#8

easyppt2021-11-24 22:41

谢谢各位老师！

#9

吹水佬2021-12-06 16:08

以下是引用easyppt在2021-11-24 16:21:37的发言：

应该是无解，可能Excel的合并区域Union 就是轻量级应用，多了就是卡。

另外发现1楼代码本身也有问题，即：Set rng = [a1] 放在循环内，没有实际意义。

谢谢，这个话题可以不用研究了，关闭吧。

应该不是什么轻量级、重量级的问题
VFP的CREATEOBJECT("Excel.Application")是跨进程调用，相对在EXCEL的VBA是快不了的。
可以考虑动态创建EXCEL的宏代码，VFP启动这个宏，这样应该与EXCEL调用宏差不多。
这里测试test2()显示1秒多

程序代码：

TEXT TO vbaCode TEXTMERGE NOSHOW PRETEXT 7
    sub test2()
        tms = timer
        for i = 1 to 1000
            set rng = [a1]
            for j = 1 to 30
                r = int(rnd * 10000) + 1
                set rng = union(rng, cells(r))
            next
        next
        msgbox format(timer - tms, "0.000s ")
    end sub
ENDTEXT
oExcel = CREATEOBJECT("Excel.Application")
regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\"+oExcel.Version+"\Excel\Security\AccessVBOM"
se = CREATEOBJECT("WScript.Shell")
se.RegWrite(regKey, 1, "REG_DWORD")
oExcel.DisplayAlerts = 0
oExcel.WorkBooks.Add
myModule = oExcel.ActiveWorkbook.VBProject.VBComponents.Add(1)  && vbext_ct_StdModule = 1
myModule.CodeModule.AddFromString(vbaCode)
oExcel.Run("test2")
oExcel.ActiveWorkbook.VBProject.VBComponents.Remove(myModule)
se.RegWrite(regKey, 0, "REG_DWORD")
oExcel.Visible = 1

#10

easyppt2021-12-06 17:31

吹版主的VBA技术太好了！

有些操作人员不懂怎么启用宏，还要教，麻烦，所以启用宏不是很方便。

#11

吹水佬2021-12-06 18:26

以下是引用easyppt在2021-12-6 17:31:21的发言：

吹版主的VBA技术太好了！

有些操作人员不懂怎么启用宏，还要教，麻烦，所以启用宏不是很方便。

动态生成的宏代码，且注入到EXCEL进程自动运行，运行完就自动清除宏代码，无需操作人员启动。