VBA MACRO无法粘贴

Question

请帮我...这让我疯狂。

我想从CSV复制一些数据，但无法将其粘贴到我通常手动执行的目标文件。

我现在面临这个问题： -I不能回去到目标文件的纸张 - 即使我可能会粘贴为字符串 -I需要的数据是相同的从CSV

MyFile = Application.GetOpenFilename() 

    ChDir "C:\datafolder\" 

    Application.Workbooks.Open (MyFile) 
    Range("A1").CurrentRegion.Select 
    Selection.copy 
    ActiveWorkbook.Close savechanges:=False 
    Application.ScreenUpdating = True 

    Windows("chickenfeed.xlsm").Activate 
    ActiveWorkbook.Sheets("Raw Export").Range("A1").Select 

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 

End sub 

Answer 1

您在粘贴之前关闭了源代码范围。

试试这个，学习流...
（假设它的 “工作表Sheet1 ” 您尝试将数据从复制）

Option Explicit 

Sub PasteData() 
    Dim oSourceWB As Workbook, oTargetWB As Workbook, MyFile As String 

    MyFile = Application.GetOpenFilename() 

    ChDir "C:\datafolder\" 
    On Error Resume Next 
    Set oSourceWB = Workbooks.Open(Filename:=MyFile, ReadOnly:=True) 
    Set oTargetWB = Workbooks("chickenfeed.xlsm") 
    On Error GoTo 0 
    If Not (oSourceWB Is Nothing And oTargetWB Is Nothing) Then 
     oSourceWB.Worksheets("Sheet1").Range("A1").CurrentRegion.Copy oTargetWB.Sheets("Raw Export").Range("A1") 
     oSourceWB.Close SaveChanges:=False 
    End If 
    Set oSourceWB = Nothing 
    Set oTargetWB = Nothing 
End Sub