アクセス97での質問です。
以下にあるようなテーブル(1)をエクスポートでエクセルにだします。
その際、ふつうにエクスポートするとヘッダーがでてしまいます。
これを出さずにエクスポートする方法を教えてください。
(どんな方法を使っても結果、このテーブルがエクセルに書き出されればOKです。
VBAでもかまいません・・・。)
<アクセステーブル(1)>
題名 作者 ISBN番号 読み仮名
アクセス入門 田中一郎 00000000アクセスニュウモン
エクセル入門 鈴木二郎 00000001 エクセルニュウモン
ワード入門 佐藤三郎 00000002 ワードニュウモン
一太郎入門 加藤五郎 00000003 イチタロウニュウモン
花子入門 伊藤六郎 00000004 ハナコニュウモン
↓エクスポート↓
<エクセル>
アクセス入門 田中一郎 00000000アクセスニュウモン
エクセル入門 鈴木二郎 00000001 エクセルニュウモン
ワード入門 佐藤三郎 00000002 ワードニュウモン
一太郎入門 加藤五郎 00000003 イチタロウニュウモン
花子入門 伊藤六郎 00000004 ハナコニュウモン
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
CSVファイルでよければ、マクロでできますね。
コードを書いて、ExcelBookを作ってみました。
Bookを作った後、列幅を揃えたり、保存したりしています。不要なら削除して下さい。
Microsoft DAO 3.6 Object Library(多分・・・。Access97は何?)を参照設定します。
当方、Access2000で確認済みですが、Access97でも大丈夫と思います。
Sub MakeExcelSheet()
' <<<Microsoft DAO 3.6 Object Libraryを参照設定 >>>
Dim myExcel As Object 'Excelオブジェクト
Dim myBook As Object 'ブック
Dim rw As Long, col As Integer '行、列カウンタ
Dim db As DAO.Database 'データベース
Dim rs As DAO.Recordset 'レコードセット
'Excelオブジェクトを作る
Set myExcel = CreateObject("Excel.Application")
myExcel.Visible = False 'TrueでExcelBookが見える
'新規Bookを作る
Set myBook = myExcel.Workbooks.Add
'データベース
Set db = CurrentDb
Set rs = db.OpenRecordset("テーブル1") '例『テーブル1』
With myExcel
.ScreenUpdating = False 'Excelの表示を止める
.DisplayAlerts = False 'メッセージを出さない
'テーブルの内容をExcelシートに出力
While rs.EOF = False
rw = rw + 1
For col = 1 To rs.Fields.Count
.Cells(rw, col).Value = rs.Fields(col - 1).Value
Next
rs.MoveNext '次のレコード
Wend
.ScreenUpdating = True '表示の再開
.Cells.Select
.Cells.EntireColumn.AutoFit '列幅を最適化
.Cells(1, 1).Select
.ActiveWorkbook.Saved = True
.ActiveWorkbook.SaveAs Filename:="A:\myBook1xxx.xls" 'ファイル名を指定
.DisplayAlerts = True
.Quit
End With
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Set myExcel = Nothing
End Sub
No.1
- 回答日時:
CSVで出力したらいかがですか?
CSVなら、EXCELに関連付けられているので、ファイルをダブルクリックすればEXCELで開きます。
エクスポートの際に、ファイル形式テキストを選択し、ファイル名の拡張子を「txt」から「csv」に書き直します。
そして、区切り記号を「カンマ」、「フィールド名を先頭の行に格納する」のチェックボックスは空欄のままで出力すれば、ヘッダーは出力せずエクセルで開きます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセスで教えてください。 例えばテーブル1に 1 佐藤 2 鈴木 3 佐々木 コードと住所一覧があ 3 2022/06/11 20:45
- Excel(エクセル) エクセル 関数 指定の繰り返しの回数 以降(以前)を削除するには、 2 2022/04/24 10:29
- PHP ファイルの書き込みについて教えて下さい。 1 2023/03/20 12:01
- MySQL 【MySQL】本当に困っているので、助けてください。よろしくお願いします。 3 2023/06/03 14:24
- 演歌・歌謡曲 美空ひばり、鶴田浩二、林伊佐雄、東海林太郎、伊藤久男、霧島昇、藤山一郎、灰田勝彦などは軍歌の歌い手と 10 2023/06/07 16:19
- C言語・C++・C# c言語の問題です 2 2023/07/21 10:51
- Excel(エクセル) メモ帳からエクセルにセル区切りで表示させたいんです 7 2023/02/25 22:04
- 野球 高校野球の話 1 2022/08/18 09:54
- その他(データベース) 20万行あるデータを動かしたい 2 2023/06/13 15:21
- 歴史学 酒井 忠次 と 小五郎 という名乗り の関係 について 1 2022/05/02 12:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクスポート時の改行コードに...
-
MS-SQLプロシージャでファイル...
-
AccessでCSVインポートのゼロサ...
-
アクセスのテーブルからエクス...
-
accessのエクスポートエラーに...
-
bcpインサートでのフォーマ...
-
ACCESSでのエクセルインポート...
-
既に使用されているので、使用...
-
SQL Server 2000 - bulk insert
-
symfowareのSQL文in句をバッチ...
-
「マスタ」と「テーブル」の違...
-
数百万件レコードのdelete
-
ACCESS2007 フォーム 「バリア...
-
Access VBA [リモートサーバー...
-
[ BETWEEN ] vs [ >= AND <= ]
-
3つ以上のテーブルをUNIONする...
-
2つのテーブルから条件に一致...
-
SELECT時の行ロックの必要性に...
-
ACCESS 一つのフィールドに複...
-
クエリのキャンセルがいつにな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
accessのエクスポートエラーに...
-
Accessのリンクテーブルについて
-
bcpインサートでのフォーマ...
-
SQL Server のデータをCSVファ...
-
既に使用されているので、使用...
-
アクセスのテーブルからエクス...
-
bcpによる、テーブル→CSVファイ...
-
エクスポート時の改行コードに...
-
ACCESSでのエクセルインポート...
-
symfowareのSQL文in句をバッチ...
-
SybaseのBCPでファイル上書き
-
MS-SQLプロシージャでファイル...
-
SQLServer2005でフラットファイ...
-
AccessでCSVインポートのゼロサ...
-
sqlite(spatialite_gui)での...
-
DBMAGICのプログラム解析
-
pl/sqlでcsvファイルダウンロード
-
SQLServer2005 クエリ結果のフ...
-
CSVファイルのインポートについて
-
ACCESSでのCSVデータの自動取り...
おすすめ情報