Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7317 / 9994

←次へ　｜　前へ→


	【5871】エクセルへの自動出力

aki - 05/8/17(水) 13:37 -


	引用なし

	パスワード

テーブル"テストテーブル"　　フィールド"ID"
フォームAにあるテキストボックス"テスト"をコマンドボタン"実行"をクリッ
クすることにより、テーブル"テスト"の"ID"に自動入力（追加）され、かつ、
エクセル"テスト.xls"に自動に出力されるようにするにはVBAをどのように入
力すればいいのでしょうか？
テーブルに出力までできています。しかし、エクセルに自動出力がされません
。なにか悪い点があったら教えて下さい。

Private Sub 実行_Click()
Dim SQLCODE As String
Dim XName As String
　　
　　XName = "C:\テスト.xls"

　　SQLCODE = "INSERT INTO テストテーブル(ID)VALUES('" & Me.テスト.val
ue & "')"

　　DoCmd.RunSQL SQLCODE

　　DoCmd.RunSQL SQLCODE
　　DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,"テス
トテーブル",XName

End Sub

314 hits

▼

【5871】エクセルへの自動出力 aki 05/8/17(水) 13:37

≪