『ファイルへ出力』に関して

質問

ＶＢ６.０で大量に『ファイルへ出力』を行う場合、毎回ファイル名を入力するのが大変です。
これをＶＢでファイル名を設定する方法はないのでしょうか？

宜しくお願い致します。

回答No.6

kiki_s

＞教えて頂いたのは出力をイメージで保存する場合だと思います。
＞そうではなくて、ドライバーのポートをファイルに保存するに設定をしている場合です。

意地悪を書く訳ではありませんが、質問の趣旨が曖昧です。

＞これをＶＢでファイル名を設定する方法はないのでしょうか？
ＶＢでのアプリケーションと判断

>多分、私の使用しているＣＡＤはあまり使用されている方はいらっしゃらないかと思いますのでエクセルでＶＢＡでプリントする場合は・・・
ＶＢＡでＣＡＤをコントロールして印刷すると判断

＞エクセルでよろしいので印刷で『ファイルへ出力』する場合は
＞どの様にするのでしょか？
エクセルでの印刷でファイルへ出力の方法と判断

訳が分からないまま質問内容が変わっているように思えますが？
一体、何をどうしたいのか、具体的に質問された方がいいのではないでしょうか？
ＣＡＤ名も記載されませんし、質問内容に対する情報があまりにも漠然としています。
これでは何を求めているのか分かりませんよ。
（答えられるかは別問題ですが）

補足

過去の回答者様の返答でイメージ保存ではなく、ファイルに保存にしたいと記載したつもりですが・・・・・

ＣＡＤに関してお答えを頂けないようでしたのでエクセルの場合は？と思っただけです。

ＣＡＤ名がそんなに必要と思われる質問でではないですが・・・・
執着される意味が理解できません。

答えは得られないようですので宜しいです。

ありがとうございました～

回答No.5

kiki_s

>Worksheets("Sheet1").PrintOut
>など行ってもファイル名は聞いてくると思います。
>このファイル名をＶＢＡで設定したいと思っております。

要はＣＡＤなんて関係ねぇ～・・・という事かしら？
では、エクセルの印刷時ファイル出力という事で。

確かにPrintOutだけだと聞いてきます。
私のマシンのエクセルは２００７ですので、２００７より古いバージョンで動作するかは分かりませんが、
エクセルで印刷時に『ファイルへ出力ファイル名設定』をＶＢＡで行う場合、
PrintOutメソッドのパラメータで、PrintToFileとPrToFileNameを使います。

下記のようにすれば出来ると思います。

'パスを含むファイル名
PrintoutFile = "C:\Test"

'印刷（ファイル出力）
Worksheets("Sheet1").PrintOut PrintToFile:=True,PrToFileName:=PrintoutFile

上記の場合、Ｃドライブ直下に「Test」というファイルが出来ます。

詳細は下記を参考にして下さい
http://msdn.microsoft.com/ja-jp/library/microsoft.office.tools.excel.worksheet.printout(VS.80).aspx

これでいいのかな？

補足

御返答、ありがとうございます。

多分、ＣＡＤには直接関係はないかと思います。

教えて頂いたのは出力をイメージで保存する場合だと思います。

そうではなくて、ドライバーのポートをファイルに保存するに設定をしている場合です。

詳しくは
http://www.atmarkit.co.jp/fwin2k/win2ktips/086saveinfo_to_file/086saveinfo_to_file.html

宜しくお願い致します。

回答No.4

kiki_s

>多分、私の使用しているＣＡＤはあまり使用されている方はいらっしゃらないかと思いますのでエクセルでＶＢＡでプリントする場合は
>どの様に設定をするのでしょうか？

だとすれば余計分かりません。
ＣＡＤ名も公開できないのでは、「砂浜で米つぶを探す」ようなものです。
内容が分からないものに回答は書けません。
あくまで参考意見程度です。
まぁ、ＣＡＤ名が分かっても、多分答えられないでしょうね。
あまり使用されていないＣＡＤとの事ですから。

先にも書きましたが、お使いのＣＡＤがエクセルのようにマクロやＶＢＡ（ＶＢ）で、
印刷その他がコントロール出来るのであれば、
ファイル名の入力も可能なはず。
もちろん、独自のコマンドでしょうし、
ユーザでなければ分からない部分です。

補足

エクセルでよろしいので印刷で『ファイルへ出力』する場合は
どの様にするのでしょか？

Worksheets("Sheet1").PrintOut

など行ってもファイル名は聞いてくると思います。
このファイル名をＶＢＡで設定したいと思っております。

ＣＡＤにはあまり関係がないかと思いますが・・・・・

宜しくお願い致します。

回答No.3

kiki_s

>ＣＡＤの開発用はあり、それを使用して指定した位置の印刷は可能なのです。

ＣＡＤ自体、多種多様ですから何とも言い難いところですが、
ＣＡＤのコントロール開発環境は整っている訳ですね？
お使いのＣＡＤがエクセルのようにマクロやＶＢＡ（ＶＢ）が使えるなら、
ファイル名の入力も可能なはず。
もちろん、独自のコマンドでしょう。
何というＣＡＤなんでしょうね。
（分かっても回答出来ないでしょうけど）

ＣＡＤ自体一般ユーザ全てが持っている訳ではないでしょうから、
該当するＣＡＤの正規ユーザでなければ詳細は分からないでしょう。

補足

kiki_s様　御返答、ありがとうございます。

多分、私の使用しているＣＡＤはあまり使用されている方はいらっしゃらないかと思いますのでエクセルでＶＢＡでプリントする場合は
どの様に設定をするのでしょうか？

宜しくお願い致します。

因みにＣＡＤの正規ユーザーですが、サポート期間が終了して有料になっております。

回答No.2

kiki_s

ＣＡＤの出力をファイルとしてファイル名をＶＢ側から自動入力するという事でしょうか？

結論からいえば不可能でしょう。
もちろん出来ない訳ではありません。
お使いのＣＡＤが外部からコントロール出来れば可能です。
例えばAutoCAD(LT)はVBが使えませんが、フリーやシェアのAutoCAD用のAPIやDLLがあります。
これを利用すると外部からAutoCADを制御出来るようになります。

CAD、VBとも独自に動作していると考えれば、
データの引き渡しは通常の方法では出来ないでしょう。

補足

御返答、ありがとうございます。

ＣＡＤの開発用はあり、それを使用して指定した位置の印刷は可能なのです。
しかし、ファイル保存したく、ポートを『ファイルへ出力』に変更しますと
ファイル名を入力しなければなりません。この入力を自動で行いたいのです。

宜しくお願い致します。

回答No.1

noname#111860

> これをＶＢでファイル名を設定する方法はないのでしょうか？

変数に格納されたファイル名で書き込む、という処理にすれば
手動か自動かといったのは特に問題はないと思いますが、

今、どんなファイルを出力しようとしています？
大量にファイル出力する場合、何もいわれなければ、
ファイル名の生成ロジックも規則をつけて自動でやりませんか？

補足

早速の御返答、ありがとうございます。

ＣＡＤで図面を出力したいと思っております。
沢山ある任意の箇所を沢山プリントしたいとのですが、
ファイル名に任意のポイント名を付けたいと思っております。

ポートを『ファイルへ出力』にしますとファイル名を入力を要求されて
しまい、沢山ある場合、大変ですのでＶＢで設定できないか思い御質問いたしました。

ファイル名は作成できるのですが、ファイル名の要求に対して入力をＶＢでやりたいと思っております。

宜しくお願い致します。