社内データベースをアクセスで作成しています。
作成しているデータベースは商標関連のものです。
現在、特許庁では商標出願をパソコンで行うことができるようになっています。
そのために、出願データを下記のようなシンプルなhtmlファイルで作成する必要があります。
<html>
<title>商標登録願</title>
<body>
<PRE>
【書類名】      商標登録願
【整理番号】     11111
【提出日】      平成13年4月30日
【あて先】      特許庁長官 殿
【商標登録を受けようとする商標】
商標
【標準文字】
【指定商品又は指定役務並びに商品及び役務の区分】
  【第9類】
  【指定商品(指定役務)】電子応用機械器具
【商標登録出願人】
  【住所又は名称】 日本
  【氏名又は名称】 商標太郎
</PRE>
</body>
</html>
【】で囲まれているデータは、アクセスで作っているデータベースのデータの中に殆ど入っているので、アクセスでデータを入力した後に、上記した簡単なタグを付けて、上記のレイアウトでテキストファイル出力をして、さらに、それをhtmlファイルとして保存したいのですが、この作業を簡単に行うことができないでしょうか?
 教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

一番簡単なのは今書こうとしているファイルのデータをすべて含んでいるような


フォームの上にコマンドボタンを作成し、以下のようなコードを書けば
Open の次に指定するファイルが作成されます。

Private Sub ボタン1_Click()

Open "c:\test\tmp.htm" For Output As #1

Print #1, "<html>"
Print #1, " <title>商標登録願</title>"
Print #1, " <body>"
Print #1, " <PRE>"
Print #1, " テスト:" & Me!test
Print #1, " 今日:" & Format$(Date, "yyyy/mm/dd (aaa)")
Print #1, " </PRE>"
Print #1, " </body>"
Print #1, "</html>"

Close #1

End Sub

例えば上記のようなコードを書いた場合、
(「test」フィールドには "テスト!!" が入力されているとして)
以下のような内容の tmp.htm というファイルが C:\test フォルダ内に
できるはずです。

こういうことでよろしいのでしょうか??


<html>
<title>商標登録願</title>
<body>
<PRE>
テスト:テスト!!
今日:2001/04/24 (火)
</PRE>
</body>
</html>
    • good
    • 0
この回答へのお礼

出来ました!ありがとうございます。
後、二つ聞いてもいいですか?
1.出力ファイルの名称を、例えば、そのレコードの「ケース番号」にすることは可能でしょうか?
2.データの中に数が増減するデータがあるのですが、このようなものには、どのように対応すればいいのでしょうか?
 具体的にいうと、
 【第9類】
 【指定商品】 電子応用機械器具
 というデータや、
 【第9類】
 【指定商品】 電子応用機械器具
 【第10類】
 【指定商品】 測定機械器具
 というような感じで、分類と指定商品の数がデータによって、1個~30個近くまで変わってしまうのですが、このようなデータにも対応できるのでしょうか?
 

お礼日時:2001/04/24 11:13

> ap_dateというフィールドに出願日を入力した状態で、


> 上記の処理を行ったのですが、出力されるデータが
>「01/04/24」というようになってしまいます。
> これを「平成13年4月24日」というように出力させるには
> どのようにしたらよいのでしょうか?

いずれ日付のフォーマットで困るだろうと思って
最初の例でサンプルを載せたつもりだったのですが・・・。

Format$(Me!ap_date, "ggge年m月d日")

と言うようにすればOKです。
詳しくはヘルプでFormat関数をみてください。
「関連項目」の中の「日付/時刻表示書式指定文字」をみれば
日付に関するフォーマットの書き方が書いてあります。
    • good
    • 0
この回答へのお礼

すべて解決しました。
ありがとうございました。

お礼日時:2001/04/24 16:58

> 1.出力ファイルの名称を、例えば、そのレコードの「ケース番号」


> にすることは可能でしょうか?

"c:\test\tmp.htm" の所を "c:\test\" & Me!ケース番号 & ".htm" のようにすればいいのでは?

