vb写入一个打开的excel

发布网友 发布时间：2024-04-08 22:59

我来回答

共4个回答

热心网友 时间：2024-04-17 20:42

打开的excel文档可能不止一个,所以首先必须查找是否有你所要的文档,然后再进行有关操作:
Dim xlapp As Object
Dim xlbook As Object
Dim xlsname As String
xlsname="F:\123.xls" 'Excel文档路径
Set xlapp=GetObject(,"Excel.Application") '获取当前已打开的Excel应用程序对象
If Typename(xlapp)="Application" Then 'Excel已打开，遍历工作薄查找对应文档是否已打开
For Each xlbook In xlapp.Workbooks
If xlbook.FullName=xlsname Then '找到已打开的文档
Exit for
End if
Next
End if
'(此处为Excel操作代码,略)
xlbook.Close (False) '关闭不保存文档
xlApp.quit '结束EXCEL对象
Set xlbook = Nothing '释放对象
Set xlApp = Nothing

热心网友 时间：2024-04-17 20:41

完全可以，只要不是以独占的方式打开就可以
注意声明的时候加new关键字

热心网友 时间：2024-04-17 20:42

使用dde技术，很简单

热心网友 时间：2024-04-17 20:34

在工程中引用 Microsoft Excel11.0 Object Library (office版本不同数字就不同)

Dim xlApp1 As Excel.Application
Dim xlBook1 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet

Set xlApp1 = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook1 = xlApp1.Workbooks.Open("路径\文件名.xls") '打开已经存在的EXCEL工件簿文件
xlApp1.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet1 = xlBook1.Worksheets(1) '设置活动工作表

........................

xlBook1.Close (True) '关闭工作簿
xlApp1.Quit '结束EXCEL对象
Set xlApp1 = Nothing '释放xlApp对象