word如何通过vba操作excel中的数据？

守柔

原帖由 lhdcxz 于 2009-3-28 13:38 发表
谢谢版主！只是有点小问题：“结果”文档的最后一行（H）里缺 123456。好象是Join(myArray, Chr(13) & "123456" & Chr(13) & Chr(13)) 的最后一次没有执行似的？我琢磨到现在也不知道怎么解决？哎！太菜了！

改成：
.Content.InsertAfter Join(myArray, Chr(13) & "123456" & Chr(13) & Chr(13)) & Chr(13) & "123456" & Chr(13) & Chr(13))

lhdcxz

谢谢！问题完全解决了。我会用心读您的代码的！！另外，麻烦您关注以下这个帖子：
http://club.excelhome.net/viewth ... &extra=page%3D1

[ 本帖最后由 lhdcxz 于 2009-3-28 20:01 编辑 ]

zhuomingkun

谢谢守柔版主，太感谢了！！！！！

zhuomingkun

守柔版主，这段程序在word   VBA中无法运行啊 , 提示用户定义类型未定义,不知道automation怎么引用，请指教,谢谢!!!!!!



Option Explicit
Sub Example()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim strDbFullName As String
    Dim strWdFullName As String
    Dim xlDB As Excel.Workbook
    Dim strEndCell As String
    Dim strBeginCell As String
    Dim myArray() As String
    Dim myRange As Range
    Dim C As Range
    Dim N As Long
    Dim blnNotExists As Boolean
    On Error Resume Next
    strDbFullName = ThisWorkbook.Path & "\数据源.xls"
    If Len(Dir(strDbFullName, vbDirectory)) = 0 Then
        MsgBox "Excel未找到" & strDbFullName, vbExclamation
        Exit Sub
    End If
    Set xlDB = GetObject(strDbFullName)
    With xlDB.Worksheets("Sheet1")
        strBeginCell = "$A$1"
        strEndCell = .[A65536].End(xlUp).Address
        Set myRange = .Range(strBeginCell, strEndCell)
    End With
    N = myRange.Cells.Count
    ReDim myArray(N - 1)
    N = 0
    For Each C In myRange
        myArray(N) = C.Value
        N = N + 1
    Next
    xlDB.Close True
    With ThisWorkbook.Worksheets("Sheet1")
        Set myRange = .Range(strBeginCell, strEndCell)
        myRange.Value = Excel.WorksheetFunction.Transpose(myArray)
    End With
    ThisWorkbook.Save
    strWdFullName = ThisWorkbook.Path & "\目的.doc"
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Err.Clear
        Set wdApp = CreateObject("Word.Application")
        blnNotExists = True
    End If
    Set wdDoc = wdApp.Documents.Add
    With wdDoc
        ''        wdDoc.Application.Visible = True    '可用于调试
        .Content.InsertAfter Join(myArray, Chr(13) & "123456" & Chr(13) & Chr(13))
        .SaveAs Filename:=strWdFullName
        .Close
        Set wdDoc = Nothing
    End With
    If blnNotExists = True Then wdApp.Quit
End Sub

zhuomingkun

Dim xlDB As Excel.Workbook

就是这句。

守柔

原帖由 zhuomingkun 于 2009-3-31 21:51 发表
Dim xlDB As Excel.Workbook

就是这句。

WORD VBE 工具/引用，打开引用对话框，引用EXCEL。

zhuomingkun

哈哈，谢谢,谢谢!

中原一布衣

又学了一招！

excel学弟

我也要学习

qldd

这个好用，收藏，好好学习一下！！！