Accessにデータを追記する方法

Question

Accessで今後データを追記していく件で悩んでいます。
誰でも簡単に追記できることが目標です。

●追記するデータについて
他のアプリから行ごとコピペして持ってくるデータ。
EXCELに貼り付けるときちんと項目ごとに列が別れる。
行が複数に渡る（一気に複数データを貼り付けたい）ことがある。

●悩んでいること
ACCESSに直接貼り付けようとしたが、貼りつかない。
データ型が違う問題あり。（列ごとにACCESSで設定しているため）
また、Access上、コードを少し短く（末2桁を切る）表示するようにしている項目がある。

●解決法？
EXCELのVBAで変形しながらエクスポートするのが良いのかなとぼんやり思っているレベルですが、まだAccessとExcelの併用が好ましいのか、よくわかっていないので他にもっと良い方法があるのか悩んでいます。
また、そもそも上記のようなことがExcelVBAで可能かわかっていません。

●質問したいこと
やりたいことに対してExcelVBAが良さそうかどうか。他に方法があるか。
データの型についてはVBAでエクスポートする際にAccessにあわせないと、うまくいかないのでしょうか。因みに2桁短く表示している件は、最悪全て切り捨てても良いと思っています。

Comments

[cerophan]

本文に追記したため削除

[hatena19]

> 他のアプリから行ごとコピペして持ってくるデータ。
これをテキストファイルにペーストしたらどのようなデータになっているか質問に追記してもらえますか。
例えば、タブ区切りテキストになっているなら、AccessのVBAだけで取り込むことは可能です。

[cerophan]

タブ区切りになっていました。AccessのVBAのほうがおすすめなんですね。勉強してみます。
ところで、下2桁を消す問題が未だにモヤっとしています。
できるだけ消したくないと思うようになりました。
やはり一通り洗い出して、別のテーブルを作る方法がよいのでしょうね。

Answer 1

クリップボードのデータはタブ区切りのテキストのようですので、とりあえずクリップボードから各列のデータを取り出すコード例を提示しておきます。

Public Sub GetClip()
    Dim cbText As String
    With New MSForms.DataObject
        .GetFromClipboard    'クリップボードのデータをDataObjectに格納する
        cbText = .GetText    'クリップボードのテキストを取得する
    End With
    
        
    Dim aryData As Valiant
    aryData = Split(cbText, vbTab) 'クリップボードテキストをタブで区切って配列にする。

    Dim data As Variant
    For Each data In aryDate
        Debug.Print data
    Next
End Sub

「Microsoft Forms 2.0 Object Library」に参照設定する必要があります。詳細は下記を参考に。
【ExcelVBA入門】クリップボードを使ったデータの設定・取得方法とは

クリップボードのデータはタブ区切りで1行のみという前提です。複数行ある場合は、Splitで改行で区切った配列にして、さらにタブで区切った配列にするという2重ループにします。

データ型が違う問題あり。（列ごとにACCESSで設定しているため）

また、Access上、コードを少し短く（末2桁を切る）表示するようにしている項目がある。

上記で各列のデータは取得できますので、データ型は変換関数で変換したり、末2桁を切るのはLeft関数、Len関数で可能です。

これをヒントにできるところまでトライしてください。

Comments

[cerophan]

大変参考になりました。トライしてみます。この件はこれから必須となりますが、やはりそもそもの根本の全体的な設計を見直す必要がある気がしてしました。
また別の質問を立ち上げることになりそうです。

Answer 2

ACCESSのVBAを利用してEXCELをACCESS上に取り込んで処理する方法もあります。
先ずはVBAを勉強されることをお勧めします。

Comments

[cerophan]

勉強していきます。ありがとうございました。