Microsoft Access 掲示板

タブ区切りデータは、見出しなし、
追加先のテーブルとフィールドの並び順は同じとします。

フォーム上には、下記のコントロールが配置してあるとします。
テーブル名を入力するテキストボックス「txtテーブル名」
タブ区切りデータを貼り付けるテキストボックス「txtデータ」
クリックするとテーブルにデータ追加するコマンドボタン「データ追加」

Private Sub AddData(tblname As String, ByRef s As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim a, i As Long, j As Long
    Dim Datas

    Set db = CurrentDb
    Set rs = db.OpenRecordset(tblname)
    a = Split(s, vbNewLine)
    For i = 0 To UBound(a)
        Datas = Split(a(i), vbTab)
        rs.AddNew
        On Error Resume Next
        For j = 0 To UBound(Datas)
            rs(j) = Datas(j)
        Next
        On Error goto 0
        rs.update
    Next
End Sub

Private Sub データ追加_Click()
    Call AddData(Me.txtテーブル名, Me.txtデータ)
End Sub

こんな感じです。

クリップボード弄るあれこれ調べてたんですけどパッとしないですねぇ

Dim strClip As String

If Nz(Me!txtデータ) = "" Then
    'クリップボードのデータをコピー'
    Me!txtデータ.SetFocus
    DoCmd.RunCommand acCmdPaste
    Me.Recalc 'これを入れないとコード実行中に張り付けた値が反映されない'
End If

If Nz(Me!txtデータ) = "" Then Exit Sub

strClip = Me!txtデータ
Me!txtデータ = Null

'クリップボードのデータを削除'
CreateObject("WScript.Shell").Run "cmd /c ""echo off | clip""", 0

「クリップボードからの直接取込」または「txtデータに入力からの取込」の両方に対応して、2重取込防止（取込実行でtxtデータとクリップボードを消去）みたいなイメージで