vba中执行html文件路径,在 Excel VBA中，相对于绝对路径_excel_开发99编程知识库

你可以为用户提供更多的灵活性，为他们提供的眉毛按钮Private Sub btn_browser_file_Click()

Dim xRow As Long

Dim sh1 As Worksheet

Dim xl_app As Excel.Application

Dim xl_wk As Excel.Workbook

Dim WS As Workbook

Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ ="C:"

With Application.FileDialog(msoFileDialogFolderPicker)

. InitialFileName = Application.DefaultFilePath &""

. Title ="Please select a folder to list Files from"

. InitialFileName = InitialFoldr$

. Show

Range("H13").Activate

If. SelectedItems.Count <> 0 Then

xDirect$ =. SelectedItems(1) &""

Range("h12").Value = xDirect$

xFname$ = Dir(xDirect$, 7)

Do While xFname$ <>""

If (Format(FileDateTime(xDirect$ &"" & xFname$),"MM/DD/YYYY")> Format(Range("H10").Value,"MM/DD/YYYY")) Then

ActiveCell.Offset(xRow) = xFname$

xRow = xRow + 1

xFname$ = Dir

Else

xFname$ = Dir

xRow = xRow

End If

Loop

End If

End With

通过这段代码，你可以轻松实现。 测试代码