如何使用word的宏，打开一个Excel文件

power218

大家好，我是新来的人，有一个问题需要请教大家，希望能得到大家的帮助，谢谢！
我遇到的问题是：
要在word的版本中，通过点击某个控件打开本地的一个Excel文件。
我的做法是在word中创建一个宏，但是在宏的VB编程中，程序报错没通过，在VB6.0的编辑器中运行程序是可以打开Excel文件的。

所以，请求大家指点一下在word的宏中，打开Excel文件的编程。
如果要实现该目的，除了用宏外，还有其他方法，也烦请指点一下。


----------------附：我的word宏中的VB代码-----------------------------------
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
FileName = "\生产调度决策数据.xls"
On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")     '判断Excel是否打开
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
        xlApp.Visible = False '设置EXCEL对象不可见
    End If
    Err.Clear
   
    If Dir(App.Path & FileName) = "" Then    '判断文件是否存在
        MsgBox App.Path & FileName & "：未找到！", vbOKOnly, "友情提示"
        Exit Sub
    End If
   
    '判断文件是否打开
    For Each xlBook In xlApp.Workbooks
        If xlBook.Name = Mid(FileName, 2) Then
            MsgBox "文件已打开！请不要重复打开。", vbOKOnly, "友情提示"
           xlBook.Activate
            xlApp.WindowState = xlMaximized
            Exit Sub
        End If
    Next
   
    Set xlBook = xlApp.Workbooks.Open(App.Path & FileName) '打开工件簿文件
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    xlApp.Visible = True
End Sub

出错是因为Dim xlApp As Excel.Application和Dim xlBook As Excel.Workbook的用户类型未定义

[ 本帖最后由 power218 于 2011-3-7 14:21 编辑 ]

power218

一直等不到人解决，后来自己搞定了，呵呵，之前从没接触过VB，让大家见笑了。

power218

Dim xLApp
Dim xlBook
FileDir = "E:\查询\生产调度决策数据.xls"
'FileName = "\生产调度决策数据.xls"
On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")     '判断Excel是否打开
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
        xlApp.Visible = False '设置EXCEL对象不可见
    End If
    Err.Clear
    If Dir(FileDir) = "" Then    '判断文件是否存在
        MsgBox FileDir & "：未找到！", vbOKOnly, "友情提示"
        Exit Sub
    End If
    '判断文件是否打开
    'For Each xlBook In xlApp.Workbooks
    '    If xlBook.Name = Mid(FileName, 2) Then
    '        MsgBox "文件已打开！请不要重复打开。", vbOKOnly, "友情提示"
    '       xlBook.Activate
    '        xlApp.WindowState = xlMaximized
    '        Exit Sub
    '    End If
    'Next
    Set xlBook = xlApp.Workbooks.Open(FileDir) '打开工件簿文件
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
    xlApp.Visible = True

baoshishang

楼主：
   请问，在word调用excel后，如何用宏在word中给excel中写入数组？

    我用word的宏统计产生了一批数组，想在word中调用excel的宏，把数据直接写到excel中，可否实现？

baoshishang

在 word 中实现了生成数据及拷贝  
Windows(WinD1).Activate
  Selection.MoveUp Count:=10000, Extend:=wdExtend  ' Unit:=wdLine, Count:=11,
  Selection.Copy
  
转到excel 中
  Set xlApp = GetObject("excel.application")
  If Err <> 0 Then
    Set xlApp = CreateObject("Excel.application")
  End If
  xlApp.Visible = True
  Err.Clear
  Set xlBook = xlApp.workbooks.Add  ' .NewDocument
  
以下想运行 excel 的宏， 但无法实现
  With xlApp.runautomacros
    .Sheets("Sheet1").Select
    .ActiveCell.Select
    .ActiveSheet.Paste
  End With
  该如何写，才能在 word 中实现？

返回到 word 中
  Windows(WinD2).Activate
  Selection.MoveUp Count:=10000, Extend:=wdExtend  ' Unit:=wdLine, Count:=11,
  Selection.Copy

weiyingde

baoshishang 发表于 2011-8-21 08:58
在 word 中实现了生成数据及拷贝  
Windows(WinD1).Activate
  Selection.MoveUp Count:=10000, Extend:= ...

应该不难，可以变通实现。

dogingate

这是word打开excel读取其中一个worksheet的表格数据并赋值给data数组
Sub main()
Dim xls
Dim wkbook
Dim sht

On Error Resume Next
Set xls = CreateObject("excel.application")
xls.Visible = False

Set fso = CreateObject("scripting.filesystemobject")
With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "请选择excel文档"
    'Add a filter that includes GIF and JPEG images and make it the first item in the list.
    .Filters.Add "excel文档", "*.xls; *.xlsm; *.xlsx", 1
    'Sets the initial file filter to number 2.
    .FilterIndex = 2
     If .Show = -1 Then
       xlsPath = .SelectedItems(1)
     End If
End With

Set wkbook = xls.workbooks.Open(xlsPath)
Set sht = wkbook.worksheets("汇总表")
Data = sht.Range("a1").currentregion.Value

End Sub