如何在IDEAScript中打开文件对话框？

Dim fileDialog As FileDialog
Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)

With fileDialog
    .Title = "选择文件"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "所有文件", "*.*"

    If .Show = -1 Then
        Dim selectedFile As String
        selectedFile = .SelectedItems(1)
        
        ' 在这里可以对选中的文件进行处理
        ' 例如读取文件内容、导入数据等
        
        ' 示例：读取文件内容
        Dim fileContent As String
        Open selectedFile For Input As #1
        fileContent = Input$(LOF(1), 1)
        Close #1
        
        ' 示例：导入数据到工作表
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        ws.Range("A1").Value = fileContent
    End If
End With