一步步教你制作、使用dll（1）

story99

占个位，不懂的东西也要看看

leolee82

支持支持

gjj136138139

能否编个Dll文件，绕开宏提示（打开excel文件时提示宏的安全性）？

HHAAMM

VB里代码
Sub wu()
    Dim EL As Object, odic As Object, hang As Object
    Set EL = GetObject(, "Excel.Application")
    Set odic = CreateObject("scripting.dictionary")
    Set hang = EL.ActiveSheet.UsedRange
    With EL.ActiveSheet
        .Range("d:d") = ""
        For i = 1 To hang.Rows.Count
            If .cells(i, 1) > 30 Then
                odic(CStr(.cells(i, 1))) = i
            End If
        Next
        If i > 0 Then
        .Range("d1:d" & odic.Count) = EL.WorksheetFunction.Transpose(odic.keys)
        End If
    End With
    Set hang = Nothing
    Set odic = Nothing
    Set EL = Nothing
End Sub

风随

感谢版主了，学习！！！

HHAAMM

[quote]原帖由 风随 于 2009-10-22 12:54 发表

字典可以的

风随

是的，For i = 1 To hang.Rows.Count
写为For i = 1 To .Range("a65536").End(xlUp).row 不知道可不可以

HHAAMM

End(xlUp)通不过，正在找原因、别的办法
实在不行，有UsedRange顶着

joforn

1. 
   
2. Private Sub Form_Load()
   
3.   Dim I As Long
   
4.   
   
5.   Dim A As Application
   
6.   On Error Resume Next
   
7.   Set A = GetObject(, "Excel.Application")
   
8.   If A Is Nothing Then
   
9.   
   
10.   Else
    
11.     With A.ActiveSheet
    
12.       For I = 1 To .Range("A65535").End(xlUp).Row
    
13.         .Range("B" & I).Value = I
    
14.       Next I
    
15.     End With
    
16.   End If
    
17. End Sub
    

复制代码

测试通过啊……

HHAAMM

难道是On Error Resume Next的功劳
再测试下代码自行结果对不