• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Na samenvoeging zijn de afbeeldingen verdwenen

Status
Niet open voor verdere reacties.

Senso

Inventaris
Lid geworden
13 jun 2016
Berichten
11.247
Besturingssysteem
W10 Pro en W11 Pro
Office versie
Office 2007 H&S en Office 2021 Prof Plus
Na samenvoeging zijn de afbeeldingen verdwenen. Twee files heb ik samengevoegd en weg zijn de afbeeldingen op de betreffende sheet. 'Het afbeeldingsonderdeel met relatie-id rId1 is niet aangetroffen in het bestand.'
Hoe kan dat en wat nu?

Op de klassieke manier sheet gekopieerd en dan staan de afbeeldingen er wel.
 
Laatst bewerkt:
Samenvoegen van Excelbestanden ? Hoe?
 
Via VBA.

PHP:
Sub MergeExcelFiles()
  Dim fnameList, fnameCurFile As Variant
  Dim countFiles, countSheets As Integer
  Dim wksCurSheet As Worksheet
  Dim wbkCurBook, wbkSrcBook As Workbook

  fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)

  If (vbBoolean <> VarType(fnameList)) Then

    If (UBound(fnameList) > 0) Then
      countFiles = 0
      countSheets = 0

Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual

      Set wbkCurBook = ActiveWorkbook

      For Each fnameCurFile In fnameList
          countFiles = countFiles + 1

          Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)

          For Each wksCurSheet In wbkSrcBook.Sheets
              countSheets = countSheets + 1
              wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
          Next

          wbkSrcBook.Close SaveChanges:=False

      Next
Application.ScreenUpdating = True
      Application.Calculation = xlCalculationAutomatic

      MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
    End If

  Else
      MsgBox "No files selected", Title:="Merge Excel files"
  End If
End Sub
 
Inclusief afbeeldingen:

Code:
Sub M_snb()
   With Application.FileDialog(3)
      .AllowMultiSelect = True
      .InitialFileName = "G:\OF\*.xlsb"
      If .Show Then
        For Each it In .SelectedItems
          Sheets.Add , Sheets(Sheets.Count), , it
        Next
      End If
    End With
End Sub
 
Hoe staat het ermee Senso ??

Ontvang jij geen persoonlijke berichten ??
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan