Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1076 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8874】ファイルのインポート こうへい 06/12/7(木) 16:39 質問[未読]
【8878】Re:ファイルのインポート 小僧 06/12/7(木) 18:04 発言[未読]
【8884】Re:ファイルのインポート こうへい 06/12/8(金) 11:13 お礼[未読]
【8874】ファイルのインポート
質問  こうへい  - 06/12/7(木) 16:39 -
引用なし
パスワード
   CSVファイルの取り込みで、質問があります。
CSVファイルのレイアウトは以下のようなものです。

得意先CD,実績,実績,実績,実績,実績,実績,実績

キー項目に対して実績が7回繰り返しで入っています。
実績は前期の実績で7回目のは合計値です。

これを以下のように変換したいと考えています。
得意先CD,年月,実績
得意先CD,年月,実績
得意先CD,年月,実績
・
・

最初はCSVをインポートしてからクエリででもやろうと思っていたのですが、
項目数が多すぎて(400くらい)ちゃんとインポートできませんでした。

そこでVBAで、
・CSVファイルを1行読み込む
・インサート文を作成し、インサート×６
※合計値はいらない

ということをやろうと思ったのですが、
手元に資料が無く、こういうことができるのかも
わからない状態です。

上記のようなことは可能でしょうか？
宜しくお願いいたします。
【8878】Re:ファイルのインポート
発言  小僧  - 06/12/7(木) 18:04 -
引用なし
パスワード
   ▼こうへい さん：
こんにちは。

>上記のようなことは可能でしょうか？

可能か不可能か、という事でしたら可能です。


ただこういったご質問のされ方ですと、画面上部にある

「本サイトの基本方針をまとめました。こちら をご一読ください。」

に書いてあるの「丸投げ」と思われてしまいますので注意して下さいね＾＾


さて、実際の方法ですが

1.CSVファイルを開いて
　Openステートメント
　OpenTextFileメソッド

2.1行目を読み込み
　Line Input ステートメント
　ReadLineメソッド
　
3.「,」で分割して
　Split関数

4.ループ処理でインサート文を作成
　For〜Next
　Do〜Loop

の様な処理ステップになるかと思われます。


途中で解らない事がありましたら再度ご質問されてみて下さい。
【8884】Re:ファイルのインポート
お礼  こうへい  - 06/12/8(金) 11:13 -
引用なし
パスワード
   ▼小僧 さん：
ご返信ありがとうございます。

>可能か不可能か、という事でしたら可能です。
>ただこういったご質問のされ方ですと、画面上部にある
>「本サイトの基本方針をまとめました。こちら をご一読ください。」
>に書いてあるの「丸投げ」と思われてしまいますので注意して下さいね＾＾
すいません、以後気をつけます。

>途中で解らない事がありましたら再度ご質問されてみて下さい。
記述していただいたキーワードを元に
いろいろ調べて、何とかできそうです。
また何かわからないことがあればお聞きしたいと思います。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1076 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080983
(SS)C-BOARD v3.8 is Free