Access VBA質問箱 IV

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

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


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

2815 / 9994

←次へ　｜　前へ→


	【10446】Re:エクセルファイルにデータを出力

kohji - 08/6/26(木) 17:26 -


	引用なし

	パスワード

こんにちは

>'ファイルを開く
>MyFile = "D:\My Documents\2008\社会保険届出関連\WT_社保資格喪失.xls"
>Set xlsWkb = xlsApp.Workbooks.Open(MyFile)
>Set rst = CurrentDb.OpenRecordset("Q_社保エクスポート用", dbOpenDynaset)
>xlsWkb.Worksheets("T_社保資格喪失").Range("A11.M100").ClearContents
>xlsWkb.Worksheets("T_社保資格喪失").Range("A11").CopyFromRecordset rst
>　　
>Set rst = Nothing
>xlsWkb.Close True: Set xlsWkb = Nothing
>xlsApp.Quit: Set xlsApp = Nothing

上記　Excelを閉じていますが
これをこのまま利用すればどうかな？

MyFile = "D:\My Documents\2008\社会保険届出関連\WT_社保資格喪失.xls"
Set xlsWkb = xlsApp.Workbooks.Open(MyFile)
Set rst = CurrentDb.OpenRecordset("Q_社保エクスポート用", dbOpenDynaset)
xlsWkb.Worksheets("T_社保資格喪失").Range("A11.M100").ClearContents
xlsWkb.Worksheets("T_社保資格喪失").Range("A11").CopyFromRecordset rst
xlsApp.UserControl = True
xlsApp.Visible = True

AppActivate "Microsoft Excel"

みたいな感じで…
検証はしてないですが…

888 hits

▼

【10445】エクセルファイルにデータを出力 あおぎん 08/6/26(木) 16:18