⑴ 用VBA代码打开其他excel工作簿(有打开密码的)
SubFindFileOpen()OnErrorResumeNextMsgBox"请选择要打开的文件",vbOKOnly+vbInformation,"打开文件"IfNotApplication.FindFileThenMsgBox"文件未找到",vbOKOnly+vbInformation,"打开失败"EndIfEndSub
用最简单,最简短的VB命令打开一个文件,请参照!
⑵ 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就开始成为所适用操作平台上的电子制表软件的霸主。
⑶ EXCEL中用VBA读取另一个EXCEL文件中的数据
Application.ScreenUpdating=FalseWorkbooks.Open"测试.xls"'读取或写入数据的代码Workbooks("测试.xls").CloseSaveChanges:=TrueApplication.ScreenUpdating=True
⑷ vba打开excel并复制
方法/步骤
首先,打开或者新建一个Excel表格,如下图所示。
⑸ 怎样编写vba根据路径打开一个excel文件的代码
fl=application.getopenfilename(,,"打开目标文件")此句是打开一个选择文件的对话框,fl得到的是你选择文件的具体路径;workbooks.openfilename:=fl这句是打开你选择的文件!当然如果想打开指定文件,你可以不写第1句,直接把第2句的fl改成具体路径的字符串即可!
⑹ vba 在汇总excel中打开另一个excel的相关操作
谈到VBA,没有写过代码的小伙伴们,可能觉得很难上手。今天小编,将分享一篇关于Excel宏录制的实际应用 – 信息录入系统,不需要自己写一行VBA代码就能轻松实现信息录入,保存功能,有助于让用户知道如何录制宏,了解入门VBA代码。请耐心观看,阅读仅需五分钟。
废话少说,直接附上动态演示,用极少的文字,用直观的感受让你轻松学习,得到提高。
动态演示:
动态演示
操作说明:
在开发工具->插入->表单控件->按钮,命名为保存
右键选中该按钮,制定宏->录制宏,开始录制宏
复制源Sheet中的录入数据
然后粘贴,粘贴完成后,重复第4步操作,回到A列第一个空白单元格,让下次新增数据时自动添加到已有数据下方。
最后在开发工具->停止录制宏,结束宏录制,保存Excel为xslm格式(宏启用的Excel类型)。
关键点:
Ctrl+下方向键:进入到某列最后一个非空单元格
使用相对引用:相对于某个单元格的位置为相对应用。
分析自动生成的VBA代码
Alt+F11或者开发工具Visual Basic进入到VBA代码编辑器,如下图:
第1-2行:选中A2:D11,并且复制选中的单元格
第3行:选中[员工考核信息表]Sheet
第4-7行:选中[员工考核信息表]Sheet的A1单元格,实现Ctrl+下方向键效果,再往下方相对移动一格并选中,粘贴数据
第8-10行:选中[员工考核信息表]Sheet的A1单元格,实现Ctrl+下方向键效果,再往下方相对移动一格并选中
第11-15行:选中[员工考核信息新增]Sheet的A2:D11单元格,清除所选内容
如何调试自动生成的VBA代码,更深入了解每一行代码的作用
打开VBA代码编辑器并放在操作页面右边,选中某个代码行,在操作页面中录入两行数据点保存,一步一步的跟踪代码,就能看到每一步代码的效果。
是不是非常简单啊?小伙伴们可以去试一试。
总结:
这一期主要讲了Excel宏录制的实际应用 – 信息录入功能,不用手写任何一段VBA代码,轻松实现信息录入,保存。包括:宏录制,VBA代码讲解,VBA-调试。
⑺ 在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 在一个excel的vba 中可否打开操作另一个excel文件
dim mypath as string,svalue ’定义变量mypath="d:\excel.xls" '把路径赋值给一个字符串 workbooks.open filename:=mypath '这句是打开文件 activeworkbook.visible=false '这句是隐藏文件 svalue=activeworkbook.sheets(1).range("a1").value '这句是用变量取得该文件表1中a1单元格的值 activeworkbook.viseble=true’显示文件 activeworkbook.close true'/false,这句是关闭文件,close有两个参数,true是关闭保存修改,false是关闭时不保存修改
⑼ 如何使用VBA打开另一个EXCEL并在另一个文件上运行该文件的模块1
Sub物料()DimwbSetwb=Workbooks.Open("F:\2017\汇总\物料.xls")wb.Sheets(1).UsedRange.CopyThisWorkbook.Sheets("物料").Range("a1")wb.CloseFalseMsgBox"物料更新完毕"EndSub段代码打"F:\2017\汇总\物料.xls"工作簿并sheet1数据复制前工作簿物料工作表参考
未经允许不得转载:山九号 » vba打开另一个excel文件|在VBA中怎样打开或者调用另一个EXCEL文件