Sub Au取込()

高速開始

    Dim buf As String, A As Variant, i As Long, j As Long, fpath As String, dfile As String, Opath As String, today As String

   Worksheets("Au").Activate

   fpath = "\\00 全般\個人フォルダ\◎◎\13_金属相場\1_相場更新\金属相場csvダウンロードファイル\Au・Ag\Au_山元建値(c173_4)"

'   today = Format(Date, "yyyymmdd")

   today = Worksheets("実行").Range("D1").Value

dfile = Dir(fpath & "\*.csv?")

   Opath = fpath & "\" & dfile

    Open Opath For Input As #1

        Do Until EOF(1)

            i = i + 1

            Line Input #1, buf

            A = Split(buf, ",")

            For j = 0 To UBound(A)

                Cells(i, j + 1) = A(j)

            Next j

        Loop

    Close #1

高速終了

End Sub