如何選取多個檔案名稱並存入Excel活頁中

或是copy底下網址在網址輸入處貼上

Private Sub cmdPickFileDialog_Click()
    Dim fd As FileDialog    '宣告一個檔案對話框

    Set fd = Excel.Application.FileDialog(msoFileDialogFilePicker)  '設定選取檔案功能

    fd.Filters.Clear    '清除之前的資料

    fd.Filters.Add "Excel File", "*.xls*" '設定顯示的副檔名
    fd.Filters.Add "Word File", "*.doc*"
    fd.Filters.Add "所有檔案", "*.*"

    fd.Show '顯示對話框

    Sheet1.Columns("A:D").Clear '將舊的A-D欄資料清除

    For i = 1 To fd.SelectedItems.Count
        strFullName = fd.SelectedItems(i)
        Sheet1.Cells(i, 1) = strFullName   '顯示所選取的檔案名稱

        n = rinstr(strFullName, "\")

        strFileNameType = Mid(strFullName, n + 1)
        Sheet1.Cells(i, 2) = strFileNameType

        n = InStr(1, strFileNameType, ".")

        strFileName = Left(strFileNameType, n - 1)
        strsFileType = Mid(strFileNameType, n + 1)

        Sheet1.Cells(i, 3) = strFileName
        Sheet1.Cells(i, 4) = strsFileType

    Next
End Sub

Function rinstr(ByVal t As String, ByVal s As String)
    '自訂函數找尋某個字串最後出現的位置
    Dim i As Integer
    Dim n As Integer

    n = 0
    For i = 1 To Len(t)
        If Mid(t, i, 1) = s Then
           n = i
        End If
    Next
    rinstr = n
End Function

最后编辑：2012-02-21

作者：明和 蔡

这个作者貌似有点懒，什么都没有留下。

站内专栏 站点