excel宏打开文件|excel vba打开excel文件

① 如何用excel宏打开另一个excel文件

Sub test_hello()

MsgBox "hello"End Sub这个文件中的模块是被调用的对象。再建立一个Excel文件，创建下面的宏用来调用上面的对象。Sub test_calling()Dim xl_wb As Excel.WorkbookDim xl_wb_name As StringWith Application.FileDialog(msoFileDialogFilePicker) '使用文件对话框选取要调用宏所在的文件.AllowMultiSelect = FalseIf .Show = -1Thenxl_wb_name =.SelectedItems(1)End IfEnd With

② excel中用宏打开一个文件夹（不是excel文件）代码

在EXCEL中的vba编辑器中输入以下代码，将需要打开的文件夹路径填写完整。

Sub打开文件夹()DimpAsStringp="C:Users"'这里填写完整你需要打开文件夹的路径Shell"EXPLORER.EXE"&p,vbNormalFocus'打开文件夹EndSub

③ 如何打开包含宏的excel文件

excel 2007以上才有此功能，存的时候选择格式是未启用宏的工作簿，打开就不执行宏。下面具体介绍一下Excel在未启用宏的工作簿中的保存，具体步骤如下：1、先看看导致这个问题的出现，在我们开启开发工具，使用VBA对进行编程应用的时候，excel就具备了自动操作的能力，有一定的风险性，这是会导致出现这个现象的原因之一。2、另外一种情况就是使用了宏，无论是录制宏还是调用的宏，同样让excel就具备了自动操作的能力，存风险，这是会导致出现这个现象的原因之二，如果排除这两个因素，保存就不再提示了。3、为了使用这样的功能，但又想保存的话，就要将文件存另一个扩展名的格式了，可以在文件—-另存为，选择启用宏的工作簿.xlsm来进行保存。4、如果不选择启用宏的工作簿.xlsm来保存，还可以选择97–2003的格式来保存，这旧版本的格不区分内容是不是有宏之类的存在。5、最后来看看，Excel为我们提供的有扩展点的保存，包括二进制.xlsb，.XML数据，文件网页.mhtml，文本、PDF之类的，大家可以先熟悉一下。

④ excel宏命令如何打开另一个excel文件

Function OpenExcelFile(sPath As String, ByVal sFileName As String, bDisplay As Boolean, sPwd As String) As Integer '打开Excel文件 'Ver 1.05 '完成时间：2007.12.01 '设计：智能Excel 网站 '参数说明： 'sPath:文件绝对路径；sFileName:Excel文件名；bDisplay:True显示错误信息；sPwd:文件打开密码 '返回值：-1:同名文件已经打开；-2:文件不存在或密码错误；0:成功打开；1:文件已经被打开 Dim bOpen As Boolean Dim sFullName As String On Error Resume Next If InStr(LCase(sFileName), ".xls") = 0 Then sFileName = sFileName & ".xls" sFullName = Workbooks(sFileName).FullName '检查是否已经打开同名的Excel文件 '如果有sFullName不为空 On Error GoTo 0 bOpen = False If sFullName <> "" Then If LCase(sFullName) = LCase(sPath & "\" & sFileName) Then bOpen = True '判断已经打开的同名文件是否本次需要打开的文件 OpenExcelFile = 1 '文件已经被打开 Else If bDisplay Then MsgBox "请首先关闭“" & sFileName & "”文件！" & Chr(13) & "不能同时打开同名文件，这是Excel的规定！", vbOKOnly + vbExclamation, "文件的打开错误" End If bOpen = True OpenExcelFile = -1 '不能同时打开同名文件，这是Excel的规定 End If End If If Not bOpen Then On Error GoTo errOpen Workbooks.Open Filename:=sPath & "\" & sFileName, Password:=sPwd On Error GoTo 0 OpenExcelFile = 0 '成功打开文件 End If Exit FunctionerrOpen: If bDisplay Then MsgBox Err.Description, vbOKOnly + vbExclamation, "文件的打开错误" OpenExcelFile = -2 '文件不存在或密码错误 On Error GoTo 0End Function

⑤ 怎样一打开EXCEl文件就运行宏

把代码写在workbook open事件当中，在VBE环境，双击Thisworkbook，然后上面选择workbook 默认就是workbook open事件,然后在 Private Sub Workbook_Open() 下面输入你的代码就好了，如图

⑥ excel 宏 如何对一个打开的文件进行修改

大步骤是1、读取该文件内容，存放到某变量或某数组2、关闭并删除该文件3、对刚才所存储到变量或数组中的数据，进行修改操作4、将修改后的结果保存为文件

⑦ excel里 打开另一EXCEL文件 宏代码怎么写

开发工具——宏——编辑——打开代码区域——输入如下代码，即可，如图：

⑧ Excel 怎么用宏完成打开一个文件夹的所有文件然后再关闭

OnErrorGoTo1DimK1AsObjectSetK1=CreateObject("Scripting.FileSystemObject")Setk2=K1.GetFolder(ThisWorkbook.Path)SetxlApp=CreateObject("Excel.Application")DimXrowAsIntegerXaces=3ForEachfInk2.FilesIfInStr(f.Name,ThisWorkbook.Name)=FalseThenXrow=3Ca=ThisWorkbook.Path&""&f.NameSetxlbook=xlApp.Workbooks.Open(Ca)xlApp.Visible=False’可插入需要进行操作的代码xlbook.CloseEndIfNextExitSub1:xlbook.Close

⑨ excel vba打开excel文件

不知道这样符不符合你的要求(一个打开，一个恢复显示回)：Sub 后台打开答() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\excel.xls" ActiveWindow.Visible = False Application.ScreenUpdating = TrueEnd SubSub 取消隐藏() Windows("excel.xls").Visible = TrueEnd Sub

⑩ Excel怎么用VBA打开所有xls文件

注意 c:\a 目录下的文件不要太多,免得死机 Sub 打开excel表格() Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路回径定义给变量答 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook.Name Then Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*.xls文件 Loop Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用 End Sub

未经允许不得转载：山九号 » excel宏打开文件|excel vba打开excel文件