我是你二大爷啊
一、word和excel vba综合编程
在Excel下编程，使用下列语句打开Word文档
Dim Wrd
Set Wrd = CreateObject("Word.Application")
Wrd.documents.Open Filename:=DOCFile, ReadOnly:=True '以只读方式打开Word文档
Wrd.Visible = True '让其可见（只读状态打开时，默认不可见）
通过类似于下面的语句，可以访问Word文档中的表格数据（注意：返回的数据去掉最后两个字符（回车和表格符））
Wrd.documents(DOCFile).Tables(4).Cell(9, 3).Range.Text 'Word文档中第4个表格的第9行第3列的文本。
至于文本，要通过设定选择集（Selection，可通过查找题目，然后改变选择区域的大小（Collapse方法））来复制和粘贴数据（查看Word的VB帮助）
得到Word文档中的数据后，往Excel文档对应的单元格赋值即可。
实际编写起来工作量较大，不超过几千份问卷，还是手工做吧！（初学者做完这个程序，估计要3、5天）
详细可联系：591zheteng@sina.com
二、vba,word和excel相互调用
总是要有一个打开的时机的，总要有一段打开的代码，不然怎么凭空打开，怎么获取打开的文件名.
如果你想在你的宏运行前打开，你可以把调用与打开的代码放在宏运行的前面.
如：以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)
三、excel用vba自动生成word
Sub GenDocfromExcel()'excel控制word，生成新文件，插入图片和文件名，保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'。
Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub。
四、我在word vba 环境下,怎么可以调用打开指定EXCEL文件
挺简单的。
最关键的就是让word的VBA能调用excel的VBA的函数库。具体做法如下：1）添加函数库，让excel和word的VBA函数共享要用VBA联合操作word和excel，首先选定是用word的VBA来操作excel还是用excel的VBA来操作word，然后调出你选定的VBA，在工具〉参照设定中把Microsoft Office15.0 Object Library和Microsoft Excel15.0 Object Library给选上。
这个十分有必要，因为word和excel的vba的一些函数并不是通用的。2）连接excel具体的方式如下：Sub Macro1() Dim ExcelApp As Object Dim myBook As Object Dim mysheet As Object If Tasks.Exists("Microsoft Excel") = True Then Tasks("Microsoft Excel").Close Set ExcelApp = CreateObject("Excel.Application") Set myBook = ExcelApp.Workbooks.Open("D:\Users\Administrator\Desktop\练习\2 WROD\新建文件夹\1.xls") 'excel的位置，用 'thisworkbook.path可设置为 ‘相对路径 Set mysheet = myBook.Worksheets("Sheet1") 'sheet名 With mysheet '调用数据计算部分 end with大概就是这样一个过程。
五、用VBA让excel和word自动另存为
excel vba代码：
Sub 工作簿备份（）
Dim s, f As String, sht As Worksheet
f = [a3]
If f = "" Then Exit Sub
Application.ScreenUpdating = False
Workbooks.Add (xlWBATWorksheet)
Sheets(1).Name = "临时"
For Each sht In ThisWorkbook.Sheets
With ActiveWorkbook
sht.Copy after:=.Sheets(.Sheets.Count)
End With
Next
Application.DisplayAlerts = False
Sheets（"临时"）.Delete
Sheets(1).Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
s = Application.Dialogs(5).Show(arg1:=f & ".xls")
If s = True Then
ActiveWorkbook.Close
MsgBox "备份完毕"
Else
MsgBox "没有备份"
End If
End Sub
六、excel用vba自动生成word
Sub GenDocfromExcel()
'excel控制word，生成新文件，插入图片和文件名，保存
'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library
'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
'。
Range("A1:B13").Copy '复制当前内容
Dim WordApp As Word.Application '定义变量
Set WordApp = CreateObject("Word.Application") '生成WORD对象
WordApp.Documents.Add '新建文件
WordApp.Selection.Paste '粘贴
fn$ = "D:\" & Range("b1") '生成文件名
WordApp.ActiveDocument.SaveAs fn$ '保存文件
WordApp.Quit '退出
Set WordApp = Nothing '取消变量
End Sub
七、vba如何把word表格内容填到excel里
如果说填写，这个比较复杂，而且很难实现，因为word的VBA都是跟跟键盘操作，和界面操作有关的。
所以，如果可能，可以考虑用VBA来复制表格，然后粘贴到EXCEL中，对于比较简单的表格，内容是可以完全匹配的。首先，你要知道如何用键盘来选择整个表格，然后复制，把这些操作录制下来，然后复制代码。
。如果你是要从EXCEL 的VBA 入手，那么你需要在VBA引用中添加WORD Libary 11.0 如果是从WORD的VBA入手，那么就要添加EXCEL LIBARY 11.0 (OFFICE 2007 是 12.0)然后就是需要知道EXCEL中粘贴的代码，如果我记得不错的话，是：cells(1,1).paste这个，你也可以通过录制来得到。
如果你需要知道具体的操作方案，你当然也应该吧分数提高。
。
转载请注明出处51数据库 » wordvbaexcel
