『壹』 在当前excel文件中运行宏，使它打开另一个excel文件并且指定文件名和位置，且直接打印它。
有这么几个问题：1 MkDir语句中的括号里应为 ("E:\" & fname) '创建文件夹。——注意引号和&的配合。2 打开文件夹语句不对。那个open是打开指定文件的语句3 对象创建后注意关闭（清理后再离场）测试后的完整代码为：Sub 创建文件夹()Dim fname '定义变量fname = ActiveSheet.Range("a1") '指定表格内容MkDir ("E:\" & fname) ' '创建文件夹'Workbooks.Open ("E:\" & fname) '打开文件夹Set Fs = CreateObject("Scripting.FileSystemObject") '复制指定文件到指定文件夹Fs.file "d:\scan\aa.xlsx", "e:\" & fname & "\aa.xlsx", True 'Set Fs = NothingEnd Sub
『贰』 Excel文件录制了一个宏，打开另外一个Excel文件也可以运行这个宏吗
不行的，一般是保存有当前工作簿，保存时还要另存为xlsm才有保存宏的。
『叁』 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 怎么用宏完成打开一个文件夹的所有文件然后再关闭
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 怎么用宏打开其他程序
用shellCall Shell("E:\xfoil.exe“, 2)这个语句可以打开xfoil.exe
『陆』 如何用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文件
Sub dk() Workbooks.Open Filename:="C:\Data\P\运营文件\日常运营\定单记录.xls" Range("A1").SelectEnd Sub
『捌』 excel里 打开另一EXCEL文件 宏代码怎么写
开发工具——宏——编辑——打开代码区域——输入如下代码，即可，如图：
未经允许不得转载：山九号 » excel宏打开其它文件|在当前excel文件中运行宏使它打开另一个excel文件并且指定文件名和位置且直接打印它
