word中使用vba调用excel中遇到的问题

xqm2373521

在word的vba中通过以下代码打开了一个excel表格添加数据后关闭，再次手工打开此文件时却是隐藏的，只有在窗口菜单下取消隐藏才可见到： Private Sub CommandButton2_Click() Dim A As String A = ActiveDocument.FormFields("text1").Result Set MyXL = GetObject("C:\DoCumEnts AnD SEttInGs\徐启明\桌面\1.xls") MyXL.Application.Workbooks("1.xls").Sheets(1).Cells(3, 1) = A MyXL.Application.Workbooks("1.xls").Save MyXL.Application.Workbooks("1.xls").Close End Sub

konggs

我不知道楼主的错在哪?但我不是标准的引用.

标准的引用应该是:

Private Sub CommandButton2_Click()
Dim A As String
A = "第二次2323"
Set excel = CreateObject("excel.Application")
Set myxl = excel.Workbooks.Open(FileName:="E:\报价书.xls")
With myxl
.Sheets(1).Cells(2, 1) = A
.Save
.Close
End With
excel.Quit

Set excel = Nothing
Set myxl = Nothing
End Sub

xqm2373521

圣者，谢谢了

守柔

TO 楼主：

Private Sub CommandButton2_Click()
Dim A As String, myXL As Object
A = ActiveDocument.FormFields("text1").Result
Set myXL = GetObject("C:\DoCumEnts AnD SEttInGs\徐启明\桌面\1.xls")
myXL.sheets(1).Cells(3, 1) = A
mxxl.Close True
End Sub

注意：这是一个后期绑定的对象，直接为其赋值并在关闭时保存即可。

出现你所说的问题出在：

你已经创建并引用了WORKBOOK对象（OBJECT，这是后期绑定，如果前期也可以），在赋值过程中，你的代码中启用了WORKBOOK对象的父对象（APPLICATION），而此时的APPLICATION的窗口是隐藏的（默认，即相当于myxl.application.visible=false），所以你保存时再打开是隐藏的。

直接使用WORKBOOK对象，尽管会调用APPLICATION去打开，但代码中没有加入，AUTOMATION时会自动忽略。

你再试一下。

xqm2373521

斑竹，谢谢了！不知道有没有关于对象的学习资料！ 试了一下，好像2楼的那段代码可以，但是你刚才那段好像还是不行，再请教？

[此贴子已经被作者于2006-5-24 17:17:23编辑过]