Dim FileNDim shTHIS As WorksheetDim tmpDim strBufDim clm'取り込むファイルをダイアログで選択、キャンセルで中断FileN = Application.GetOpenFilename("CSVファイル,*.csv")If FileN = False Then Exit Sub'取り込み先のシートを指定Set shTHIS = ThisWo…