アクティブなブック名を取得して、ブック名に含まれる特定の記号で文字列を分ける

例えば、
20170305_日本.csv
ってファイル名をエクセルで開いて、
A2に、20170305。　B2に、日本と入れたい場合。

.csvが邪魔なので、これは置換で対応

----- べんりあつめ。-----

Dim i, ii, iii
i = ActiveWorkbook.Name 'ブック名取得
ii = Replace(i, ".csv", "") '置換して.csvを取る
iii = Split(ii, "_") '特定記号で、文字列を分ける

　　'Splitは、配列になるので以下の表記
Range("A2").Value = iii(0)
Range("B2").Value = iii(1)