質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

2回答

8899閲覧

AccessからExcelへデータコピーした際の表示形式について

syncrock

総合スコア209

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2018/05/23 01:32

現在以下のような形でAccessからExcelへデータを出力するVBAを組んでます。

vba

1 Set objEXE = CreateObject("Excel.Application") 2 Set objWB = objEXE.Workbooks.Open("ファイルパス") 3 objWB.Worksheets("シート名").Cells(4, 1).CopyFromRecordset rs 4 'rsはDAO.Recordsetです。

そこで質問なのですが、このような形で出力した場合、例えばExcel側で表示形式でユーザ定義で日付の設定などしていた場合。
出力された値のまま表示され表示形式で設定した内容でフォーマットされていません。
F2などでセルを選択したあと、選択を外すと表示形式が適用されてフォーマットされます。
Excelを開くと既に表示形式が適用されていて欲しいのですが、そのようなやり方はあるのでしょうか。
行数が多いため、出来れば一行出力→表示形式の設定みたいなループはやりたくはないのですが。。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

アイデアだけで恐縮なのですが、以下を参考にマクロを記録しその処理をコピー後に行うのはどうでしょうか。
F2→Enterが面倒−区切り位置指定ウィザード
【Excel】マクロに関して 「区切り位置」の操作

投稿2018/05/23 01:56

sazi

総合スコア25138

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

syncrock

2018/05/23 02:04

良いかもしれません、ちょっと試してみます。
syncrock

2018/05/23 02:45

テンプレートにブックのOpen時に動作するようにすると、うまくいきました。 マクロの動作やスピード感も問題ありません。 ありがとうございます。
退会済みユーザー

退会済みユーザー

2018/05/23 02:46

勉強になりました。
guest

0

一つ一つのセルに対して、Cells(r, c).Valueで値で突っ込む必要があると思います。
便利なメソッドを使うとAccess側の書式も含めてまるっと転写されてかえって迷惑ですし。
Access上のテーブル/クエリーでしっかり書式設定を仕上げておく必要が生じるのも手間がかかりますし。

cを
For c = 0 To rs.Fields.Count - 1
でループすれば少しはコード削減できそうですし。

投稿2018/05/23 01:51

編集2018/05/23 01:53
退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

syncrock

2018/05/23 02:02

やはり個別なのですね・・・。 速度を見るためにもそれで試してみます。。。
退会済みユーザー

退会済みユーザー

2018/05/23 02:07

画面のリフレッシュ、再計算を止める、というのもセットでやれば速いです。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問