Excelから弥生会計へのインポートの基本・発展・マクロ

2015年10月28日

URLをコピーしました！

Excelから弥生会計へのインポートについて、質問も多いので、改めて記事にしてみました。
EX IT SS 42
※スクリーンショットをパワポで加工　

1 基本：弥生会計ルールどおりにExcelで入力
2 発展：Excelのデータを弥生会計ルールに変換
3 インポートの過程をマクロで自動化

基本：弥生会計ルールどおりにExcelで入力

Excelから弥生会計へインポートするには、
・Excelデータを弥生会計ルールにする
・CSVファイル形式で保存する
・弥生会計で取り込む
といった操作が必要となります。

弥生会計ルール

弥生会計ルールとは、弥生会計のヘルプで次の位置にあるものです。
EX IT SS 44

最低限必要な弥生会計ルールはこれだけです。
※黄色い部分が必須。薄いオレンジの部分が必須ではないが実質的に必要なもの
※消費税免税の場合の例
EX IT SS 50

・A列　仕訳データであれば、[2000]というコードです。

・D列　日付
20150101、2015/1/1、2015/01/01,h27/1/1といった形式で入力します。
通常は、2015/1/1の形式が多いでしょう（ExcelでCtrl＋Shift＋3を押したときの書式）。
弥生会計からエクスポートしたデータは、「H.27.01.01」という形式ですのでこの形式でも取り込めます。ただし、この形式は、Excelでは日付とみなしません。

・E列　借方勘定科目
弥生会計のデータに登録されていない場合は、取込時に指定ができます。
新たに追加する場合
EX IT SS 47
弥生会計にある科目に変換する場合のどちらにも対応可です。
EX IT SS 48
どうマッチングしたかは、[マッチングリスト]で確認できます。
EX IT SS 49

・H列　借方勘定科目の消費税区分
消費税コードは、弥生会計で確認できます。
手間がかからないのは、「課税仕入」、「課税売上」と入力し、取込時にマッチングすることです。
今回の事例は、免税ですので、「対象外」といれます。

・I列　借方金額

・K列　貸方勘定科目

・N列　貸方勘定科目の消費税区分

・O列　貸方金額

・T列　取引のタイプ
仕訳なら、「0」と入れます。固定です。
伝票を使うとここも変更しなければいけなくなるので手間が増えます。

※仕訳データでインポート、エクスポートするのをすすめています。
複合仕訳、伝票だと手間がかかるからです。
【関連記事】「伝票」は、もういらない。Excelから会計ソフトへのインポート・経理業務効率化のために。 | EX-IT
リンク

・Y列　コード
ここは、「no」といれます。固定です。

ここまでのものがあれば、インポートできます。

さらに必須ではないのですが、必要なものとして、次のようなものがあります。

