Na samenvoeging zijn de afbeeldingen verdwenen

[Senso]

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.

 

[snb]

Samenvoegen van Excelbestanden ? Hoe?

 

[Senso]

Via VBA.

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

 

[snb]

Inclusief afbeeldingen:

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

 

[snb]

Hoe staat het ermee Senso ??

Ontvang jij geen persoonlijke berichten ??