Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Access 2016)
CSVのインポート方法を教えてください。
投稿日時: 17/12/25 11:31:29
投稿者: ouk

CSVのインポート方法を教えてください。
 
CSVファイル
ID   氏名   区分   日付
1   Aさん  入院    2017/1/1
2   Bさん  退院    2017/1/3
3   Cさん  入院    2017/2/10
4   Dさん  入院    2017/3/3
1   Aさん  退院    2017/3/3
1   Cさん  退院    2017/3/3
2   Bさん  入院    2017/4/3
2   Bさん  退院    2017/4/10
 
こちらを
ACCESSテーブル
連番 ID   氏名   入院   退院   
1  1   Aさん  2017/1/1  2017/3/3
2  2   Bさん        2017/1/3 
3  3   Cさん  2017/2/10  2017/3/3
4  4   Dさん  2017/3/3  
5  2   Bさん  2017/4/3  2017/4/10
 
のようにインポートしたいのですが、可能でしょうか?
よろしくお願いします。

回答
投稿日時: 17/12/25 14:16:21
投稿者: Suzu

VBAを使えば可能でしょうね。
 
ですが、直接それをやるよりは
一度CSVの形のままテーブルに取り込みます。
 
ワークテーブル
    ID
    氏名
    入院
    退院
のワークテーブルを用意。
 
 
CSVをインポートしたテーブルから
ワークテーブルに対し
追加クエリを使い
 
ID    氏名    入院    退院
1    Aさん    2017/1/1
3    Cさん    2017/2/10
4    Dさん    2017/3/3
2    Bさん    2017/4/3
 
のデータを作り
 
次に
ID    氏名    入院    退院
1    Aさん    2017/1/1    2017/3/3
3    Cさん    2017/2/10    2017/3/3
4    Dさん    2017/3/3    
2    Bさん    2017/4/3    2017/4/10
 
となる様、更新クエリ発行
 
 
更に次に
ID    氏名    入院    退院
1    Aさん    2017/1/1    2017/3/3
3    Cさん    2017/2/10    2017/3/3
4    Dさん    2017/3/3    
2    Bさん    2017/4/3    2017/4/10
2    Bさん        2017/4/10
 
となる様、追加クエリを発行
 
 
 
最後にワークテーブルから
 
最終形式のテーブル
    連番(オートナンバー)
    ID
    氏名
    入院
    退院
 
に対し、並び順を指定し追加クエリを発行すれば
目的の形になります。

投稿日時: 17/12/26 16:36:06
投稿者: ouk

大変わかりやすい説明ありがとうございました。

投稿日時: 18/01/11 16:08:41
投稿者: ouk

ありがとうございました。