將圖片和數據從一個excel文件複製到另一個excel文件

Question

我有一個excel文件，其中包含前五行的圖片，然後數據開始。我的工作是將文件複製到另一個excel文件中。首先，我打開文件並複製使用的範圍。接下來我將這些內容粘貼到另一個excel文件中。

lobjCurrentWorkSheet.UsedRange.Copy() 

lobjTargetExcelWorkSheet.PasteSpecial(XlPasteType.xlPasteAll) 

通過這樣做，我只能複製數據而不是圖片？我如何將文件複製到另一個文件？

如果我使用SaveAs選項，並且如果源文件是密碼加密的，那麼我的目標文件也將被密碼加密，這是我不想要的。

Answer 1

我絕不會建議使用UsedRange

原因：

你的數據可能是從單元格A1到B4和圖像是說D1。該UsedRange在這種情況下，將永遠是A1:B4而不是A1:F6

如果要複製您的圖片，然後要麼找到了工作表的「實際範圍」或指定範圍

lobjCurrentWorkSheet.Range("A1:F6").Copy() 
lobjTargetExcelWorkSheet.Paste() 

編輯：我試圖讓我的手放在VB.Net上，以便我可以給你一個確切的示例代碼。我終於做到了:)

看到這個（這將複製實際的範圍內，您無需指定它。）

Dim shp As Excel.Shape 
    Dim lCol As Integer = 0 

    '~~> Loop through all shapes and find the last col of the shape 
    For Each shp In lobjCurrentWorkSheet.Shapes 
     If shp.BottomRightCell.Column > lCol Then _ 
     lCol = shp.BottomRightCell.Column 
    Next 

    With lobjCurrentWorkSheet 
     '~~> Find actual last Row 
     Dim LastRow As Integer = .Cells.Find(What:="*", _ 
        After:=.Range("A1"), _ 
        LookAt:=Excel.XlLookAt.xlPart, _ 
        LookIn:=Excel.XlFindLookIn.xlFormulas, _ 
        SearchOrder:=Excel.XlSearchOrder.xlByRows, _ 
        SearchDirection:=Excel.XlSearchDirection.xlPrevious, _ 
        MatchCase:=False).Row 
     '~~> Find actual last column 
     Dim LastColumn As Integer = .Cells.Find(What:="*", _ 
        After:=.Range("A1"), _ 
        LookAt:=Excel.XlLookAt.xlPart, _ 
        LookIn:=Excel.XlFindLookIn.xlFormulas, _ 
        SearchOrder:=Excel.XlSearchOrder.xlByColumns, _ 
        SearchDirection:=Excel.XlSearchDirection.xlPrevious, _ 
        MatchCase:=False).Column 

     '~~> Check if we have the correct last columnm 
     If LastColumn < lCol Then LastColumn = lCol 

     .Range("A1:" & Split(.Cells(, LastColumn).Address, 
     "$")(1) & LastRow).Copy() 
    End With 

    '~~> Copies to the current active cell in lobjTargetExcelWorkSheet 
    lobjTargetExcelWorkSheet.Paste()