2014-02-24 53 views
0

我想從一個工作簿中複製一個單元格到另一個工作簿,後者是一個csv文件。這兩個文件都已經存在,並且我使用腳本在粘貼新值之前刪除csv文件的內容。Excel文本字符串不應粘貼爲日期

其中一列用於用戶選擇的密碼,有時用戶使用看起來像日期的字符串作爲密碼。即使源文件正確顯示文本爲「august10」,csv文件也會將其格式化爲8月10日。我試過了我能想到的一切,不知道我做錯了什麼。這裏是我正在使用的腳本:

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 

感謝您的任何幫助。

回答

0

查找類似的NumberFormat VBA

+0

我已經做到了,這是我得到了Selection.NumberFormat =「@」我也感動的是命令出現Selection.ClearContents下方。它沒有工作,這就是爲什麼我抓我的頭。 –