使用 VB.net，如何将一本书中的一个工作表中的一列复制到另一本书的另一个工作表中？

Question

I've seen this question asked a lot in the context of VBA, but not Visual Basic. In my situation, I must use Visual Basic, and so far I've been unable to get copying columns from one workbook and worksheet to another to workbook and worksheet.

    targetWorkBook = target_directory & "\" & "Target.xlsx"
    Set objExcel3 = CreateObject("Excel.Application")
    Set wb3 = objExcel3.Workbooks.Add 
    Set ws3 = wb3.Worksheets(1) 'Target worksheet
    objExcel3.ActiveWorkbook.SaveAs targetWorkBook

    Set objExcel2 = CreateObject("Excel.Application")
    Set wb2 = objExcel2.Workbooks.Open("SourceWorkbook.xls")
    Set ws2 = wb2.Worksheets(1) ' Source worksheet
    lastRow = ws2.UsedRange.Rows.count 'Last row of source worksheet

    'Find column by header name in source worksheet
    Set fid = wb2.ws2.Range("A1:Z1").Find("FID")
    'Copy contents in source workbook and worksheet from row 2 to lastRow
    wb2.Worksheets(1).Range(ws2.Cells(2, fid.Column), ws2.Cells(lastRow, fid.Column)).Copy
    'Paste to target column A, row 2 in target workbook and worksheet
    wb3.ws3.Range("A2").PasteSpecial xlPasteValues

When I later open the target spreadsheet, I appear to have some kind of reference problem. The data that was copied is actually "embedded", which is not what I want. I'm not sure what else to try, can anyone offer advice?

Answer 1

What about experimenting with the PasteSpecial parameter xlPasteValues? Maybe this isn't the right one.

I found sample code #3 in this link and there is no parameter xlPasteValues used:
https://software-solutions-online.com/vba-range-copy-method-useful/

'copy the range from source book
wkbookSource.Worksheets("Range.Copy").Range("B6:F11").Copy

'paste the data on the target book
wkbookTarget.Worksheets(1).Range("A1").PasteSpecial