Microsoft Office Accessコミュのエクセルのテンプレートを移管したい。

はじめまして、製造業にて、営業管理兼総務を担当する者です。

従来、受注管理、売上管理は、エクセルで行っており、これを全面的にアクセスで管理したいと考えております。

エクセルのテンプレートをアクセスのテンプレートに移管する簡単な方法があれば、ご教示ください。
具体的には、

見積書、発注書（当社から仕入先へのもの）、請求書など各様式は、エクセルテンプレートになっているですが、このテンプレートを移管時にアクセステンプレートにしたい。と考えています。

コメント(15)

最初
全て
最新の40件

[2] mixiユーザー 09月15日 20:39

印刷物をスキャナーで取り込んで後は根性で作り上げて下さい。
データはＣＶＳで取り込んで下さい。

[3] mixiユーザー 09月15日 21:31

やはり、難しいようですね。

ADOでデータ吐き出しして、エクセルテンプレートに自動でパラメータ入力させ、
名前をつけてXLSファイルとして保存するのが、いいのかな？

つまり、目的としたは、アクセスのフォームにパラメータ入力すれば、
あとは、ボタン一つで、会社で決めれられた様式（エクセル）の見積書等が、出力されればいい。
ということなんですが。

[6] mixiユーザー 09月16日 14:06

みぎかたさん
＞データはAccessでフロントエンドをエクセルにするっていう方法もありますよ。

そのつもりです。スタッフのPCには、アクセスが入ってないんで。
アクセスへの移行にあたって、スタッフに新しいことを覚えさせたくないんですね。

現状＞
1.エクセルの会社指定の様式の見積もり書にインプットして、紙ベースで出力。
2.P.Oが着たら、これをエクセルのLISTに入力

To-Be>
1.アクセスに必要なパラメーターをエクセル上で入力させて、DBに。
2.見積書は、上記パラメーターを読み込んで、エクセルの様式に反映
3.DBに必要の無いアレンジは、エクセル上で直接加工

こんな感じでしょうか？

マシュタさん
理想は、使い慣れた見積書様式そっくりなフォームとレポートが作れたらいいんですがね。
ユーザーサイドに負荷を掛けたくないので。

[7] mixiユーザー 09月16日 14:28

VBAが使える前提で。　(てか使えますよね？

現状＞1.スタッフがエクセルの会社指定の様式の見積もり書にインプット
To-Be>
2. スタッフがエクセルの会社指定の【別】様式の発注書、請求書に必要部分インプット（必要部分は見積書とリンク）
3. エクセルの見積書、発注書、請求書をそれぞれAccessに読込
4. Access内にて見積書テーブル、発注書テーブル、請求書テーブルに転記
5. 発注書Excel、請求書Excelにデータ吐き出し

＞　ユーザーサイドに負荷を掛けたくないので。
と言うことは、TOMMYさんだけがAccess触る、と言うことでいいのですよね？

[9] mixiユーザー 09月16日 15:39

レポートの様式の移行はこんな方法で作業しています。
泥臭いやり方ですが、結構、早く出来ます。

１　移行するレポートを印刷プレビュー表示してペイントに貼り付ける。

２　ペイントでレポートの部分を切り抜き保存する。

３　アクセスでレポートを新規作成して、２の保存したファイルをレポートの背景に設定する。

４　あとは背景の画像に合わせて文字、罫線などを分り易いよう赤色で書き込む

参考に画像を添付しました。

[10] mixiユーザー 09月16日 17:04

各位

まずは、解答いただいた方に感謝します。

coboz　ヽ(ﾟ_ ｡)ﾉさん

そうです。私だけがアクセスを触ります。構築、改造など。
ユーザーは、パラメーター入力、検索、出力のみです。
実は、当社は、タイ現法で、スタッフは全員タイ人なので、
難しいことは要求できません。

みぎかた。さん
ランタイム！おお、そうですよね。
エクセルに慣れた連中なので、ユーザーインターフェイスはエクセルでないとと、
決め付けていました。フォームとかわかりやすくすれば、アクセス一本でいけますね。

BASS-MANさん

まさに、これです。結局、チマチマ手作業でつくらなあかんわけだ。

[11] mixiユーザー 09月17日 21:26

私も最近Accessを始めたばかりなので的が外れていたらごめんなさい。
私はAccessで発注簿を作ったのですが、コマンドボタンをクリックすると
Excelで作った発注書に必要なデータが出力される･･･というものを作りました。
（他の社員さんはランタイム版を使っています。）
AccessからExcelへの出力はこちら↓を参考にしました。
http://www.ken3.org/vba/backno/vba002.html

[12] mixiユーザー 09月18日 10:43

キャンベルさん

ありがとうございます。

[15] mixiユーザー 09月18日 11:37

>>11 キャンベルさんと似たようなのを業務でしょっちゅう作っていますが　σ^^
　＃　データまとめたモノを得意先がExcelでクレ！言うもので

Dim Xls as excel.application
Dim BK as Excel.workbook
Dim ST as Excel.worksheet
Dim DB as DAO.database
Dim RS as DAO.recordset

set DB=currentDB
set RS=DB.openrecordset("なんちゃら")
Set Xls = CreateObject("Excel.Application")
set BK=Xls.Workbooks.Open FileName:="フルパス\エクセル名.xls"
set ST=BK.Worksheets("なんちゃら")
Xls.Visible = True

with ST
rs.movefirst
do until rs.eof
let .cells(??, ??)=rs.fields("なんちゃら")
let .cells(??, ??)=rs.fields("かんちゃら")
let .cells(??, ??)=rs.fields("ふんちゃら")
rs.movenext
loop
end with

rs.close
set rs=nothing
db.close
set db=nothing
set ST =nothing
BK.saveas filename:="フルパス\ファイル名.xls"
BK.close
set BK=nothing
Xls.close
set Xls=nothing

てなかんじでつ　^^

　＃　ミスタイプあったんで２回も！ww書き直しました。
　＃　大文字小文字は…VBeditorに貼りつければ自動的に治るかと　^^

ログインすると、みんなのコメントがもっと見れるよ