回答編集履歴
1
加筆修正
answer
CHANGED
|
@@ -1,3 +1,7 @@
|
|
|
1
1
|
一つ一つのセルに対して、Cells(r, c).Valueで値で突っ込む必要があると思います。
|
|
2
2
|
便利なメソッドを使うとAccess側の書式も含めてまるっと転写されてかえって迷惑ですし。
|
|
3
|
-
Access上のテーブル/クエリーでしっかり書式設定を仕上げておく必要が生じるのも手間がかかりますし。
|
|
3
|
+
Access上のテーブル/クエリーでしっかり書式設定を仕上げておく必要が生じるのも手間がかかりますし。
|
|
4
|
+
|
|
5
|
+
cを
|
|
6
|
+
For c = 0 To rs.Fields.Count - 1
|
|
7
|
+
でループすれば少しはコード削減できそうですし。
|