![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_07.png?e8efa67)
次のようなEXCELファイルがあります。
[A] [B]
[1] 2018/07/31
[2]AAA 1,000
[3]BBB 500
[4]CCC 1,500
…
(A1には日付)
(A2以降にインポートするデータ)
このファイルのA2以降をACCESSでインポートする際に「日付」フィールドを追加し、
EXCELのA1にある日付を入れて、次のようなテーブルにしたいです。
Tbl_○○○
AAA 1,000 2018/07/31
BBB 500 2018/07/31
CCC 1,500 2018/07/31
A2セル以降からのインポートは TransferSpreadsheet で実現できましたが、
日付フィールドの追加で行き詰ってしまいました。
どうすれば上記実現可能か教えて下さい。
宜しくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
C2以降に日付をコピペじゃだめなんですか?
ご回答ありがとうございます。
説明不足ですみません。
実は元になるEXCELファイルが数百あり、コピペだと対応しきれないので、
日付の入力も自動化したいんです。
幸いフォーマットは全て統一されているので、
インポートの際はフォルダ内のEXCELファイルを全て取り込むようにしてあります。
↓こんな感じです
Private Sub 実行ボタン_Click()
Dim dname As String
Dim fname As String
Dim tblname As String
dname = "C:\hogehoge\"
fname = Dir(dname & "*.xls")
tblname = "Tbl_○○○"
Do While fname <> ""
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, tblname, dname & fname, False, "Table$A2:B"
fname = Dir()
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
年、月、日を分けて入力したも...
-
日付を昇順で並び替えし、空白...
-
日付を差し込み印刷で表示した...
-
Accessで日付から曜日を自動で...
-
ACCESSの自動連番について
-
Wordの日付変換ってできますか?
-
伝票番号の自動採番について
-
差し込み印刷で日付の曜日を表...
-
Wordで、ヘッダーに印刷日付を...
-
Word2010 フィールド内での和...
-
wordの日付入力の仕方について...
-
Accessのテーブルで日付...
-
【Word】 今日の「年」「月」...
-
「24日の0時」って・・・
-
Excelで1週間毎の集計(今週と...
-
エクセルのチェックボックスを...
-
VBAでエクセルシートを更新...
-
エクセルで最高値、最低値の日...
-
履歴書の日付間違いで落ちますか。
-
「時間」、「期日」、「日付」...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
日付を差し込み印刷で表示した...
-
差し込み印刷で日付の曜日を表...
-
日付を昇順で並び替えし、空白...
-
クエリで日付型のIIF関数の使用
-
Wordで、ヘッダーに印刷日付を...
-
Accessで秒を時間で表示させる...
-
Wordの日付変換ってできますか?
-
【Tableau Desktop】文字列から...
-
日付型のテキストボックスに数...
-
日付がインポートされない
-
挿入した日付の自動更新を中止...
-
Word2010 フィールド内での和...
-
accessで残業時間計算
-
wordの日付入力の仕方について...
-
【Word】 今日の「年」「月」...
-
EXCELからACCESSへのインポート...
-
FileMaker Ver.7で2つの日付間...
-
ファイルメーカーの日付の検索
-
Accessで日付から曜日を自動で...
-
word2007で日付挿入したら翌日...
おすすめ情報