[リストへもどる]
一括表示

投稿時間:2003/11/26(Wed) 17:40
投稿者名:Tyata
URL :
タイトル:
教えて下さい。
VB6.0SP5でプログラムを開発しているものです。
プログラムの処理の中でShell文でExcelを立ち上げてCSVファイルを起動する処理を
組み込んでいるのですが
プログラムの指定でDドライブにあるCSVファイルを立ち上げる際に
「ファイル名又は保存場所が見つかりません」というエラーがでて
CSVファイルを立ち上げることが出来ません。
CSVのファイルの場所指定をCドライブに指定しなおしたところ何故かCSVファイルが立ち上がります。
できればDドライブにCSVファイルを置いておきたいので
Dドライブでも起動できるようにしたいのですが・・・
解決策を宜しくお願い致します。

開発状況
開発PCのOS  Windows2000SP4
VBのVersion VB6.0SP5
Excelの場所 D:\Program Files\Microsoft Office2000\Office
INIファイルでCSVファイルやExcelの場所等諸設定を指定

投稿時間:2003/11/26(Wed) 19:14
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: 教えて下さい。
ファイルのパスの指定が間違っていませんか?
その部分のコードを投稿願います。

投稿時間:2003/11/27(Thu) 10:10
投稿者名:Tyata
URL :
タイトル:
Re^2: 教えて下さい。
> ファイルのパスの指定が間違っていませんか?
> その部分のコードを投稿願います。

花さま
返事が送れて申し訳ございません
Excelのコードですが公開いたします。

Dim ExcelPass, cmdline$
ExcelPass = Shell(Part01 & " " & DefOutDir01 & DefOutFile01, vbNormalFocus)

Part01の中身
D:\Program Files\Microsoft Office2000\Office\Excel.exe
DefOutDir01の中身
D:\Program Files\プログラムとCSVファイルが格納されているフォルダ\
DefOutFile01の中身
CSVファイル名.csv
です宜しくお願い致します。

投稿時間:2003/11/27(Thu) 11:15
投稿者名:nanashi
Eメール:
URL :
タイトル:
Re^3: 教えて下さい。
そのパスが間違っていないのであれば下記を試して見て下さい。

  ExcelPass = Shell("""" & Part01 & """ """ & DefOutDir01 & DefOutFile01 & """", vbNormalFocus)

投稿時間:2003/11/27(Thu) 11:39
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: 教えて下さい。
そのコードではどのようにパスを設定しておられるのか確認できません。
変数で設定しているなら、変数にパスを設定している部分を投稿して
頂かないと確認できません。(変数の中身は***と言われても!!)
フォルダー名に空白が使用されていますが、その辺の問題点・対策は
されているのですか?
又、OS等も記入して頂かないと
一度ここの 他のプロセスとの連携 の 他の実行形式(*.EXE)ファイルの実行 や
関連付けされたファイルを起動 を見て下さい。


# 書いている間に先に回答して頂いたようですね。削除するのも何なので

投稿時間:2003/11/27(Thu) 12:01
投稿者名:Tyata
URL :
タイトル:
Re^4: 教えて下さい。
> そのコードではどのようにパスを設定しておられるのか確認できません。
> 変数で設定しているなら、変数にパスを設定している部分を投稿して
> 頂かないと確認できません。(変数の中身は***と言われても!!)
> フォルダー名に空白が使用されていますが、その辺の問題点・対策は
> されているのですか?
> 又、OS等も記入して頂かないと
> 一度ここの 他のプロセスとの連携 の 他の実行形式(*.EXE)ファイルの実行 や
> 関連付けされたファイルを起動 を見て下さい。
>
>
> # 書いている間に先に回答して頂いたようですね。削除するのも何なので

花さま
申し訳ございません
今後気をつけます。

nanashiさま
指摘されたコードに変更すると
無事に起動することが出来ました
ありがとうございました。