第3个回答 2011-06-15
代码如下,放在Excel文档的宏命令中运行:
Sub AAA()
Dim fd As FileDialog
Dim wordObj
Dim rowindex As Integer
A = 1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "Word 文档", "*.doc", 1 '过滤
If .Show = -1 Then
rowindex = 1
End If
For Each vrtSelectedItem In .SelectedItems
Cells(A, 1).Select
Cells(A, 1) = vrtSelectedItem
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=vrtSelectedItem
A = A + 1
Next
End With
End Sub