如何通过WORD打开EXCEL文件。

fjfzman · 发表于 2002-4-21 11:00

同时将数值写入单元格。还有一个问题就是如何判断EXCEL是否处于活动状态。

fjfzman · 发表于 2002-4-22 18:10

太好了，非常感谢是的，是想判断指定的excel文件是否正在运行中。

fangping468 · 发表于 2006-7-8 14:08

[em21][em21][em21][em22]

惊叹不已 · 发表于 2002-4-25 19:13

Dim app As Object Set app = GetObject(, "Excel.Application") For i = 1 To app.workbooks.Count MsgBox app.workbooks(i).Name Next

惊叹不已 · 发表于 2002-4-22 17:07

Sub Excel() Dim app As New Excel.Application Dim wb As Excel.Workbook Dim sheet1 As Excel.Worksheet app.Visible = True Set wb = Workbooks.Open("e:\book1.xls") Set sheet1 = wb.Sheets("sheet1") sheet1.Cells(2, 1).Value = "填入数据" wb.Save wb.Close Set wb = Nothing app.Quit Set app = Nothing End Sub 你所说的"判断EXCEL是否处于活动状态"是否指判断Excel是否正在运行?

		自动登录	找回密码
密码			免费注册