Avatar billede krestensb Nybegynder
15. maj 2016 - 11:36 Der er 2 kommentarer og
1 løsning

Fra indlejret excel tabel i wordfil til ny excelfil?

Kære forum,

Jeg har en wordfil, hvori der er klippet mange exceltabeller ind, som indlejrede tabeller, dvs. man kan i word dobbeltklikke på den enkelte tabel og arbejde med den som et exceldokument inde fra word. Det har sikkert taget lang tid at lave, for der er over 200 tabeller i wordfilen , og de oprindelige excelfiler er væk desværre gået tabt.

Jeg skal have det hele over i ét excel ark, så jeg kan arbejde med tallene.

Er der nogen der har et bud på det?

Når jeg kopierer en tabel fra word og ind i excel har jeg kun mulighed for at indsætte som billede eller indlejret excelfil.

Venlig hilsen og på forhånd tak.
Kresten
Avatar billede supertekst Ekspert
15. maj 2016 - 14:00 #1
Du er velkommen til at sende / uploade filen eller model af tilsvarende. @-adresse under min profil så vil jeg prøve om VBA kan gøre noget ved det..
Avatar billede krestensb Nybegynder
15. maj 2016 - 17:23 #2
Jeg har sendt dig en email.

Det er pænt af dig.

Vh. Kresten
Avatar billede supertekst Ekspert
24. maj 2016 - 23:31 #3
Rem Version 3
Rem Tools / Reference / Microsoft Excel ??.0 Object Library (flueben)          '<---- OBS
Rem =================================================================
Dim sti As String
Dim xlsFakt As Object
Dim antalSH As Integer, sh As Integer, faktNr As String
Sub konverterTilExcel()
On Error GoTo fejl
    Application.ScreenUpdating = False
   
    Set xlsFakt = CreateObject("Excel.Application")
    sti = ActiveDocument.Path
   
    xlsFakt.Workbooks.Open sti & "\Faktura_Excel.xlsx"
    xlsFakt.Visible = False
   
    ActiveDocument.Activate
    antalSH = ActiveDocument.InlineShapes.Count
   
    If antalSH > 0 Then
        For sh = 1 To antalSH
            With ActiveDocument
                .InlineShapes(1).OLEFormat.Activate
                Selection.Copy
               
                With xlsFakt.ActiveWorkbook.Sheets(1)
                    .Application.ScreenUpdating = False

                    .Cells(1, 1).Activate
                    .Paste
                End With
            End With
            xlsFakt.Visible = False 'True
           
            ActiveSheet.OLEObjects("Object 1").Activate
           
Rem vent          faktNr = ActiveSheet.Range("I6")
           
            ChDir sti
            ActiveWorkbook.SaveAs FileName:= _
                sti & "\Regneark i Faktura_Excel" & "_" & CStr(sh) & ".xlsx", _
                FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
            Selection.Delete
        Next sh
    End If
   
Rem skal også gemmes
    xlsFakt.ActiveWorkbook.Saved = True
    xlsFakt.Application.Quit
    Set xlsFakt = Nothing
    MsgBox "Konvertering udført"
    Exit Sub
   
fejl:
    Stop
    Resume Next
End Sub
Private Sub Document_Open()
Dim svar
    svar = InputBox("Udfør konvertering=Ja", "Dokument-behandling", "Nej")
    If LCase(svar) = "nej" Then
        Exit Sub
    Else
        konverterTilExcel
    End If
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester