過去ログ

                                Page     491
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼他のアプリで作成したファイルを開くには?  みかん 02/12/26(木) 13:12
   ┗Re:他のアプリで作成したファイルを開くには?  JuJu 02/12/26(木) 14:57
      ┣Re:他のアプリで作成したファイルを開くには?  みかん 02/12/26(木) 16:22
      ┃  ┗Re:他のアプリで作成したファイルを開くには?  JuJu 02/12/27(金) 13:12
      ┗JuJuさんへ  Jaka 02/12/26(木) 17:08
         ┗Re:Jakaさんへ  りん 02/12/26(木) 21:52
            ┗Re:Jakaさんへ  Jaka 02/12/27(金) 10:56

 ───────────────────────────────────────
 ■題名 : 他のアプリで作成したファイルを開くには?
 ■名前 : みかん
 ■日付 : 02/12/26(木) 13:12
 -------------------------------------------------------------------------
   はじめまして。宜しくお願いします。
エクセルでコマンドボタンを作成し、他アプリで作成したファイルを
開きたいのですが、方法をどなたかご教授下さい。
例えば、エクセルのコマンドボタンをクリックするとワードで作成した
文書が開くようにしたいのですが、、また開くと同時にエクセル自体は
閉じてしまいたいのですが、、、
宜しくお願い致します。
 ───────────────────────────────────────  ■題名 : Re:他のアプリで作成したファイルを開くには?  ■名前 : JuJu <juju-bbs@su-u.com>  ■日付 : 02/12/26(木) 14:57  -------------------------------------------------------------------------
   みかんさん、こんにちはぁ

>はじめまして。宜しくお願いします。
>エクセルでコマンドボタンを作成し、他アプリで作成したファイルを
>開きたいのですが、方法をどなたかご教授下さい。

今、何処までできてますか?

他アプリの起動でしたら、これが参考になると思います。
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9735;id=Excel

>例えば、エクセルのコマンドボタンをクリックするとワードで作成した
>文書が開くようにしたいのですが、、また開くと同時にエクセル自体は
>閉じてしまいたいのですが、、、

終了は
Application.Quit
で良いのかな。

ではではぁ
 ───────────────────────────────────────  ■題名 : Re:他のアプリで作成したファイルを開くには?  ■名前 : みかん  ■日付 : 02/12/26(木) 16:22  -------------------------------------------------------------------------
   早速ご回答ありがとうございました。
リンク先を参照させて頂きましたが、どの部分が該当するのか良く
わかりませんでした。すいません初心者なもので。。
現在は、大変恥ずかしながらコマンドボタンの作成しかできており
ません。
今一度、ご教授頂ければ幸いです。

▼JuJu さん:
>みかんさん、こんにちはぁ
>
>>はじめまして。宜しくお願いします。
>>エクセルでコマンドボタンを作成し、他アプリで作成したファイルを
>>開きたいのですが、方法をどなたかご教授下さい。
>
>今、何処までできてますか?
>
>他アプリの起動でしたら、これが参考になると思います。
>http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9735;id=Excel
>
>>例えば、エクセルのコマンドボタンをクリックするとワードで作成した
>>文書が開くようにしたいのですが、、また開くと同時にエクセル自体は
>>閉じてしまいたいのですが、、、
>
>終了は
>Application.Quit
>で良いのかな。
>
>ではではぁ
 ───────────────────────────────────────  ■題名 : Re:他のアプリで作成したファイルを開くには?  ■名前 : JuJu <juju-bbs@su-u.com>  ■日付 : 02/12/27(金) 13:12  -------------------------------------------------------------------------
   みかんさん、こんにちはぁ

作ったコマンドボタンをダブルクリックすると

Private Sub CommandButton1_Click()

End Sub

が表示されると思います。
(名前は違うかも)
その中に

Private Sub CommandButton1_Click()
  Dim varFileName As Variant

  varFileName = Application.GetOpenFilename("すべてのファイル(*.*),*.xls")
  If varFileName <> False Then
    '' 関連付け実行
    Shell Environ$("COMSPEC") & " /C START """ & varFileName & """ """ & varFileName & """", vbHide
  End If
End Sub

です。
最後に
  Application.Quit
を入れると、Excel終了です。

ではではぁ
 ───────────────────────────────────────  ■題名 : JuJuさんへ  ■名前 : Jaka  ■日付 : 02/12/26(木) 17:08  -------------------------------------------------------------------------
   JuJuさん みかんさん こんにちは。

>他アプリの起動でしたら、これが参考になると思います。
>http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9735;id=Excel

上のアドレス私の所からだと、
「検索中のページには問題があるため表示できません。」
と、なってしまいますけど。
込んでるだけだと思うんですが、一応おしらせ基能付Jakaでした。
 ───────────────────────────────────────  ■題名 : Re:Jakaさんへ  ■名前 : りん <rin_doggie@hotmail.com>  ■日付 : 02/12/26(木) 21:52  -------------------------------------------------------------------------
   Jaka さん、JuJuさん みかんさん こんばんわ

>>http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9735;id=Excel
>「検索中のページには問題があるため表示できません。」
>と、なってしまいますけど。
>込んでるだけだと思うんですが、一応おしらせ基能付Jakaでした。

 21時50分現在、無事表示されました。
 ───────────────────────────────────────  ■題名 : Re:Jakaさんへ  ■名前 : Jaka  ■日付 : 02/12/27(金) 10:56  -------------------------------------------------------------------------
   ▼りん さん:
>>>http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9735;id=Excel
>>「検索中のページには問題があるため表示できません。」
>>と、なってしまいますけど。
>>込んでるだけだと思うんですが、一応おしらせ基能付Jakaでした。
>
> 21時50分現在、無事表示されました。

みなさま、こんにちは。
りん さんお久しぶりでございます。

どうも私の所のネットワークって言うのかサーバー経由の性でしょうか解りませんが、その性でつながらないみたいですね。

レスどうもありがとうございました。
もうちょっとここに出てきてね!
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 491