Question

我每天都在Excel中为SAP生成上传文件。在源文件中，日期刷新。然后，我创建一个新的工作簿，添加日期ID和每日值（三行）。在这个宏中，我专注于格式问题。在上传期间，SAP仅接受常规格式（dd.mm.yyyy）。下面的结果是特殊格式，但我需要通用格式（但不喜欢43251）。

Sub columntotext()

'select date values
Sheets("Munka1").Range("C1", Range("C1").End(xlToRight)).Select
Selection.Copy
Range("c2").PasteSpecial xlPasteValues
Range("C2", Range("C2").End(xlToRight)).NumberFormat = "dd.mm.yyyy"
'transpose to the first coulmn to make text to columns    
Sheets("Munka1").Range("C2", Range("C2").End(xlToRight)).Select
Selection.Copy
Range("A3").PasteSpecial Transpose:=True

Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"),DataType:=xlDelimited,_
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    Semicolon:=False, Comma:=True, Space:=False, Other:=False, _
    FieldInfo:=Array(1, xlGeneralFormat), TrailingMinusNumbers:=True

Sheets("Munka1").Range("A3", Range("A3").End(xlDown)).Select
Selection.Copy

'transform the values to vertical
Range("c3").PasteSpecial Transpose:=True
Application.CutCopyMode = False

Range("C3", Range("C3").End(xlToRight)).NumberFormat = "dd.mm.yyyy"

End Sub

在excel vba中将日期更改为通用格式后保留日期

0 个答案: