A. 用宏打开一个excel文件
测试了一下没有问题呀
B. excel里 打开另一EXCEL文件 宏代码怎么写
开发工具——宏——编辑——打开代码区域——输入如下代码，即可，如图：
C. excel 文件打开提示宏
最近出现一种病毒专门针对office软件的，诺顿杀不了，重装office也不能解决，您搜看是否有专杀工具吧
D. 用excel宏打开另一个excel文件
Sub dk() Workbooks.Open Filename:="C:\Data\P\运营文件\日常运营\定单记录.xls" Range("A1").SelectEnd Sub
E. 怎样一打开EXCEl文件就运行宏
把代码写在workbook open事件当中，在VBE环境，双击Thisworkbook，然后上面选择workbook 默认就是workbook open事件,然后在 Private Sub Workbook_Open() 下面输入你的代码就好了，如图
F. word宏中打开excel文件并取单元格的值
Subtest()SetoExcel=GetObject(,"Excel.Application")SetoWb=oExcel.Workbooks.Open("D:est.xls")'写你自己的Excel路径MsgBoxoWb.Sheets("Sheet1").Range("C5")'取"Sheet1"工作表C5单元格的值oExcel.Quit'退出ExcelEndSub
按Alt+F11打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。
这里采用的是后置绑定方法，无需事先加载Excel对象引用库。
前置绑定方法参见：http://..com/question/126725210.html
如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：
oExcel.Visible = False
G. excel中用宏打开一个文件夹（不是excel文件）代码
在EXCEL中的vba编辑器中输入以下代码，将需要打开的文件夹路径填写完整。
Sub打开文件夹()DimpAsStringp="C:Users"'这里填写完整你需要打开文件夹的路径Shell"EXPLORER.EXE"&p,vbNormalFocus'打开文件夹EndSub
H. 如何用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
I. excel宏文件怎么打开
宏的作用是将操作步骤录制成宏, 然后再执行宏, 可以批量实现一些重复操作。Excel程序开启宏功能的步骤如下。1，打开Excel程序，进入程序主界面，点击“文件”选项，点击打开。2，点击窗口中的“选项”，点击打开。3，在窗口中点击“信任中心”，点击打开。4，在窗口中点击“信任中心设置”，点击打开。5，最后，勾选“启用宏功能”即可开启宏功能，问题解决。
J. 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文件|word宏中打开excel文件并取单元格的值