> 2.データの中に数が増減するデータがあるのですが、このようなものには、
> どのように対応すればいいのでしょうか?
> 具体的にいうと、
> 【第9類】
> 【指定商品】 電子応用機械器具
> というデータや、
>【第9類】
> 【指定商品】 電子応用機械器具
> 【第10類】
> 【指定商品】 測定機械器具
> というような感じで、分類と指定商品の数がデータによって、
>1個~30個近くまで変わってしまうのですが、このようなデータにも対応できるのでしょうか?

例えば、「第9類」というフィールドがあって、そのデータがない場合に、
そのフィールドが null となっている場合には、

If (Not IsNull(Me!第9類)) Then
Print #1, "【第9類】" & Me!第9類
End If

というようにすればOKの筈です。
(漢字と数字の入り混じったフィールド名は避けた方が無難ですが・・・。)
    • good
    • 0
この回答へのお礼

できました。ありがとうございます。
たびたび、申し訳ないのですが、ap_dateというフィールドに出願日を入力した状態で、上記の処理を行ったのですが、出力されるデータが「01/04/24」というようになってしまいます。これを「平成13年4月24日」というように出力させるにはどのようにしたらよいのでしょうか?
本当にたびたび申し訳ないのですが教えてください。

お礼日時:2001/04/24 12:39

直接の回答かどうかわからないのですが 特許の方ですとWORD などの文書から一括html変換できるソフトもいくつか出ていますね。


ああいうものを流用することはできないでしょうか。

コンバートスター(システムポート)
http://www.systemport.co.jp/product/togo12.htm

MM版特許事務ツール
http://www.vector.co.jp/soft/win95/business/se09 …

MS WORD97/98/2000用特許事務ツールマクロ
http://www.vector.co.jp/soft/win95/business/se05 …

参考URL:http://www.vector.co.jp/vpack/filearea/win/busin …
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QFrontPage について

FrontPage2000にてホームページを作成中なのですが
【HTML編集画面】にての日本語入力は問題なくできるのですが
【標準編集画面】にて日本語を入力しようとすると
文字に下線がついたまま、何も出来なくなってしまいます。
HTMLを確認すると <xxxxime xime="I">あ</xxxxime> と表示されております。
これ<xxxxime xime="I"></xxxxime> は、どういった意味で
どういった時に起こる現象なのでしょうか?
お教えください。よろしくお願いいたします。

Aベストアンサー

・・・・・・見たことない現象ですね。

私も、FrontPageについてはExpressと2002と使ってるんですけどね・・・・・・


そこで、提案なのですがマイクロソフトのWEBサイトに移動してFAQをよんだり、メールなどで質問してみてはいかがですか?

マイクロソフトには、自社ソフトであるFrontPageについてはサポートする義務もあるでしょうし。

まっ、ユーザサポートってやつですね。

Qエクセルにという文字が貼れないのですが

メモ帳に書かれている<html>という文字をコピーして
エクセルに貼ろうとしたところ、貼り付けることが出来ません。

どうすれば貼れるのでしょうか

Aベストアンサー

こんにちは。
ひと手間おけば・・・いかがでしょうか?
1.「新規Word文書」を起動
2.メモ帳内の文字列をコピー、(1)に貼り付け
3.(2)をコピー、「Excel」へ貼り付け

私の環境<OfficeXP/OS2002>では可能でした。
<Excel2000>での確認はしておりませんが、お試しください。

Q【アクセス】クエリで、行と列を入れ替えるには?【access】

こんにちは。
現在アクセスの勉強をしているのですが、
クエリの作り方で質問があります。
現在、営業マンごとの売上を集計しているのですが、
通常だとこのように列ベースで集計されると思います。

A男 100万
B男 200万
C男 300万

これを、以下のように行ベースで集計することは出来るのでしょうか?(エクセルのピボットがイメージです)

A男    B男    C男
100万   200万   300万

お手数お掛けしますがよろしくお願いいたします。

Aベストアンサー

クロス集計クエリでできます。
クエリの新規作成でウィザードが開きますので順次進めていけば出来上がります。
行を売上に列を営業マンに設定して値を合計にすれば出来ます。簡単ですよ。