・J列　借方消費税額
Excelで入力又は計算しなければいけません。
8％なら、「=int(I2*8/108）」です。
（2行目の場合）
これを入れないと、消費税区分で、課税にしていても弥生会計に反映されません。
なお、消費税区分を[対象外]にしていれば、ここに数字が入っていても、無視され0になります。
そのため、すべてのデータで、消費税額を計算する数式を入れていてかまいません。
IF関数で、「対象外の場合は、0、そうでない場合は消費税計算」としなくてもいいのです。

・P列　貸方消費税額

・O列　摘要
摘要は、分析のためにも入れておきましょう。
法律上（消費税法）も、経費については入れなければいけません。
口座間の振替や預け入れ、引き出しなどは入れなくても大丈夫です。

その他任意のものとして、補助科目があります。

CSVファイルで保存

ExcelデータをCSVファイル形式で保存します。
そのまま名前を付けて保存してしまうと、問題がいろいろ発生するので、コピーして新しいファイルに貼り付けてCSVファイルで保存するのがオススメです。

その理由には
・ファイルが開きっぱなしになりがちでインポート時にエラーが出る。
・Excelファイルの管理上手間がかかる
・CSVファイルは書式を設定できず、シートを増やせないため、通常はExcelファイルで管理し、インポート時にCSVにした方がいい
といったものがあります。

インポート時には、見出しがあると弥生会計でエラーになりますので、2行目以降のデータのみをコピーしましょう。
データを選択（2行目を選択後、Ctrl＋Shift＋↓を押すと一括で選択できます）し、コピー（Ctrl＋C）、
EX IT SS 14

新しいファイル（ブック）を開き（Ctrl＋N）、貼り付け（Ctrl＋V）、その後、そのファイルを閉じます（Ctrl＋W）。
次のような警告がでるのでEnterを押すと、
EX IT SS 15

[名前を付けて保存]ボックスが出るので、Tabキーを押し、[ファイルの種類]にカーソルを置き、半角モードでCを押すと、[CSV（カンマ区切り）」に表示が変わります。
Enterを押すと、CSVファイルで保存しつつファイルを閉じることができるのです。
EX IT SS 16

ファイルを閉じないと弥生会計で取込時にエラーが出ます。
代表的なエラーはこちらにまとめてあります。
【関連記事】会計ソフトでExcelデータをインポートする場合のエラーパターンと対処方法 | EX-IT
リンク

まとめると、
・データを選択、Ctrl＋C
・Ctrl＋N
・Ctrl＋V
・Ctrl＋W→Enter
・[名前を付けて保存]ボックスで、Tab→（半角モード）→c→Enter
という流れです。

弥生会計でインポート

CSVファイルを弥生会計でインポートしましょう。

仕訳日記帳を開き（Alt→C→Enter）、インポート（Alt→F→I）しようとすると、このようなボックスが表示されます。

ファイル名を直接入力するか、[参照]ボタンをクリックして指定してください。
EX IT SS 51

[参照]の場合、弥生会計ではテキストファイル（txt）を探しに行ってしまいます。

EX IT SS 8

このように、[すべてのファイル]に切り替えないと、CSVファイルは出てきません。
EX IT SS 9

ファイルを指定して読み込み、エラーがなければインポート完了です。

発展：Excelのデータを弥生会計ルールに変換

弥生会計ルールに変換

基本形の場合、このフォーマットで入力又はこのフォーマットに並べ替えなければいけません。
入力する場合も並べ替える場合も大変です。
EX IT SS 50

そこで、Excelでは自由な形式で入力し、弥生会計ルールへ変換する方法をオススメします。
たとえば、左側に仕訳形式で入力し、右側（J列以降）に弥生会計ルールに変換するといったものです。
数式（＝）を入れて連動させましょう。
EX IT SS 21

連動後、この赤い部分だけ取り込むわけです。
EX IT SS 23

出納帳形式なら、残高を確認しながら入力できます。
EX IT SS 53

科目については、入金欄が空欄かどうかで借方かどうかを判断するIF関数「もし、入金欄が空欄だったら、支払ということだから、貸方に相手科目が入る。そうでなかったら、入金だから、貸方に現金が入る」といれれば大丈夫です。
EX IT SS 26

自分（社長）が立て替えた場合は、このように入力すれば、連動できます。
貸方は、「役員借入金」で固定です。
（個人事業主、フリーランスの場合は、「事業主借」）
EX IT SS 54

データの数だけ連動部分の数式をコピーするのを忘れないようにしましょう。
コピーを忘れると正しく取り込めません。

インポート時の注意

数式連動の場合、基本形のように、コピーして貼り付けると、こうなってしまいます。
数式がエラーになるのです。
EX IT SS 29

値のみを貼り付けましょう。
ただ、値のみ貼り付けると、日付も値のみになってしまいますので、
EX IT SS 30

D列を選択して、Ctrl＋Shift＋3を押して日付形式にしなければいけません。
EX IT SS 32

まとめると、
・データを選択、Ctrl＋C
・Ctrl＋N
・Ctrl＋V、Ctrl、V（値のみ貼り付け。Ctrl+Vの後、Ctrlキーを1回押し、Vを1回押すと値のみ貼り付けできます。）
・D列で、Ctrl＋Shift＋3
・Ctrl＋W→Enter
・[名前を付けて保存]ボックスで、Tab→（半角モード）→c→Enter
という流れです。

インポートの過程をマクロで自動化

上記の基本又は発展でインポートはできますが、CSVファイルを作るのも手間です。
そこで私はマクロを使っています。

・データの数をカウントする
・そのデータの数だけ、数式をコピーする
・弥生会計ルールのデータのみコピーして、新しいファイルに貼り付けて、CSVファイル（「import.csv」という名前）で保存
というマクロです。

「import.csv」は、サンプルファイルを保存した場所に、作成されます。

Sub import()

'■データ数をカウント
    Dim Max_row As Long
    Max_row = Range("a" & Rows.Count).End(xlUp).Row

'■変換データの1行目をコピー
    Range("j3", "ah3").Copy Range("j3", "ah" & Max_row)
    
'■すべての変換データをコピー
    Range("j3", "ah" & Max_row).Copy
    
'■新しいブックに、変換データを貼り付け
    Workbooks.Add
    
    Range("a1").PasteSpecial Paste:=xlPasteValues
    Columns("d").NumberFormatLocal = "yyyy/mm/dd"
    
'■import.csvという名称で、ファイルを保存
    Application.DisplayAlerts = False
    
    　ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\import.csv", FileFormat:=xlCSV, local:=True
    
    　ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
    
        
    
End Sub

マクロは出納帳タイプ用で、「取込」ボタンを作っていますので、試してみていただければ。
EX IT SS 55