Excel文本字符串'；不要粘贴为日期

我想将选定的单元格从一个工作簿复制到另一个工作簿，后者是一个csv文件。这两个文件都已经存在，我使用脚本在粘贴新值之前删除csv文件的内容

其中一列用于用户选择的密码，有时用户使用看起来像日期的字符串作为密码。即使原始文件正确地将文本显示为“august10”，csv文件将其格式设置为10-Augut。我已经尝试了我能想到的一切，但不知道我做错了什么。以下是我使用的脚本：

Workbooks.Open Filename:= _
        "CSVfile.csv" _
        , Origin:=xlWindows
    Cells.Select
    Selection.ClearContents
    Windows("OriginalFile.xls").Activate
    Sheets("Manipulate").Select
    Range("Extract").Select
    Selection.Copy
    Windows("CSVFile.csv").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Selection.NumberFormat = "@"
    Application.CutCopyMode = False

---

感谢您的帮助。

查找类似NumberFormat vba的内容

我已经这样做了，这就是我得到选择的地方。NumberFormat=“@”我还将该命令移动到Selection.ClearContents下面。它不起作用，这就是为什么我抓挠我的头。