如何让excel工作簿打开时出现欢迎到来的对话框：（<em>VBA</em>）-vba offi

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

方法如下：zhidao

1.打开所需要的excel工作簿,ALT+F11打开 visual basic 编辑器内
2.在visual basic 编辑器里,点 "视图"-"工程资源管理器"(快捷键Ctrl+R),双击左侧的"Thisworkbook",粘贴容上代码
Private Sub Workbook_Open()
MsgBox "欢迎光临"
End Sub

保存后关闭,重新打开就行了
1、打开excel表格；
2、在执行知“窗口”/“新建窗口”命令，现象是两个窗口的标题中，文件名的后面分别跟着数字1、2；

3、点击道excel窗口的小关闭按钮（就是最右上角那个叉号下面的小叉号）；专

4、保存一下文件（必须的），最后关闭文件即可解决问题。属

设置问题，找到EXCEL设置，在信任中心中找找看，有一个“是否信任VBA工程”，把前面的勾点上就好