Question

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

我正在尝试从CSV复制某些数据，但无法将其粘贴到我通常手动执行的目标文件中。

我面临的问题： - 我无法返回目标文件的表格 - 即使我可以，它会粘贴为字符串 - 我需要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

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

试试这个并学习流程......
（假设它＆＃34; Sheet1 ＆＃34;您尝试从中复制数据）

MYSuggestBox.Focus(FocusState.UnFocused)

VBA MACRO无法粘贴

1 个答案: