将Excel范围导出到Word开发者社区

相关文章推荐

Sub ExcelToWord()
    Dim PageNumber As Integer
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim FileToOpen As String
    Dim strPath As String
    FileToOpen = "Excel Link test.docx"
    strPath = "C:\"
    'the next line looks to a cell to decide what page number to scroll to
    PageNumber = 1 'Later
    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    If wrdApp Is Nothing Then
        Set wrdApp = CreateObject("Word.Application")
        Set wrdDoc = wrdApp.Documents.Open(strPath & FileToOpen)
        On Error GoTo notOpen
        Set wrdDoc = wrdApp.Documents(FileToOpen)
        GoTo OpenAlready
notOpen:
        Set wrdDoc = wrdApp.Documents.Open(strPath & FileToOpen)
    End If
OpenAlready:
    On Error GoTo 0
    Range("A6:D11").Copy ' med WS Name
    With wrdApp
 '------> Fails Here
        .Selection.Goto What:=1, Which:=2, Name:=PageNumber
        .Visible = True
        .Selection.Paste
    End With
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Sub ExcelToWord() 
    Dim PageNumber As Integer, wrdApp As Word.Application, wrdDoc As Word.Document
    Dim sh As Worksheet
    Set sh = ActiveSheet 'use here the sheet you need
    PageNumber = 1
    On Error Resume Next
     Set wrdApp = GetObject(, "Word.Application")
     If wrdApp Is Nothing Then
        err.Clear: On Error GoTo 0
        Set wrdApp = CreateObject("Word.Application")
     End If
    On Error GoTo 0
    Set wrdDoc = wrdApp.Documents.Add 'add a blank document
    wrdApp.Visible = True             'make Word application visible
                                      'only for debugging, if not want to be visible
                                      'and you will save it (programmatically) in the next steps...
    sh.Range("A6:D11").copy ' med WS Name
    With wrdApp

回答 1

Stack Overflow用户