VBAで17桁ある数字を日付・時刻表記に変更したい

Question

データをダウンロードすると、17桁の数値がこんな感じで「20201201070906800」ダウンロードされます。これをVBAで「2020/12/01 07:09」という表記になおしたいですが、上手くいきません。

また、同時に日付を古い順に上から並び替えをしたいです。

コードを次のようにいれましたが、どなたか、ご教授ください。

なお、データのダウンロードのコードが不完全にみえるかもしれませんが、特定できる部分を消したので、不完全になっています。

Sub データテスト()

Application.ScreenUpdating = False

    Dim c_YYMMDD As String
    Dim c_YY As String
    Dim c_MM As String
    Dim date_yyyymmdd As Date
    
    Set dstWB = ThisWorkbook
    
    Worksheets("テスト").Cells.Clear
    
    Dim Date1 As String
     Date1 = Application.InputBox( _
                    "日付を入力してください(yy/mm/dd)", _
                    "（必須入力）" & vbLf & "日付入力", _
                    "yy/mm/dd")
                    
     'taiou
     dstWB.Worksheets("テスト").Activate
     Range("Q2").Value = Date1
     date_yyyymmdd = Range("Q2")
    
    c_YYMMDD = Mid(date_yyyymmdd, 1, 4) & _
    Mid(date_yyyymmdd, InStr(date_yyyymmdd, "/") + 1, InStrRev(date_yyyymmdd, "/") - InStr(date_yyyymmdd, "/") - 1) & _
    Mid(date_yyyymmdd, InStrRev(date_yyyymmdd, "/") + 1, 2)
    
    c_YY = Mid(date_yyyymmdd, 1, 4)
    
    c_MM = Mid(date_yyyymmdd, InStr(date_yyyymmdd, "/") + 1, InStrRev(date_yyyymmdd, "/") - InStr(date_yyyymmdd, "/") - 1)
  
    c_DD = Mid(date_yyyymmdd, InStrRev(date_yyyymmdd, "/") + 1, 2)

    Set データ = Workbooks.Open
    
    
    'Workbooks("" & c_YYMMDD & ".csv").Activate
    'Sheets(1).Select
    
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="Time", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy
    dstWB.Worksheets("テスト").Activate
    Cells(1, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="Time", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Select
    Range("A2", Selection.Cells(Rows.Count, 1).End(xlUp)).NumberFormatLocal = "yyyy/mm/dd hh:mm"
       
    Workbooks("" & c_YYMMDD & ".csv").Activate
    Sheets(1).Select
    
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="ID", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy
    dstWB.Worksheets("テスト").Activate
    Cells(1, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       
    Workbooks("" & c_YYMMDD & ".csv").Activate
    Sheets(1).Select
    
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="Order", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy
    dstWB.Worksheets("テスト").Activate
    Cells(1, 3).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       
    Workbooks("" & c_YYMMDD & ".csv").Activate
    Sheets(1).Select
    
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="Account", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy
    dstWB.Worksheets("テスト").Activate
    Cells(1, 4).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       
    Workbooks("" & c_YYMMDD & ".csv").Activate
    Sheets(1).Select
    
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="Counter", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy
    dstWB.Worksheets("テスト").Activate
    Cells(1, 5).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       
    Workbooks("" & c_YYMMDD & ".csv").Activate
    Sheets(1).Select
    
    Range(Cells(1, 1), Cells(1, 99)).Find(What:="Date", Lookat:=xlWhole).Select
    Range(Selection, Selection.Cells(Rows.Count, 1).End(xlUp)).Copy
    dstWB.Worksheets("テスト").Activate
    Cells(1, 6).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       
           
     Application.DisplayAlerts = False
     Workbooks("" & c_YYMMDD & ".csv").Close
       

End Sub


コード

Comments

[meg_]

> これをVBAで「2020/12/01 07:09」という表記になおしたいですが、上手くいきません。
表記を変換している処理はコードのどの部分でしょうか？また、上手くいかないとは具体的にはどういうことでしょうか？

Answer 1

データをダウンロードすると、17桁の数値がこんな感じで「20201201070906800」ダウンロードされます。これをVBAで「2020/12/01 07:09」という表記になおしたいですが、上手くいきません。

ご参考に。

Dim x As String
x="20201201070906800"

Dim res As String
res = Format(Left(x,12),"@@@@/@@/@@ @@:@@")  'res: "2020/12/01 07:09"

また、同時に日付を古い順に上から並び替えをしたいです。

シート上の日付ですか。もしそうなら、下記をご参考に。

並べ替え（Sort）｜VBA入門

Answer 2

たんに文字列の先頭から、４文字２文字２文字.... に分割すればいいだけですね
「VBA 文字数で分割」でぐぐるとやり方でてきますよ