如何Word中用VBA打开Excel表格,读取其中的内容写入到Word
可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下:Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名").Sheets(1).Range("A1:H8").Copy'粘贴到WORD指定位置End Withxlapp.Quit
VBA word打开excel 并取数
首先alt+f11,工具引用,勾选microsoft excel 11.0 object library,然后插入模块 Sub op()Dim app As New Excel.ApplicationDim wb As Excel.WorkbookSet wb = app.Workbooks.Open("d:/tt.xls")MsgBox wb.Sheets("sheet1").Range("c5")app.QuitEnd Sub子易空间站 - Excel培训专家
excel vba打开excel文件
展开全部 Excel VBA功能虽然很强大,但因为涉及编写程序,所以使用该功能的人很少。
Excel2007和以上版本中,VBA功能被隐藏了起来,不显示在菜单上。
如果想使用编写VBA的功能,首先需要将其显示出来。
Excel VBA功能虽然很强大,但因为涉及编写程序,所以使用该功能的人很少。
Excel2007和以上版本中,VBA功能被隐藏了起来,不显示在菜单上。
如果想使用编写VBA的功能,首先需要将其显示出来。
...
怎样在EXCEL的VBA中打开一个WORD文件?
展开全部 '首先要在vba中引用Microsoft Word 11.0 Object LibraryDim Wdapp As Word.ApplicationDim WdDocument As Word.DocumentDim UserFile As StringPrivate Sub CommandButton1_Click() Set Wdapp = New Word.Application UserFile = Wdapp.Path & "\1.doc" Set WdDocument = Wdapp.Documents.Open("c:\1.doc") Wdapp.Visible = TrueEnd Sub...
excel vba 启动word 宏
总是要有一个打开的时机的,总要有一段打开的代码,不然怎么凭空打开,怎么获取打开的文件名. 如果你想在你的宏运行前打开,你可以把调用与打开的代码放在宏运行的前面. 如:以excel打开word为例,你可以在Workbook_Open下放置你调用和打开word 的代码: Private Sub Workbook_Open() dim aaa as ...application End Sub 方法你应该比较熟悉了,就是在vbaproject下双击ThisWorkbook,然后在上边的下拉列表里选对象和事件.如果在宏中用路径打开被调用的文件,那么该文件就必须放在路径指定的位置,我不想这样。
我想放在任意位置。
放在任意位置你可以用一个打开对话框呀,如下面代码:Dim fd As FileDialog Dim Wbook As Workbook Dim rowindex As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .Filters.Add "EXCEL 文件", "*.xls", 1 '过滤 If .Show = -1 Then rowindex = 1 For Each vrtSelectedItem In .SelectedItems Set Wbook = Workbooks.Open(vrtSelectedItem)
如何在EXECL中用VBa打开Word,并输出数据到WORD中,保存,关...
展开全部 在EXcel的VB编辑器中插入一个模块,输入如下代码试试看。
Sub ExcelToWord() Dim WordObject As Object '声明一个对象变量,这里即将声明为Word对象 On Error Resume Next Set WordObject = CreateObject("Word.Application") '用set来创建Word对象,这里是运行Word程序,但未新建文档 WordObject.Visible = 0 '后台运行Word对象,只在任务管理器中存在WinWord.exe进程,但在任务栏上看不到word;如果为1或者True则可以看到word运行界面 WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一word文档 '以下为获取Excel表格中的内容,准备把数据传送给Word,可以根据自己的实际需要定制代码,这里只是示例代码 Excel.Application.Sheets(1).Activate '切换当前电子表格的表1为当前激活表 Excel.Application.Sheets(1).UsedRange.Select '选中当前激活表的所有数据 Selection.Copy '将选中的区域进行复制 WordObject.Application.Activate '将后台运行的Word激活为当前窗口 WordObject.ActiveWindow.Selection.Paste '将刚才从Excel中复制进剪贴板中的内容粘贴进word中来 WordObject.Saved = True '将保存文档的Saved属性设置为True,这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了,达到悄无声息的效果 WordObject.ActiveDocument.SaveAs "D:\temp\导出数据.doc" '调用saveas命令保存文档,根据实际,指定文档的保存路径和名称 WordObject.Application.Quit '退出并关闭程序文档 Set WordObject = Nothing '释放对象End Sub...
vba操作excel和word问题我在excel表中列出一很多数
展开全部 一、打开word文件代码:Set wo = CreateObject("Word.Application")wo.Documents.Open ThisWorkbook.Path & "\流程.doc"wo.Visible = True二、打开ppt文件代码:方法1:Set wo = CreateObject("Powerpoint.Application")wo.Visible = Truewo.Presentations.Open ThisWorkbook.Path & filename方法2:Sub dd()Dim filepath$, filename$filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)Shell "POWERPNT.EXE " & filepathEnd Sub附:双击打开PPS文件,在演示完后退出PPS时并没有PowerPoint主窗口保留,但在Excel中使用VBA打开的PPS文件,在演示完PPS退出后,PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在,加上错误捕捉程序来处理上面这个问题。
PrivateSub CommandButton1_Click()Dim wo AsObject Dim app AsObject' 创建PowerPoint应用实例Set app = CreateObject("Powerpoint.Application")' 使PowerPoint可见app.Visible = True ' 打开PPS文件Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")' 当PPS演示结束时,wo对象的SlideShowWindow不存在,捕捉到错误OnErrorGoTo errHandle' PPS演示时全屏...
转载请注明出处51数据库 » word vba 打开excel