vbaexcel文件|excel vba打开excel文件

『壹』 如何用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

『贰』 vba生成excel文件

使用vba生成一个excel 文件，可以使用以下方法：1 Workbooks.Add 方法 1.1 语法新建一个工作表。新工作表将成为活动工作表。语法表达式.Add(Template)表达式 一个代表 Workbooks 对象的变量。参数名称 必选/可选 数据类型 说明 Template 可选 Variant 确定如何创建新工作簿。如果此参数为指定现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。如果此参数为常量，新工作簿将包含一个指定类型的工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。如果省略此参数，Microsoft Excel 将创建包含一定数目空白工作表的新工作簿（该数目由 SheetsInNewWorkbook 属性设置）。 返回值一个代表新工作簿的 Workbook 对象。说明如果 Template 参数指定的是文件，则该文件名可包含路径。 1.2 workbooks.add 会自动打开一个“工作簿1”这类的wb文件，并activate之workbooks.add 会自动生成一个 " 工作簿N" 的WB文件，且activeworkbooks.add 在add后，会打开一个“工作簿1”这类的wb文件并且最后add的 wb文件 成为新的 activeworkbookSub test98() Workbooks.AddEnd Sub 1.3 workbooks.add(template)template Variant 类型，可选1.3.1 template如果指定为 EXCEL内置的常量可为以下 XlWBATemplate 常量之一xlWBATChartxlWBATExcel4IntlMacroSheetxlWBATExcel4MacroSheetxlWBATWorksheetSub test91() Workbooks.Add (xlWBATChart) Workbooks.Add (xlWBATWorksheet) Workbooks.Add (xlWBATExcel4MacroSheet) Workbooks.Add (xlWBATExcel4IntlMacroSheet)End Sub1.3.2 若 template指定为文本，文本是一个文件路径，文件必须先存在（暂时没发现有什么用处）template 如果本参数为指定一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板如果template指定为文件，文件必须先存在，否则报错。那么template为一个路径如果是完整的绝对路径，则需要带path如果只是相对路径，那么 excel 2010版本会去这儿找这个文件：D\用户目录/我的文档下面 ,默认目录？好像指定过后会把新的路径当默认路径Sub test96() Workbooks.Add (ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx")End Sub Sub test97() Workbooks.Add (ActiveSheet.Name & ".xlsx")End Sub2、thisworkbook.sheets(1). 这个是将当前代码所在工作簿的左侧第一张表拷贝生成新的工作簿文件。新文件包含一张表格。具体对应的文件跟表格可以根据需求调整

『叁』 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文件

打开文件如下：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保存文件

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

『陆』 如何将VBA工程或模块独立于Excel文件保存

VBA工程或模块，是无法脱离Excel文件保存的，但是可以脱离运行这个工程的xls或xlsm文件而保存。保存时选择“加载项xla类型”的选项，即可保存为.xla格式的文件，如果在Excel中启用这个加载项，就可以在打开的任意Excel文档中使用这个VBA工程。要维护它可以直接用Excel打开VBA编辑界面后，在模块中找到并修改、编辑。关于xla格式文件的相关知识——如果大家在excel中使用过宏，对xla文件就不会陌生，xla是Microsoft Office Excel的加载宏文件，".xla"文件就是用EXCEL软件打开。如果我们有现成的宏文件，可以加载到excel中去。单击“工具”菜单的“加载宏”命令即可将宏加载到excel文档中。打开Excel后，文件另存为的“保存类型”最后一项就是“Microsoft Office Excel加载宏（*.xla）”。xla宏文件里面其实就是一些程序代码，所以我们可以加载到Excel里去，省去我们自己去编写公式和代码，从而提高工作效率。打开excel文件，然后单击“工具”——“宏”——“Visual Basic编辑器”就可以打开编辑.xla文件了，或者直接按下Alt+F11组合健，也可打开vb编辑器。

『柒』 VBA中如何打开一个文件夹内的所有EXCEL文件

Sub Macro1()Dim myDialog As FileDialog, oFile As Object, strName As String, n As IntegerDim FSO As Object, myFolder As Object, myFiles As Object ,Dim fn$Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)n = 1With myDialogIf .Show <> -1 Then Exit SubSet FSO = CreateObject("Scripting.FileSystemObject") '这是文件夹选择,点选到你存放文件的那个Set myFolder = FSO.GetFolder(.InitialFileName)Set myFiles = myFolder.FilesFor Each oFile In myFilesstrName = UCase(oFile.Name)strName = VBA.Right(strName, 3)If strName = "xls" Or strName = "XLS" Then '这是扩展名选择'下面就可接着写打开文件读取数据再写入的语句了,如下:

『捌』 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文件

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

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