Sub GetCsv()
Dim FilePass As Variant
Dim FileName As String
Dim ShCount As Long
ShCount = ThisWorkbook.Worksheets.Count 'VBAの書かれたファイルのシート数
'ダイアログを開いてファイルを指定
FilePass = . . . 本文を読む
Sub FileRename()
'変数の型を宣言
Dim folder_path As String
Dim j As Integer
folder_path = Cells(5, 2) & "\"
j = 1
Do Until Cells(j + 6, 2) = ""
Name folder_path & Cell . . . 本文を読む