tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルエクセルの機能を使ってふりがな取得するとエクセルが起動する
記事No13873
投稿日: 2009/07/22(Wed) 17:53
投稿者うまづら
ソフト VB6
OS WinXP

いつも色々参考にさせていただいています

今回 テキストボックスに入力した漢字のふりがなを表示させる
プログラムを作ったのですが、プログラムを組んだパソコンで
作動させると うまくいきましたが、違うパソコンで動かすと
作動自体はきちんとするのですが なぜかエクセルが起動して
しまいます。

プログラムコードはこちらのサンプルとほぼ同じで

  Dim xlApp As Object
  Dim namae As String
  Dim kana As String

  Set xlApp = CreateObject("Excel.Application")

   namae = Replace(StrConv(Text1.Text, vbWide), " ", "")
 
  kana = xlApp.GetPhonetic(namae)
 
  Text2.Text = StrConv(kana, vbHiragana)
 
  Set xlApp = Nothing

参照設定などもきちんとしました

エクセルのバージョンが
きちんと作動する方は エクセル2000 で
作動するがエクセルが起動するのが オフィスエクセル2007です
OSはどちらも XPです

OSの問題なのか エクセルの問題なのか VBの問題なのか
行き詰まってしまったので どなたかご教授下さい

あと参照設定のライブラリは
マイクロソフトエクセル9.0オブジェクトライブラリと書いてある
ある物にチェックをしています

よろしくお願いします

[ツリー表示へ]
タイトルRe: エクセルの機能を使ってふりがな取得するとエクセルが起動する
記事No13874
投稿日: 2009/07/22(Wed) 19:13
投稿者魔界の仮面弁士
> 参照設定などもきちんとしました
その割には、(アーリーバインドではなく)レイトバインドのコードになっているようですが…。
>   Dim xlApp As Object
>   Set xlApp = CreateObject("Excel.Application")
もしもこのコードで実装するのであれば、追加の参照設定は不要でしょう。


> なぜかエクセルが起動してしまいます。
CreateObject した以上、Excel そのものは起動する事になりますよ。


ただし、Visible プロパティを True に変更しない限り、それは Excel が
2000 であれ 2007 であれ、非表示のまま起動されるはずです。もし、Excel が
表示されてしまうという意味であれば、Excel のアドインや XLStart などに
Excel を表示させるマクロが含まれて居ないかどうかを確認してみてください。

[ツリー表示へ]
タイトルRe^2: エクセルの機能を使ってふりがな取得するとエクセルが起動する
記事No13879
投稿日: 2009/07/22(Wed) 22:18
投稿者うまづら
ご教授ありがとうございます。

このあたりに関しては ほとんど知識がないので
こちらのサンプルを参考にほとんど丸写しでした
注意事項として参照設定があったので 参照も入れて
これで 大丈夫と思っていたんですが

>CreateObject した以上、Excel そのものは起動する事になりますよ。
スイマセン知りませんでした

しかしVisible プロパティは一切記述していないので
その場合 表示されないんですよね

>もし、Excel が表示されてしまうという意味であれば
この内容からすれば、私の質問は起動はしてるけど 表示はされていない
ということになると思います。

まずはちょっとExcelアドインとXLStartあたりを調べてみます
ありがとうございます。

[ツリー表示へ]