[已解决]如何在窗体中创建下拉列式的链接

我不知道呀1 · 发表于 2009-8-26 20:42

IrcAngyN.rar (24.32 KB, 下载次数: 4)

大力水手 · 发表于 2009-8-26 21:08

Private Sub UserForm_Initialize()
Dim tmp As Variant
Dim filename As String
Dim path As String
path = ThisWorkbook.path & "\" & "需链接的目标文件"
    With Application.Filesearch
        .LookIn = path
        .SearchSubFolders = False
        .FileType = msoFileTypeExcelWorkbooks
        .NewSearch
        Debug.Print .Execute()
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                    tmp = Split(.FoundFiles(i), "\")
                    filename = Left(tmp(UBound(tmp)), Len(tmp(UBound(tmp))) - 4)
                    ComboBox1.AddItem filename
            Next
        End If
    End With
End Sub

复制到窗体里面即可...

雨狐 · 发表于 2009-8-26 21:15

QUOTE:

以下是引用我不知道呀1在2009-8-26 20:42:00的发言：

8XnaXIHV.rar (51.47 KB, 下载次数: 9)

雨狐 · 发表于 2009-8-26 21:18

QUOTE:

以下是引用雨狐在2009-8-26 21:15:00的发言：

QUOTE:

以下是引用我不知道呀1在2009-8-26 20:42:00的发言：

打包没注意，代码文件在2009%＾＃￥%＃%￥＠的文件夹中

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