複製行直到最後一行的值爲ONLY到另一個工作簿

Question

我能夠通過使用預定義的範圍將行復制到另一個工作簿。不過，我想確保它只需要複製那些值。我一直在制定這個代碼，但它返回一個錯誤-1004

Private Sub test() 

Dim WBa As Workbook, MyPathA As String 
Dim FinalRow As Long 
Dim getDBsht As Worksheet 

MyPathA = "sharepoint.com/Financial Tracker v8.xlsx" 

ThisWorkbook.Sheets("ConTracker_DB").UsedRange.ClearContents 

' Attempt to open a sharepoint file 
Set WBa = Workbooks.Open(MyPathA) 
'Set WBb = Workbooks.Open(MyPathB) 

Set getDBsht = WBa.Sheets("ConTracker_DB") 
getDBsht.UsedRange.Copy 

'error starts here 
ThisWorkbook.Sheets("ConTracker_DB").UsedRange.Paste 


Application.CutCopyMode = False 
WBa.Close 

Set WBa = Nothing 

End Sub 

更新的代碼： UsedRange固定我的副本行只值，但粘貼錯誤仍然存​​在

Answer 1

如果你使用usedRange.Copy

你應該 Cells(1, 1).PasteSpecial Paste:=xlPasteValues

被粘貼請在下面找到完整的代碼，如果你回答我的問題:)）

基本上使用這個：

Private Sub test() 

Dim WBa As Workbook, MyPathA As String 
Dim FinalRow As Long 
Dim getDBsht As Worksheet 

MyPathA = "sharepoint.com/Financial Tracker v8.xlsx" 

ThisWorkbook.Sheets("ConTracker_DB").UsedRange.ClearContents 

' Attempt to open a sharepoint file 
Set WBa = Workbooks.Open(MyPathA) 
'Set WBb = Workbooks.Open(MyPathB) 

Set getDBsht = WBa.Sheets("ConTracker_DB") 
getDBsht.UsedRange.Copy 


ThisWorkbook.Sheets("ConTracker_DB").Cells(1, 1).PasteSpecial Paste:=xlPasteValues 


Application.CutCopyMode = False 
WBa.Close 

Set WBa = Nothing 

End Sub 

Answer 2

你可以遍歷各個單元並且只複製那些具有價值：

Dim sourceCell as Range 
Dim targetCell as Range 
Set targetCell = ThisWorkbook.Sheets("ConTracker_DB").Range("A1"). 
For each sourceCell in Range("theNamedRangeYouWantToCopyFrom") 
'I'm not sure if you need a dynamic range to copy from, but if you don't... 
'...it's much easier to use a "named range" for that. 
    If sourceCell.Value <> "" Then 
    targetCell.Value = sourceCell.Value 
    Set targetCell = targetCell.Offset(1,0) 
    End If 
Next sourceCell 

Answer 3

嘗試確定你需要複製的最後一列，然後定義開始和結束單元格區域：

FinalCol = 23 '(or whatever you need) 
getDBsht.Range(getDBsht.Cells(1, 1), getDBsht.Cells(FinalRow, FinalCol)).Copy 

另請注意，上面我指定範圍中的單元格來自哪個工作表。如果您一次打開多個工作簿/工作表，這可以提供幫助。

在開始複製之前定義目的地也是一個好主意。

CopyTo = ThisWorkbook.Sheets("ConTracker_DB").Range("A1")