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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。
Access(アクセス)
-
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
-
4
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
5
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
6
エクセルのデータをアクセスにインポートしたいのですが、フィールド名として使用できないデータがあるようで・・
Access(アクセス)
-
7
Excelのデータ(数字)をテキスト型としてaccessにインポートする方法
Excel(エクセル)
-
8
ACCESSでのエクセルインポート時のシート有無の判定について
その他(データベース)
-
9
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
10
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
11
アクセスのフィルタ nullについて。
その他(データベース)
-
12
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
13
INSERT INTO ステートメントに認識できないフィールド
その他(データベース)
-
14
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
15
Accessを開くと「排他モードじゃないので変更しても保存できない」との旨の表示が出てしまう。
Access(アクセス)
-
16
OR関数
その他(Microsoft Office)
-
17
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
18
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
-
19
Access インポート
Access(アクセス)
-
20
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access2002でExcel2002のデータ...
-
ACCESS ユニオンクエリ...
-
Access(アクセス)でのインポー...
-
Access フォームからの入力結...
-
Excelからaccessに入出庫管理を...
-
支店から本社のアクセスファイ...
-
エクセルデータを使ってアクセ...
-
Access テーブルをデータシー...
-
アクセス2003 複数の列に...
-
エクセルからアクセスへデータ転送
-
Access2010でVBAでのインポート
-
アクセス2000 65536行を超える...
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
-
楽天証券→SBI証券へ投資信託は...
-
アクセスのエラー「クエリには...
-
最新日のデータのみ抽出するク...
-
アクセスで追加した項目に全て...
-
ACCESS クエリの抽出条件に他の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSにEXCELからインポートし...
-
ACCESS、フィールドが異なるデ...
-
Access フォームからの入力結...
-
Access2010でVBAでのインポート
-
Access(アクセス)でのインポー...
-
アクセスの容量がなぜか増加します
-
アクセス2003 複数の列に...
-
Access2016でフォーム内にExcel...
-
access 2003 1万件以上がカット...
-
ACCESS ユニオンクエリ...
-
Excelで入力したデータをAccess...
-
リンクされたテーブルのレコー...
-
accessのデータで重複している...
-
accessのデータを検索するツー...
-
Access2002でExcel2002のデータ...
-
ACCESSのテーブルからデータを...
-
アクセス2010にエクセルデータ...
-
エクセルからアクセスへデータ転送
-
アクセスでの、固定長でのテキ...
-
エクセルからアクセスへ貼り付...
おすすめ情報