Indsætte excel tekst i word

Hvordan får du teksten fra Excel?

Jeg har lige kopieret min kode:

Private Sub XlsValuess(xlsDictt As Scripting.Dictionary)
'Checkmark in Tools/References/Microsoft Excel xx.x Library
Dim xlsApp As New Excel.Application
'xlsApp.Visible = True
xlsApp.Workbooks.Open _
    FileName:="I:\Faellesadministration\Personale\INN\Skabeloner\NYE skabeloner\Overenskomst.xlsx", _
    ReadOnly:=True
    'FileName:="F:\Overenskomst", _
    ReadOnly:=True
    Dim strKey
        For Each strKey In xlsDictt.Keys()
                Dim txt As String
                Dim mycounter As Integer
                mycounter = 0
                Do Until mycounter = -1
                mycounter = mycounter + 1
                txt = xlsApp.ActiveWorkbook.Sheets(strKey).Cells(mycounter, 2).value
                If txt = "" Then
                mycounter = -1
                Else
                xlsDictt(strKey).AddItem txt
                End If
                Loop
        Next strKey
'                                                  row, columm
'xlsValue = xlsApp.ActiveWorkbook.Sheets("ark1").Cells(rowNo, colNo).Value
xlsApp.ActiveWorkbook.Close
xlsApp.Quit

End Sub

Det var lige den forkerte, her kommer den rigtige :-)

Function XlsValue(rowNo As Long, sheet As String)
'Checkmark in Tools/References/Microsoft Excel xx.x Library
Dim xlsApp As New Excel.Application
'xlsApp.Visible = True
xlsApp.Workbooks.Open _
    FileName:="I:\Faellesadministration\Personale\INN\Skabeloner\NYE skabeloner\Overenskomst.xlsx", _
    ReadOnly:=True
    'FileName:="F:\Overenskomst", _
    ReadOnly:=True
'                                                  row, columm
XlsValue = xlsApp.ActiveWorkbook.Sheets(sheet).Cells(rowNo, 1).value
xlsApp.ActiveWorkbook.Close
xlsApp.Quit

End Function

Er problemet at linjeskift bliver lavet om til afsnitstegn?

Det tror jeg ikke jeg forstår ?

Når jeg bruger din kode til at kopiere tekst fra en celle i Excel til Word, bliver de i Excel indsatte linjeskift (Alt+Enter) lavet om til nyt afsnit i Word (Enter). Men der er altså linjeskift af en art...

Ved du hvordan jeg beholder formatering i excel, når jeg henter det i word ?

Jeg har fundet en løsning :-)