Q【2】 【VBA】アクセス 条件付書式 (Yes/No型) 

以前にも質問してアドバイスを頂き
​http://msdn.microsoft.com/ja-jp/library/cc347606.aspx​
をみてやってみたのですが全然うまくいきませんでした。

式 [テーブル1.フィールド1]=True
該当するものの背景を灰色
にしたいのですが
この「テーブル1」は「親フォーム」のサブフォームの中に入っている「子フォーム」上あるものなのです。

Sub test5()
With Forms("子フォーム").Controls("フィールド1").FormatConditions(1)
.BackColor = RGB(255, 255, 255)
End With
End Sub

を実行すると
マクロの式または visual Basic コードで参照されている ’子フォーム’フォームが見つかりません。
のエラーが返ります。

そもそも「親フォーム」「テーブル1」はどこに入れればいいでしょう?

よろしくお願いします。

Aベストアンサー

>kurodai2さんには申し訳ありませんが、説明が重複する部分も含めて、通しで説明させて

DexMachinaさん、お気遣いどうもです。

fsjklsさん、1点補足してください。
最初からフィールド1に静的に、たとえば3通りの条件付書式を設定しておくことと、DexMachinaさんのコードの様にopen時に、フィールド1に設定し直す必要はどんな場面であるのでしょうか?
この部分が、理解しかねています。
open時に書いたのは、確認し易いのでしましたが、本来の目的は
どの場面で再設定の必要がある仕様なのでしょう?
私、実はそこが見えていません。

Q<至急>SUMIF関数の応用?

エクセル2000を使っています。

SUMIF関数の検索条件について困ってます。


    A     B     C     D     E   
 ┏━━━┯━━━┯━━━┯━━━┯━━━┓
1┃請求月│顧客名│金  額│顧客名│金  額┃
 ┣━━━┿━━━┿━━━┿━━━┿━━━┫
2┃先  月│あああ│○○円│いい い│○○円┃
 ┠───┼───┼───┼───┼───┨
3┃当  月│いい い│○○円│う う う│○○円┃
 ┠───┼───┼───┼───┼───┨
4┃翌  月│ええ え│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨
5┃先  月│う う う│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨
6┃当  月│あああ│○○円│いい い│○○円┃
 ┠───┼───┼───┼───┼───┨
7┃翌  月│ええ え│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨

単純に請求月を無視して、顧客毎に集計するならSUMIF関数で出来ますが、
顧客名の欄、金額の欄が2つある上に
各顧客の集計を「先月・当月・翌月」と分けて集計する場合の計算式が分かりません。

金額の行を指定する時、普通はC2:C7とすればC2⇔C7間が
指定できますが、この表の場合「当月」は「B3・E3・B6・E6」
とバラバラなので(:)では指定することが出来ず、
どう指定してよいのか分からないのです。

でもこの考えはSUMIFに基づく考え方なので、他の計算式が
当てはまるかも知れません。

教えて下さい。宜しくお願いします。

エクセル2000を使っています。

SUMIF関数の検索条件について困ってます。


    A     B     C     D     E   
 ┏━━━┯━━━┯━━━┯━━━┯━━━┓
1┃請求月│顧客名│金  額│顧客名│金  額┃
 ┣━━━┿━━━┿━━━┿━━━┿━━━┫
2┃先  月│あああ│○○円│いい い│○○円┃
 ┠───┼───┼───┼───┼───┨
3┃当  月│いい い│○○円│う う う│○○円┃
 ┠───┼───┼───┼───┼───┨
4┃翌  月│ええ え│○○円│おお お│○○円┃
 ┠───┼───┼───┼───┼───┨
5┃先  月│う う う│○○円│おお お│○○円┃
 ┠───┼───...続きを読む

Aベストアンサー

こんにちは。maruru01です。

請求月がG2、顧客名がH2にあるとすると、

=SUMPRODUCT(($A$2:$A$10=G2)*($B$2:$D$10=H2),$C$2:$E$10)

です。
行範囲は適宜変更して下さい。
列範囲が1列ずれているのがポイントなので、注意して下さい。


このカテゴリの人気Q&Aランキング

おすすめ情報