excel vba做出一个打开文件对话框：

Sub SelectFile()

Application.DisplayAlerts = False

fil = ThisWorkbook.Name

Filename = Application.GetOpenFilename("Excel 文件 ,*.xls*.xlsx")

If Filename <>False Then

aFile = Split(Filename, "\")

sfilename = aFile(UBound(aFile))

End If

Workbooks.Open (Filename)

Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells

Workbooks(sfilename).Close

Application.DisplayAlerts = True

End Sub

建议用FileSystemObject *** 作：

示例

Sub ReadTextFile() 

Dim fs As Object 

Dim objFile As Object 

Dim strContent As String 

Dim strFileName As String 

   

 strFileName = "C:\aaa.txt"  '此处可以用其他变量代替

Set fs = CreateObject("Scripting.FileSystemObject") 

Set objFile = fs.OpenTextFile(strFileName) 

    

Do While Not objFile.AtEndOfStream 

   strContent = strContent & objFile.ReadLine & vbCrLf  

Loop 

    

objFile.Close 

Set objFile = Nothing 

ActiveWorkbook.Sheets(3).Select 

Range("A1").Select     

Selection.Formula = strContent

End

另外，你用了Application.FileDialog(msoFileDialogOpen)打开文件，选择后实际上是没有打开文件的动作的，

需要用代码打开，文件名就是上面网友回答的“FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)”

然后使用你常用的Workbooks.OpenText命令打开吧！

不然肯定是“打开以后什么都没有，跟没打开似的”了！

本文将讲述如何在Excel中打开工作簿时d出一个提示窗口。如何使用VBA宏在打开工作簿或Excel文件d出一个消息框。

打开工作簿时显示提示窗口

如果要在打开特定工作簿时显示消息框，可以使用Excel VBA宏来实现结果。只需执行以下步骤：

步骤1：打开您的Excel工作簿，然后单击开发工具选项卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步骤2：然后将出现“Visual Basic编辑器”窗口。

步骤3：双击VBAProject窗格下的ThisWorkbook对象，将会显示“ThisWorkbook”的代码窗口。

步骤4：将以下VBA宏代码复制并传递到代码窗口。

Private Sub Workbook_Open()

MsgBox "pop up message box"

End Sub

步骤5：单击“保存”按钮，将此工作簿保存为Excel启用宏的工作簿，需要从“保存类型”列表框中选择“Excel启用宏的工作簿”。

步骤6：重新打开该工作簿，您将在当前工作表的顶部看到安全警告消息。单击“启用内容”按钮以激活VBA宏。

步骤7：一个提示窗口将会d出。

---