excelvba文件|excel vba打开excel文件

① 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

② 如何用EXCELVBA保存文件

1、在新工作表的Sheet1上点击右键

③ 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

④ 在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

⑤ excel vba 如何列举相同目录下的所有文件

Set fso = CreateObject("Scripting.FileSystemObject") set objFolder=fso.GetFolder(path)set objFiles=objFolder.Filesfor each objFile in objFiles if right( objFile.name,4)=".xls" then '保存在数组 end ifnext

⑥ Excel vba 怎么移动一个文件

下面的代码接着你的4行：a = a & cb = b & cif dir(a)="" then msgbox "不存在"else name a as b msgbox "已移动"end if

⑦ excel vba 另存文件

Excel 开发人员参考 Workbook.SaveAs 方法在另一不同文件中保存对工作簿所做的更改。语法表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)Filename 可选 Variant 一个表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，Microsoft Excel 将文件保存到当前文件夹中。 FileFormat 可选 Variant 保存文件时使用的文件格式。要查看有效的选项列表，请参阅 XlFileFormat 枚举。对于现有文件，默认采用上一次指定的文件格式；对于新文件，默认采用当前所用 Excel 版本的格式。 Password 可选 Variant 它是一个区分大小写的字符串（最长不超过 15 个字符），用于指定文件的保护密码。 WriteResPassword 可选 Variant 一个表示文件写保护密码的字符串。如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。 ReadOnlyRecommended 可选 Variant 如果为 True，则在打开文件时显示一条消息，提示该文件以只读方式打开。 CreateBackup 可选 Variant 如果为 True，则创建备份文件。 AccessMode 可选 XlSaveAsAccessMode 工作簿的访问模式。 ConflictResolution 可选 XlSaveConflictResolution 一个 XlSaveConflictResolution 值，它确定该方法在保存工作簿时如何解决冲突。如果设为 xlUserResolution，则显示冲突解决对话框。如果设为 xlLocalSessionChanges，则自动接受本地用户的更改。如果设为 xlOtherSessionChanges，则自动接受来自其他会话的更改（而不是本地用户的更改）。如果省略此参数，则显示冲突处理对话框。 AddToMru 可选 Variant 如果为 True，则将该工作簿添加到最近使用的文件列表中。默认值为 False。 TextCodepage 可选 Variant Microsoft Excel 中对于所有语言都忽略此参数。注释当 Excel 将工作簿保存为某种 CSV 或文本格式（使用 FileFormat 参数指定）时，Excel 使用对应于当前计算机上使用的系统区域设置语言的代码页。在“控制面板”中单击“区域和语言”，再单击“位置”选项卡，在“当前位置”下可获得此系统设置。 TextVisualLayout 可选 Variant Microsoft Excel 中对于所有语言都忽略此参数。注释当 Excel 将工作簿保存为某种 CSV 或文本格式（使用 FileFormat 参数指定）时，它按逻辑布局保存这些格式。如果文件中左至右 (LTR) 文本嵌在右至左 (RTL) 文本中，或者相反，那么逻辑布局将把文件的内容，按照文件中所有语言的正确阅读顺序保存，而不考虑方向。当应用程序打开文件时，每串 LTR 或 RTL 字符将根据代码页中的字符值范围，按照正确的方向呈现。（除非用来打开文件的应用程序是为显示文件的确切内存布局而设计的应用程序，如调试器或编辑器）。 Local 可选 Variant 如果为 True，则以 Microsoft Excel（包括控制面板设置）的语言保存文件。如果为 False（默认值），则以 Visual Basic for Applications (VBA) 的语言保存文件。VBA 通常为美国英语版本，除非从中运行 Workbooks.Open 的 VBA 项目是旧的国际化 XL5/95 VBA 项目。 说明请使用同时包含大小写字母、数字和符号的强密码。弱密码不混合使用这些元素。强密码：Y6dh!et5。弱密码：House27。请使用您可以记住的强密码，这样就不必将它写下来。示例本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。Visual Basic for ApplicationsSet NewBook = Workbooks.AddDo fName = Application.GetSaveAsFilenameLoop Until fName <> FalseNewBook.SaveAs Filename:=fName

⑧ EXCEL VBA怎么选定文件

VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。（一）文件处理1.Name 语句语法：Name oldpathname As newpathname功能：重命名一个文件、目录、或文件夹，移动一个文件。说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要注意错误处理。示例：On Error Resume Next '错误处理Name "f:\TEST.xls" As "f:\TEST123.xls" '重命名Name "f:\TEST.xls" As "f:\dll\TEST.xls" '移动文件Name "f:\TEST.xls" As "d:\TEST123.xls" '跨驱动器移动并重命名文件注意：Name不能移动一个目录或文件夹。2、FileCopy 语句语法：FileCopy source, destination功能：复制一个文件。说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。示例：FileCopy "f:\TEST.xls", "e:\TEST.xls" '从F盘复制TEST.xls到E盘3、Kill 语句语法：Kill pathname功能：从磁盘中删除文件。说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。如果使用 Kill 来删除一个已打开的文件，则会产生错误。示例：Kill "f:\TEST.xls" ’删除F盘的TEST.xls文件Kill "f:\*.xls" ' 删除F盘所有xls文件

⑨ vba怎样打开指定路径的excel文件

打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码：Workbooks.Open ("" & a & "&" \ A\"&b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

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