Question

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

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

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

感谢您的帮助。

Answer 1

查找类似NumberFormat vba的内容

Excel文本字符串不应粘贴为日期

1 个答案: