excelvba打开excel文件|excel vba打开excel文件

1. 在VBA中，怎样打开或者调用另一个EXCEL文件

ThisWorkbook属性可以返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿，而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。 Private Sub Workbook_Open() Dim FN As String FN = ThisWorkbook.Path & "\报表.xls" If Len(Dir(FN)) = 0 Then MsgBox "找不到文件：" & vbCrLf & FN, vbExclamation, "错误" Else Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls" End If End Sub而要打开一个文件夹里所有的文件，就需要用到FileSystemObject 对象，下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例： Sub ShowAllXlsFile() Dim GetFile As String, GetPFN As String, GetExt As String Dim Fso, PF, AF, FN, i, j GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "请选择文件夹所在的任意一文件") If CStr(GetFile) <> "False" ThenSheets.Addi = 0j = 0Set Fso = CreateObject("Scripting.FileSystemObject")GetPF = Fso.GetParentFolderName(GetFile) & "\"Set PF = Fso.GetFolder(GetPF)Set AF = PF.FilesFor Each FN In AFj = j + 1GetExt = Fso.GetExtensionName(FN)If GetExt = "xls" Theni = i + 1Cells(i, 1) = FN.NameEnd IfNextMsgBox "总计所有类型文件" & j & "个！" & vbCrLf & "总计Excel文件" & i & "个！" ElseMsgBox "没有选择文件夹！" End If End Sub

2. excel vba如何获取所有打开的excel文件名

针对ThisWorkbook对象的BeforeClose事件添加如下代码

PrivateSubWorkbook_BeforeClose(CancelAsBoolean)DimfileStrAsStringfileStr="$111.xls$333.xls$“‘头尾都用$分隔，循环判断文件名ForI=Workbooks.countTo1Step-1IfInStr(fileStr,Workbooks(I).Name)<>0ThenWorkbooks(I).CloseFalse‘False是不保存关闭true是保存并关闭EndIfNextEndSub

关闭时就会遍历所有打开的excel文件，执行不保存操作，并关闭

3. vba打开excel文件（带密码）

打开带密码的文抄件，你需将密码作为参数来打开文件。Open( _FileName_ , _UpdateLinks_ , _ReadOnly_ , _Format_ , _Password_ , _WriteResPassword_ , _IgnoreReadOnlyRecommended_ , _Origin_ , _Delimiter_ , _Editable_ , _Notify_ , _Converter_ , _AddToMru_ , _Local_ , _CorruptLoad_ )其中：_password_ 包含打开受保护工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码，则会提示用户输入密码。_writerespassword_ 包含写入写保护的工作簿所需密码的字符串。 如果省略此参数并且工作簿需要密码，则将提示用户输入密码。用逗号分隔参数时需要注意参数的位置也可用password:="XXXX"指明参数名称

4. 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

5. vba打开excel文件

主要看你想要做什么。之前我有做过一个批量删除excel里的vba代码的程序，你可以参考一下。如果有需要的话可以再联系我。附之前问题的链接：http://..com/question/1176340378514114979

6. excel中如何通过VBA打开word文件和ppt文件

一、打开word文件代码：Set wo = CreateObject("Word.Application")wo.Documents.Open ThisWorkbook.Path & "\流程.doc"wo.Visible = True二、打开ppt文件代码：方法1：Set wo = CreateObject("Powerpoint.Application")wo.Visible = Truewo.Presentations.Open ThisWorkbook.Path & filename方法2：Sub dd()Dim filepath$, filename$filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)Shell "POWERPNT.EXE " & filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。PrivateSub CommandButton1_Click()Dim wo AsObject Dim app AsObject' 创建PowerPoint应用实例Set app = CreateObject("Powerpoint.Application")' 使PowerPoint可见app.Visible = True ' 打开PPS文件Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误OnErrorGoTo errHandle' PPS演示时全屏

7. VBA中如何打开一个文件夹内的所有EXCEL文件

注意 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

8. vba打开Excel文件

使用Application的Run方法调用另一个Excel文件中的宏。

方法如下：

Application.Run(工作簿名!宏名,参数1,参数2……)

条件是被调用的工作薄的宏必须也是打开的。

9. 如何用vba 打开一个excel文件 传到另一个excel文件中

Sub test() With Workbooks(“book1.xls”).Sheets(“sheet1”) r = .Range(“c65536”).End(xlUp).Row – 4 &#39从第2行到c列最后一个有数据的可见单元格向上3行的行数 Workbooks(“book2.xls”).Sheets(“sheet1”).Range(“c2”).Resize(r, 1).Value = .Range(“c2”).Resize(r, 1).Value &#39将book1.xls的sheet1中从c2开始r行1列的值赋给book2.xls的sheet1的c2开始的区域 End WithEnd Sub

10. 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

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