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

story99 · 发表于 2009-10-22 11:56

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

leolee82 · 发表于 2009-10-22 12:10

支持支持

gjj136138139 · 发表于 2009-10-22 12:42

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

HHAAMM · 发表于 2009-10-22 12:52

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

风随 · 发表于 2009-10-22 12:54

感谢版主了，学习！！！

HHAAMM · 发表于 2009-10-22 12:56

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

字典可以的

风随 · 发表于 2009-10-22 13:10

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

HHAAMM · 发表于 2009-10-22 13:12

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

joforn · 发表于 2009-10-22 13:26

Private Sub Form_Load()
Dim I As Long
Dim A As Application
On Error Resume Next
Set A = GetObject(, "Excel.Application")
If A Is Nothing Then
Else
With A.ActiveSheet
For I = 1 To .Range("A65535").End(xlUp).Row
.Range("B" & I).Value = I
Next I
End With
End If
End Sub

复制代码

测试通过啊……

HHAAMM · 发表于 2009-10-22 13:32

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

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

[分享] 一步步教你制作、使用dll（1）

有人要的，帮做个试试

回复 17楼 HHAAMM 的帖子