現在以下の仕様を満たすツール(フリー又は商用)を探しております。ご存知の方いらっしゃいましたらご紹介願います。
(条件)
・商用の場合は50万以内を希望
・Excel(マクロ)のみを用いて帳票出力を行いたい。
・帳票は数多くあるので、帳票ごとのテンプレートの定義を容易にしたい。

(テンプレート定義)
・事前にExcelに帳票の罫線を引き、テンプレートとしてExcelシートに保持
・テンプレートの各項目とCSVの項目をExcel上で関連付け
(帳票出力)
・CSVをExcelで読込み、関連付けしたテンプレートにデータを挿入
・帳票をExcelより印刷

以上、よろしくお願い致します。

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

A 回答 (1件)

fuel98さん、こんにちは。



お探しのツールですが、「CsvDocumenter」というソフトはいかがでしょうか。
Excelで帳票レイアウトを作成し、CSVデータと帳票レイアウトをExcelの定義で関連付けできますので、ご要望の要件を満たしていると思います。このツールを実際に利用して同じような仕様のシステムを作成したことがあります。

商用ツールですが体験版がありますのでお申込みしてみてはいかがでしょうか。

参考URL:http://www.rdsoftware.net/
    • good
    • 0
この回答へのお礼

inabayamaさま、早速のお返事ありがとうございます。
機能としてはHPを見た限り問題なさそうです。
一度、CsvDocumenterを入手して確認してみます。

どうもありがとうございました。

お礼日時:2009/05/19 16:04

このQ&Aに関連する人気のQ&A

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

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

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

Q大量のCSVファイルをExcel形式に変換する

