VBA word打开excel 并取数

Question

在word中用VBA编程
打开d:\tt.xls（隐形打开excel文件）
取sheet1 c列第5行数值
用msgbox显示数值

Answer 1

首先alt+f11,工具引用,勾选microsoft excel 11.0 object library,然后插入模块

Sub op()
Dim app As New Excel.Application
Dim wb As Excel.Workbook
Set wb = app.Workbooks.Open("d:/tt.xls")
MsgBox wb.Sheets("sheet1").Range("c5")
app.Quit
End Sub

子易空间站 - Excel培训专家