сохранить дату после изменения формата даты на общий в Excel VBA - PullRequest
Новая
       7

сохранить дату после изменения формата даты на общий в Excel VBA

0 голосов
/ 29 ноября 2018

Я генерирую файл загрузки для SAP в Excel каждый день.В исходном файле дата обновляется.Затем я создаю новую книгу с добавлением идентификатора даты и ежедневного значения (три строки).В этом макросе я фокусируюсь на проблеме формата.SAP принимает только общий формат (дд.мм.гггг) при загрузке.Ниже приведен специальный формат результатов, но мне нужно общее (но не как 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
...