Kopi fra excel og over i word

Har ikke så meget forstand på Excel. Men fejlen kommer typisk (i Access) når du vil kommunikere med et andet program fordi Excel mangler en reference til Word.

Prøv at redigere din makro, og i Tools > References kontrollere, at der er en reference til Word (der skal være et checkmærke i den lille boks ud for Word biblioteket).

Prøv at sætte en reference til:

'Microsoft Word 11.0 Object Library'

fra Tools - References menuen.

('..Word 11'.. hvis du bruger O2003)

Nørj..det var tæt på dit svar mugs :) Jeg undrede mig godt nok også lidt over du ikke skulle kunne klare det, men læste ikke ordentligt.  ;))

Hej det virker fin hvis ark Kassebog ikke er hide,
er der en af jer der ved, hvis ark Kassebog er hide hvad jeg mangler i koden

Private Sub CommandButton19_Click()
Dim y As Word.Application
Set y = CreateObject("Word.Application")

  With y
  .Visible = True
    .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
    Worksheets("Kassebog").Range("A1:m20").Select
    Selection.Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
    .Selection.Paste
    Application.CutCopyMode = False
   
    End With
End Sub

mvh

mvhansen

Jeg mener koden er:

Application.ScreenUpdating

Men jeg ved ikke hvor den skal ind. Jeg ved ikke så meget om Excel.

Hej mugs
Jeg ved heller ikke hvor det skal siddes ind
Application.ScreenUpdating

mvh

mvhansen

Er der en der ved hvad jeg mangler i koden
så den virker når ark kassebog er hide
den virker når ark kassebog er aktiv

Private Sub CommandButton19_Click()
Dim y As Word.Application
Set y = CreateObject("Word.Application")

  With y
  .Visible = True
    .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
    Worksheets("Kassebog").Range("A1:m20").Select
    Selection.Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
    .Selection.Paste
    Application.CutCopyMode = False
   
    End With
End Sub


mvh

mvhansen

Private Sub CommandButton19_Click()
Dim y As Word.Application
Set y = CreateObject("Word.Application")

  With y
  .Visible = True
    .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
    Worksheets("Kassebog").Range("A1:m20").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
    .Selection.Paste
    Application.CutCopyMode = False
   
    End With
End Sub

prøv den

Man kan ikke Selecte i et skjult ark

Hej  kabbak
Hvis Ark kassebog er skjult tager den ingen data med over i word.
men den melder heller ikke fejl,som den gjore før,
hvis den ikke er skjult og et andet ark er aktiv virker det,
men jeg har nogle stykker ark så jeg vil gerne have den skjult

mvh

mvhansen

prøv med denne

Private Sub CommandButton19_Click()
    Dim y As Word.Application
    Set y = CreateObject("Word.Application")

    With y
        .Visible = True
        .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
        Sheets("Kassebog").Visible = True
        Worksheets("Kassebog").Range("A1:m20").Select
        Selection.Copy
        Sheets("Kassebog").Visible = False
        .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
        .Selection.Paste
        Application.CutCopyMode = False
    End With
End Sub

Jeg får en fejl
Run-time error '1004'
Metoden select for klassen range mislykkedes


og det er i denne linje
Worksheets("Kassebog").Range("A1:m20").Select

er du sikker på at ("Kassebog") er det korrekte navn ?

ja

Hvis den ikke er skjult og jeg står på et andet ark virker den
men så snart jeg skjuler den virker den ikke

jeg har flyttet lidt rundt, hvis det ikke hjælper, så ved jeg ikke

Private Sub CommandButton19_Click()
    Dim y As Word.Application
    Sheets("Kassebog").Visible = True
    Worksheets("Kassebog").Range("A1:m20").Copy
    Sheets("Kassebog").Visible = False
    Set y = CreateObject("Word.Application")
    With y
        .Visible = True
        .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
        .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
        .Selection.Paste
        Application.CutCopyMode = False
    End With
End Sub

Denne tager ikke data med over i word om den er skjult eller ej

Private Sub CommandButton19_Click()
    Dim y As Word.Application
    Sheets("Kassebog").Visible = True
    Worksheets("Kassebog").Range("A1:m20").Select
        Selection.Copy
    Sheets("Kassebog").Visible = False
    Set y = CreateObject("Word.Application")
    With y
        .Visible = True
        .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
        .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
        .Selection.Paste
        Application.CutCopyMode = False
    End With
End Sub

sidste bud, nu skal jeg i seng, godnat ;-O

Den virker ikke
kan man ikke lave så den ark kassebog bliver synlig når man trykke på knappen og copy
og skjuler den igen

jeg skal også i seng

godnat

det skulle den jo gøre her
Sheets("Kassebog").Visible = True

Hej Kabbak
Denne her virker

Private Sub CommandButton19_Click()
Dim y As Word.Application
Set y = CreateObject("Word.Application")

  With y
  .Visible = True
    Sheets("Kassebog").Visible = True
    .Documents.Open Filename:="F:\Michael\Excel\Igang med\Test med excel & word\Kassebog.doc"
    Worksheets("Kassebog").Range("A1:m20").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Kassebog"
    .Selection.Paste
    Application.CutCopyMode = False
    Sheets("Kassebog").Visible = False
   
    End With
End Sub

Tak for hjælpen
vil du smide et svar det har du.
mugs burte have lidt point da han fortalt mig at jeg hade glemt at slå    'Microsoft Word 11.0 Object Library' til
så hvis han smider et svar så han også kan få lidt point

mvh

mvhansen

Jamen, så tak da :o)

Skal også lige have et nyt svar fra kabbak

et svar og tak

Tak for hjælpen begge to
jeg ville ellers have fordelt point

Kabbak 40 point
Mugs  20 point

Men det virket ikke, ellers kunde jeg ikke finde ud af det

mvh

mvhansen

det er ok, som det blev