お世話になります。
大量のCSV(.csvファイルをExcel(.xls)ファイルに変換したい
と考えております。
リネームソフトを使って、(.csv)⇒(.xls)の一括変換を
したところ、拡張子は確かに.xlsに変換されたのですが、
中身はCSVのままとなっておりました。
(↑ファイル名とシート名が同期を取っているので)

このCSVを確実にエクセル形式へと変換したいのですが、
どなた様かいいお考えをお持ちでしたら教えてください。
ググってみたところ、そういったアドインがあるのですが、
できれば費用をかけずに行いたいです…。

Aベストアンサー

こんにちは。

すでに、マクロが1つ出ているようですが、私も作ってみました。

これは、ファイルをマルチセレクトして、そのファイル群を、Excelのマクロにより、一気に、CSV から XLS(Excel標準フォーマット)変換するマクロです。出来上がったら、Explorer 等で、確認してみてください。

>アドインがあるのですが、
私の個人的な意見ですが、この程度のものは、アドイン化すべきものではありませんから、よほど付加価値をつけないと公開用のアドインにはなりませんが、一般的にみて、アマチュアの作ったアドインは、押しなべて、あまり出来の良いものが少ないように思います。ですから、なるべく、一般のマクロで解決するように望みます。


'---------------------------------------------------

'<標準モジュール>
Sub CSV2XLS()
  'CSV を XLS に変換するマクロ
  Dim myArray() As String
  Dim FileName As Variant
  Dim fn As Variant
  Dim xlFileName As String
  Dim xlFileBaseName As String
  Dim TextLine As String
  Dim FileNo As Integer
  Dim i As Long
  Dim k As Long
  '基本となるフォルダ
  'BASE_DIR=""なら、マクロのあるブックと同じ場所のフォルダ
  Const BASE_DIR As String = ""
  If BASE_DIR <> "" Then
   ChDir BASE_DIR
   Else
   ChDir ThisWorkbook.Path
  End If
  FileName = Application.GetOpenFilename("CSV ファイル(*.csv),*.csv", MultiSelect:=True)
  If VarType(FileName) = vbBoolean Then
   Exit Sub
  End If
  Application.ScreenUpdating = False
  For Each fn In FileName
   On Error GoTo NextStatus
   With Workbooks.Open(fn)
     xlFileName = Mid$(fn, 1, InStrRev(fn, ".") - 1) & ".xls"
     Do
      k = k + 1 '同名の時枝番をつける
      If k > 3 Then Exit Do
      If Dir(xlFileName) = "" Then
        .SaveAs xlFileName
        xlFileBaseName = Mid$(xlFileName, InStrRev(xlFileName, "\") + 1)
        Workbooks(xlFileBaseName).Close False
        k = 0
        Exit Do
        Else
        xlFileName = Mid$(fn, 1, InStrRev(fn, ".") - 1) & "_" & CStr(k) & ".xls"
      End If
     Loop
   End With
NextStatus:
  Next fn
  Application.ScreenUpdating = True
  MsgBox "終了しました。",64
End Sub

'---------------------------------------------------

こんにちは。

すでに、マクロが1つ出ているようですが、私も作ってみました。

これは、ファイルをマルチセレクトして、そのファイル群を、Excelのマクロにより、一気に、CSV から XLS(Excel標準フォーマット)変換するマクロです。出来上がったら、Explorer 等で、確認してみてください。

>アドインがあるのですが、
私の個人的な意見ですが、この程度のものは、アドイン化すべきものではありませんから、よほど付加価値をつけないと公開用のアドインにはなりませんが、一般的にみて、アマチュアの...続きを読む

Q携帯電話管理ソフトのCSV出力について

けいそくでんわ9を使っています。アドレス帳をCSVにエクスポーとすると電話番号の列は最初の0がとれたものになってしまいます。

エクセル上で0を復活させるにはどうしたらいいでしょうか?いちいち入力は面倒です。

よろしくお願いいたします。

Aベストアンサー

Excelで0を復活させることも出来ますが、それよりも、最初から0がとれないように
文字列で取り込んではいかがでしょうか?

Excelのバージョンにもよりますが・・・。
新しいBOOKで、
メニュー「データ」→「外部データの取り込み」→「データの取り込み」
を選択し、出てきたファイル選択の画面で、開きたいcsvを選び、「開く」ボタンを押します。

最初の画面では、そのまま「カンマやタブで・・・」を選択し、次のページへ。
そこで区切り文字(普通はタブかカンマ)を選び、次のページへ。
右上の列のデータ形式で、電話番号の列を文字列にします。

これで、電話番号の列が文字列のまま、頭の0つきで表示されると思います。

QエクセルデータからCSVファイルへの変換について

現在エクセルファイルにあるデータをCSVファイルへ変換する作業(エクセルでデータを作成して、保存時にCSVファイルを選択)をしているのですが、以下の例の場合うまく変換ができません・・・。
基本的な質問かもしれませんがどなたかご存知でしたら教えていただけると助かります。
よろしくお願いします。

【例】
        (エクセル) ⇒  (CSV)

うまくいく   12345     12345

うまくいかない 01234     1234


上記のようにエクセル上は文字列で管理されている
ケースだとCSVファイルに変換した時数列に変換
され、上記例のうまくいかないケースのように
頭に0がある場合CSVだと0が消えてしまいます。

よろしくお願いします。

Aベストアンサー

> CSVファイルに変換した時数列に変換

ちがいます。
いったんCSVで保存したものをエクセルで開いたときにそうなるのです。
CSVをエクセルでそのまま開かず、メニューの「データ」、「外部データの取り込み」、「すべてのファイル」、で取り込み、書式で文字列を選べばOKです。
あるいはCSVを拡張子を.TXTにしてテキストで取り込んでもOK

QCSVの項目の順序を入れ替えたり削除するようなフリーウェア

たとえば、あるアプリケーションから書き出したCSVが、名前、住所、電話、メール、性別 のばあい、まったく別のアプリケーションで取り込むために 住所、氏名、電話 の順にしたい、と思ったときそれを簡単に実現するフリーウェアなどはないでしょうか。エクセルで開いて順序を入れ替えればできなくはありませんが、煩雑で間違いの元です。毎日のルーチンワークなので、たとえば、アイコンにドラック&ドロップで出来上がるようなものです。取り込みと書き出しの形式をいろいろ変えられるようになっているのが好ましいです。

Aベストアンサー

う~ん、フリーソフトに頼るのも悪くはないですが
こうやってプログラムすると自分の欲しいものが
用意できて(いくらでも改造可能)いいですよ~

並び替えする前の列の数が3列あって
「3列目,1列目,2列目」の順に並び替えたい場合

Dim arySort(2)
arySort(0) = 2
arySort(1) = 0
arySort(2) = 1

' 引数(ドラッグアンドドロップしたファイル名)を取得
Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
strFileName = InputBox("並び替える CSV のファイル名を入力してください。")
Else
strFileName = objArgs(0)
End If

Const ForReading = 1,ForWriting = 2,ForAppending = 8 '定数の指定
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

Set objFileInput = objFS.OpenTextFile(strFileName, ForReading)
Set objFileOutput = objFS.CreateTextFile(strFileName & ".tmp.csv", True)

Dim aryColsSorted

Do Until objFileInput.AtEndOfStream
strLine = objFileInput.ReadLine
aryCols = Split(strLine, ",")
i = 0
ReDim aryColsSorted(UBound(aryCols))
For Each strCol In aryCols
aryColsSorted(arySort(i)) = strCol
i = i + 1
Next

objFileOutput.Write Join(aryColsSorted, ",") & vbCrLf
Loop

objFileOutput.Close
objFileInput.Close

う~ん、フリーソフトに頼るのも悪くはないですが
こうやってプログラムすると自分の欲しいものが
用意できて(いくらでも改造可能)いいですよ~

並び替えする前の列の数が3列あって
「3列目,1列目,2列目」の順に並び替えたい場合

Dim arySort(2)
arySort(0) = 2
arySort(1) = 0
arySort(2) = 1

' 引数(ドラッグアンドドロップしたファイル名)を取得
Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
strFileName = InputBox("並び替える CSV のファイル名を入力してくださ...続きを読む

QCSVファイルをEXCELに変換の自動化作業

CSVファイルをEXCELに変換の自動化作業
{CSVファイルをEXCELに変換するため、
excel  ツールバーよりデータ(D)→外部データの取り込み(D)→テキストファイルのインポート→ファイルの種類変更→全てのファイル→○○.csvのファイル指定→“,”の区切り選択、、ウィザードに従って変更し次へで進む→A1が指定されるのでそのまま完了→CSVがEXCELファイルに変換された。
参照したabc1.csvの名前に対して新しいabc1.xlsとなずけて登録する。これらの作業をMYドキュメントのhenkan ホルダーに入っているCSVファイルに同様に作業して同じくhenkan ホルダーに入れる。}
上記の{ }内の作業を何か,excelのVBAのマクロのようなもので実行することはできませんか。
やり方を教えてください。

Aベストアンサー

もともと、CSVとはカンマ区切りのはずですから、そうではないということなら、このコードは、違っています。こういう質問系掲示板は、質問者が分らない部分をお助けするような形で出来上がるものだと思いますので、回答者の回答を最初から否定するような発言は控えていだきたいと思いました。なお、フォルダーの中を一気に変換してしまうようなコードは、必ず変換後の様子を確認してからでなくてはなりませんので、それを確認していただくつもりでした。

私自身は、ここのカテゴリで、私は、一ゲンではありませんので、後々のためにコードを掲示しておきます。以下は、私が考えていたコードであって、その処理後の状態を保証するものではありません。

'<標準モジュール推奨>
Sub DirectryCSV2XLS()
  Dim myCSVFnames() As String
  Dim myCSVFname As String
  Dim xlFileName As String
  Dim i As Long
  Dim j As Long
  Dim n As Variant
  Dim msg As String
'=====================================
  '以下 フォルダー要設定
  Const MY_FOLDER As String = ""C:\Documents and Settings\<User>\My Documents\"
'=====================================
  If Left$(MY_FOLDER, 1) <> "\" Then MsgBox "フォルダーの設定の最後は、「\」が必要です。": Exit Sub
  If Dir(MY_FOLDER, vbDirectory) = "" Then _
   MsgBox "そのフォルダーは存在しません。", vbCritical: Exit Sub
 
  myCSVFname = Dir(MY_FOLDER & "*.csv")
  Do While myCSVFname <> ""
   ReDim Preserve myCSVFnames(i)
   myCSVFnames(i) = myCSVFname
   i = i + 1
   myCSVFname = Dir()
  Loop
  If i = 0 Then MsgBox MY_FOLDER & " には、CSVファイルが存在しません。", vbCritical: Exit Sub
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  For Each n In myCSVFnames
   xlFileName = Mid$(n, 1, InStrRev(n, ".csv")) & ".xls"
   If Dir(MY_FOLDER & "\" & xlFileName) = "" Then
     With Workbooks.Open(MY_FOLDER & "\" & n, Format:=2)
      .SaveAs MY_FOLDER & xlFileName
      Workbooks(xlFileName).Close False
      j = j + 1
     End With
   End If
  Next n
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  If i <> j Then msg = "既に" & CStr(i - j) & "個のCSV ファイルは、XLSに変換されています。"
  MsgBox i & "個のCSVの内、" & j & "個のファイルをXLSに変換しました。" & vbCrLf & msg
End Sub

もともと、CSVとはカンマ区切りのはずですから、そうではないということなら、このコードは、違っています。こういう質問系掲示板は、質問者が分らない部分をお助けするような形で出来上がるものだと思いますので、回答者の回答を最初から否定するような発言は控えていだきたいと思いました。なお、フォルダーの中を一気に変換してしまうようなコードは、必ず変換後の様子を確認してからでなくてはなりませんので、それを確認していただくつもりでした。

私自身は、ここのカテゴリで、私は、一ゲンではありませ...続きを読む

Q筆まめの名簿をCSVに落としましたが、CSVファイルが文字化けします。

筆まめの名簿を人に頼んでCSVファイルに落としてもらいましたが、これをエクセルで読もうとすると文字化けしてしまいます。エクセルでどのような設定をすればCSVファイルが読めるようになるのでしょうか。

パソコン初心者ですので分かりやすく教えて下さい。

Aベストアンサー

設定なしでExcelでcsvファイルは読むこと出来ます
他に、エディタなどでも可能です

文字化けするのは、何か外字など特殊な文字を使っている・・・と言うことはありませんか?
もしくは
http://support.microsoft.com/default.aspx?scid=kb;ja;821863
の現象とか??

そのままのファイルを筆まめにインポートした場合どうなりますか?
やはり文字化けしていますか?

QCSVをExcelに変換したい

お世話になります。

CSVファイルをExcelファイルに変換する場合、CSVファイルをExcelで開いて拡張子を「xls」もしくは「xlsx」を指定して保存すればよいかと思いますが、PCにExcelがインストールされてない環境の場合、Excelに変換することは不可能でしょうか。

今回、Accessにてツールを作成し、CSV(カンマ区切り)のデータを読み込もうとしておりますが、そのデータの中には単語の中にカンマが含まれているものがある為、普通にCSVをインポートしようとすると、ズレてしまいます。

なので、インポートする前準備としていったんExcelに変換したいと考えているのですが。。そのPCにExcelがインストールされてないと、やはり変換することは出来ないでしょうか。

もしくは、カンマ区切りのCSVファイルをタブ区切りに変換したりすることは出来ますでしょうか。

ご教授の程、宜しくお願い致します。

Aベストアンサー

>Accessにてツールを作成し、CSV(カンマ区切り)のデータを読み込もうとしておりますが、そのデータの中には単語の中にカンマが含まれているものがある為、普通にCSVをインポートしようとすると、ズレてしまいます。

毎回同じCSVのフォーマットだったら
(項目数やデータ型など)
一度インポートウィザードで進めて行って
設定ボタンから定義を保存し
次回からはその定義名を使用してインポートしては?
VBAならDocmd.transferText のヘルプにあるSpecificationNameに定義名を入れます。
・・・じゃダメかいな?

>インポートする前準備としていったんExcelに変換したい
CSVファイルを直接開くとExcelのお節介機能で
電話番号などの前ゼロがなくなったり、ハイフン付きのデータが日付と解釈されたり・・・
ということががあるので、拡張子CSVをTxtに変えてから
Excelで開こうとするとウィザードが立ち上がって・・・と出来ますが
結局のところ二度手間です。

ご参考まで。

QCSVとExcelの違い???

CSVというのがよくわからなくて過去ログを調べていたのですが、CSVというのは表計算ソフト共通のフォーマットで、カンマ区切りのデータなんですよね?

もしもここでSCVとExcelとの違いはなに?と質問したとしたら、その違いは表になっているかいないか、互換性があるかないかということなんでしょうか。

Aベストアンサー

CSV=>Comma Separated Valueの略
レコードの各フィールドを、カンマ区切りで列挙したデータのフォーマット形式。

>もしもここでSCVとExcelとの違いはなに?と質問したとしたら、

CSVはデータの形式でExcelはアプリケーション名です。

"CSVとExcelファイル形式(xls)の違いは?"という事なら、CSVファイルは汎用の
カンマ区切りのテキストデータですが、xlsファイルは文字の大きさ、フォント、
色、シート等の設定を含めたExcelのデータということです。CSVファイルと
比べて格納される情報の量が違います。

QCSV形式に変換

プログラミング(C言語)で、ファイルの内容をCSV形式に変換し、指定した出力ファイルに出力するプログラムを作成せよ。という課題がありましたが、
ファイルの内容をCSV形式に変換
がわかりません。どのようなプログラムをかいたらよいのでしょうか?

Aベストアンサー

#5です。
よく見たらフィールド内での入れ替えが居るようなので、
#5で書いたやり方ではできませんね。。。
#参考だしいいのかな。。。

読み込みを一行ずつにして、
中を入れ替えて・・・
という作業が必要になります。

QExcelの無料テンプレートをアレンジしたい

仕事でFAX送信する用に無料のテンプレートをダウンロードしましたが、
枠で囲ってある部分を黒からグレーに変更したいです。
枠の線の色を変えたいだけなのですが、その枠がクリックできず編集できません。

枠以外は普通にクリックで選択できて編集もできるのですが…

何か方法はあるでしょうか?

Aベストアンサー

たぶん、シートの保護がかかってるんでしょう。
解除すれば変更できると思います。
無料のテンプレートであれば、そのサイトのアドレスも乗せておけば、解決も早いと思いますよ?


人気Q&Aランキング

おすすめ情報