![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
質問に明確に書くこと。
テキストデータからか
エクセルデータからか
ーー
エクセルでデータができている場合の話をします。
第1ブック inp1.xls
ABCDE
12345
1122334455
とあるとします。
第1行目は、項目見出しにすること。
インポートすると
IDABCDE
112345
21122334455
となりました。
ーー
第2ブック inp2.xls
ABCDEFG
678910
空いているデータの無い列も項目見出しは、inp1.xlsの第1行目にそろえること。
IDABCDEFG
1678910
とインポートされました。
ーー
これでアクセスのテーブルはできました。後は必要あれば、テーブルデータの合体を行ってください。
判らないときは再質問か補足。
この回答への補足
書き込みをいただいてありがとうございます。
説明不足で申し訳ありませんでした。
下のご回答にも書いたのですが、メールをテキストで保存して
エクセルにインポート、不要なヘッダーを削除して加工後
アクセスにインポートしようとしていました。
imogasiさんのご回答によれば、
fly moonさんと同じように各ファイルごとに異なるテーブルを作って、それを合体するということですよね?
やはりそれしか出来ないですよね?
仕事が終わりましたら試してみてまた報告させていただきます。
ありがとうございました。
No.2
- 回答日時:
<D:\Temp\question001.txt>
A,B,C,D,E
1,2,3,4,5
<D:\Temp\question002.txt>
A,C,D,E
2,4,5,6
<questionnare>
A___B____C____D____E
1___2____3_____4_____5
2___0____4_____5_____6
さて、上記の2つのファイルをメモ帳で編集して用意。
フォームからインポートしてみました。
<questionnare>が、作成されたテーブルです。
以下は、インポートのために書いたコードです。
INSERT INTO questionnaire (A,B,C,D,E) VALUES (1,2,3,4,5);
INSERT INTO questionnaire (A,C,D,E) VALUES (2,,4,5,6);
このような SQL文を作成して実行しているだけです。
まあ、簡単と言えば簡単なコードです。
まあ、初心者の方には難しいと言えば難しいコードです。
Private Sub コマンド0_Click()
Dim StopNow As Boolean
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim N As Integer
Dim M As Integer
Dim strFiles() As String
Dim strDatas() As String
Dim strFName() As String
Dim strField() As String
Dim strFLists As String
Dim strSQL As String
' ------------------
' ファイル一覧取得
' ------------------
strFiles() = GetFileList("D:\Temp", "question*.txt")
N = UBound(strFiles())
For I = 0 To N
' ------------------------
' ファイルデータ読み込み
' ------------------------
strDatas() = FileReadArray("D:\Temp\" & strFiles(I))
' -----------------
' Field list 作成
' -----------------
strFName() = Split(strDatas(0), ",")
K = UBound(strFName)
strFLists = strFName(0)
For H = 1 To K
strFLists = strFLists & "," & strFName(H)
Next H
' -------------
' Insert 実行
' -------------
M = UBound(strDatas())
For J = 1 To M
If Len(strDatas(J)) > 2 Then
strField() = Split(strDatas(J), ",")
strSQL = "INSERT INTO questionnaire (" & strFLists & ") VALUES (" & strField(0)
For H = 1 To K
strSQL = strSQL & "," & strField(H)
Next H
strSQL = strSQL & ")"
StopNow = Not CnnExecute(strSQL)
If StopNow Then
Exit For
End If
End If
Next J
Next I
End Sub
GetFileList()、FileReadArray()、 CnnExecute()は、自作の関数です。
このような VBA に挑戦されるのであれば、3つの関数は公開します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- Outlook(アウトルック) 【 Windows 10 】アドレス帳に正しくインポートを完了させたい。 3 2023/04/23 13:41
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
-
4
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
5
ACCESSでのエクセルインポート時のシート有無の判定について
その他(データベース)
-
6
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
7
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
8
Excelのデータ(数字)をテキスト型としてaccessにインポートする方法
Excel(エクセル)
-
9
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
10
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
11
Access インポート
Access(アクセス)
-
12
FindFirst を複数条件で検索
Visual Basic(VBA)
-
13
アクセスのフィルタ nullについて。
その他(データベース)
-
14
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
15
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
16
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
17
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
18
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
19
ACCESS2000でExcelから特定フィールドをインポートしたい
Access(アクセス)
-
20
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSにEXCELからインポートし...
-
Access2010でVBAでのインポート
-
Access(アクセス)でのインポー...
-
ACCESS、フィールドが異なるデ...
-
アクセス2000 65536行を超える...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
-
エクセルにおける「フィールド...
-
2つのテーブルに共通するレコ...
-
ACCESSのデータに自動で半角ス...
-
ACCESS 「パラメータの入力」...
-
access テーブル作成クエリでテ...
-
クエリ上でフィールド名が2つ...
-
デザインビューにてテーブルが...
-
フォーム データシートビューで...
-
アクセス:クエリの結合とリレ...
-
クエリの結果が文字化け(Access...
-
ACCESS テーブルを見比...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSにEXCELからインポートし...
-
Access フォームからの入力結...
-
Access2010でVBAでのインポート
-
アクセス2003 複数の列に...
-
ACCESS、フィールドが異なるデ...
-
Access(アクセス)でのインポー...
-
アクセスでの、固定長でのテキ...
-
リンクされたテーブルのレコー...
-
マイクロソフトアクセスのイン...
-
Access2002でExcel2002のデータ...
-
Excelで入力したデータをAccess...
-
ACCESS ユニオンクエリ...
-
Access2016でフォーム内にExcel...
-
ACCESSのテーブルからデータを...
-
Access テーブルをデータシー...
-
Excelからaccessに入出庫管理を...
-
アクセス2010にエクセルデータ...
-
accessのデータを検索するツー...
-
アクセス 日付を項目追加して取込
-
エクセルデータを使ってアクセ...
おすすめ情報