• ベストアンサー

VB6(SP5) と XP について

こんにちは。宮本と申します。 VB6(SP5)で、プログラミングをしております。 Windows2000のプログラムをそのままWindowsXPで 実行させようとすると 1.「コンバイルエラー プロジェクトまたはライブラリが見つかりません」  と、エラーが発生します。 具体的には、 Dim wBuf As String wBuf = "A" & Chr(13) & "B" の Chr の所です。 2.プロジェクトの参照設定で、  「参照不可:Microsofr Excel 9.0 Object Libray」となっています。  Excelのファイルに落とせないのでしょうか ? よろしくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • TAGOSAKU7
  • ベストアンサー率65% (276/422)
回答No.3

おそらくOffice2000がインストールしてあるマシンで開発したものを、OfficeXPがインストールされているマシンに環境を移行したからでしょう。 もしそうなら Microsofr Excel 10.0 Object Libray を参照しなおしたらできます。 また、Excelのバージョンを無視して対応したいのであれば、逆に参照を使用しないで開発をしたらよいです。 具体的には Dim xlApp As Excel.Application が Dim xlApp As Object となります。 Set xlApp = New Excel.Application が Set xlApp = CreateObject("Excel.Application") となります。 あとは、コーディング方法は基本的に一緒です。 ただし、Excelのタイプライブラリを使用しないことになるので、Excel固有の定数値は使用できません。コーディングの際には定数値を自分で調べて、書き上げなければなりません。 しかもピリオドを打ったときに現れる入力候補のメソッドやプロパティなども出ません。 わたしの場合は、基本的に参照設定をしてコーディングを始め、最終段階で参照をはずし、CreateObjectに変換してしまいます。

参考URL:
http://oshiete1.goo.ne.jp/kotaeru.php3?q=491741
m-toshi
質問者

お礼

ご回答をありがとうございました。 特に、具体的なプログラミングは大変ありがたいです。

その他の回答 (2)

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.2

こんにちは。maruru01です。 付けたし程度ですが。 参照不可になっている項目のチェックを外せば、動きます。 もちろん、外したファイルへの参照は出来ません。 また、ExcelとかAccessとかのライブラリはバージョン違いなどがよくあるので、いったん参照不可を外してから、あらためてそのマシンのバージョンのファイルを参照し直せば良いでしょう。 もちろん、バージョン違いがダメな場合は、正しいバージョンのファイルをインストールしなければいけませんが。

m-toshi
質問者

お礼

ご回答をありがとうございました。 参考にさせていただきます。

  • taknt
  • ベストアンサー率19% (1556/7783)
回答No.1

参照不可になっているのは ライブラリがないからだと思います。 VBのランタイムとか すべてインストールされましたか?

m-toshi
質問者

お礼

ご回答をありがとうございました。

関連するQ&A

  • XPでエラー

    こんにちは。宮本と申します。 先日、2つの質問を 一度にしてしまいましたので、改めて質問をさせて 下さい。 VB6(SP5)で、プログラミングをしております。 Windows2000のプログラムをそのままWindowsXPで 実行させようとすると 「コンバイルエラー プロジェクトまたはライブラリが見つかりません」 と、エラーが発生します。 具体的には、 Dim wBuf As String wBuf = "A" & Chr(13) & "B" の Chr の所です。 VB6(SP5)が、XPに対応している事は、確認済みです。 よろしくお願い致します。

  • ACCESSで参照設定が参照不可になってしまう

    ACCESSのプロジェクトの参照設定で、  「参照不可:Microsofr Excel 10.0 Object Libray」となっていたので、「Microsofr Excel 9.0 Object Libray」を参照設定し、正常に使用できていましたが、ときどき自動的に「参照不可:Microsofr Excel 10.0 Object Libray」になってしまい、使えなくなります。 何が原因で勝手に参照不可になってしまうのでしょうか。

  • VB6.0へのExcel導入

    ずいぶん前ですけど、VBにExcelのグラフを出しかたを質問したのですが、今回はVB6.0で出したいのですが…前回と同様にやろうとしてもできないです。どなたか知りませんか? ちなみに前回のは下記のとおりです。 VB.NETでExcelを利用するには、.NETの[参照の追加]ダイアログボックスを使って、必要なオブジェクトライブラリへの参照をプロジェクトに追加します。 [プロジェクト] → [追加の参照] → [追加の参照]ダイアログボックス → [COM]タブ → [Microsoft Excel.10.0 Object Library]を選択 → [はい] 次にExcelアプリケーションオブジェクトを生成します。 Dim ExlApp AS Excel.Application Dim ExlBook AS Excel.Workbook Dim ExlSheet AS Excel.Worksheet Dim ExlRange AS Excel.Range ExlApp = CreateObject("Excel.Application") ExlBook = ExlApp.Wookbooks.Add ExlSheet = ExlBook.Worksheets(1) ExelSheet.Application.Visible = True

  • VB2008 エクセル出力

    VB2008 エクセル出力 教えていただけると助かります VB6.0使用時にエクセル出力をするために下記のようなプログラムで出力していました ※「Microsoft Excel 9.0 Object Library」を参照 Dim xlApp As EXCEL.Application Dim xlBook As EXCEL.Workbook Dim xlsheet As EXCEL.Worksheet Dim File As String File = App.Path + "\EXCEL\" + "フォーム.xls" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(File) Set xlsheet = xlBook.Worksheets("テスト") xlsheet.Range("A1") = "テスト" 'フォルダ作成 If Dir("D:\", vbDirectory) = "" Then Call Mkdirs("D:\テスト") 'Worksheetを名前をつけて保存します。 xlApp.DisplayAlerts = False xlsheet.SaveAs "D:\テスト\テスト.xls" xlApp.Quit Set xlApp = Nothing Set xlBook = Nothing Set xlsheet = Nothing VB2008の場合だとどのように書けば同じように動きますか ※色々試してみましたがダメでした 「Microsoft Excel 12.0 Object Library」を参照しています

  • VB5.0からExcel97にデータを書き込むとき

    VB5.0からExcel97にデータを書き込んだりする場合、最初にVBのほうで どういう設定をしなければいけないのでしょうか? 参照設定でMicrosoft Excel 8.0 Object Libraryを選択していて 以下の文をVBに設定しています。 Dim ExcelApp As Object Set ExcelApp = CreateObject("Excel.Application") これだけだと、起動したときに"Excel.Application"の部分が 「型が一致しません」でエラーになります。 何か足りない設定があるのでしょうか? 説明がわかりにくいかと思いますが、どうしたらいいかなかなか わかりません。どうぞよろしくお願いします。

  • VB2008でEXCELのセルデータが読めません

    VB2008でEXCELを開き、セルの内容を読み込もうとしましたが読み込めません。 EXCELのオープンとセルの読み込みは下記により行いました。 Dim strExcelFile As String 'エクセルファイル Dim xlApp As Excel.Application       Dim strExcelData As String xlApp = CreateObject("Excel.Application") xlApp.Workbooks.Open(Filename:=strExcelFile) xlApp.Visible = True 'EXCELは表示されている strExcelData = xlApp.Cells(3,4).ToString EXCELの3列4行には数値が入っていますが、strExcelDataには"System._ ComObject"というデータが読み込まれています。 ToStringは、これをつけないとデータの型が違うとエラーになります。 EXCELのデータは文字型と思っていましたがこれも判りません。 VBの参照で「Microsoft Excel9.0Object Library」をクリックしてOKしていますが、チェックマークなどはつかず、正しく反映されたかについては未確認です。 原因の見当が皆目つかず困っています。 誤って「ディジタルライフ」-「その他」に同じ内容で投稿しています。

  • VB2008でEXCELのセルデータが読めません

    VB2008でEXCELを開き、セルの内容を読み込もうとしましたが読み込めません。 EXCELのオープンとセルの読み込みは下記により行いました。 Dim strExcelFile As String 'エクセルファイル Dim xlApp As Excel.Application       Dim strExcelData As String xlApp = CreateObject("Excel.Application") xlApp.Workbooks.Open(Filename:=strExcelFile) xlApp.Visible = True 'EXCELは表示されている strExcelData = xlApp.Cells(3,4).ToString EXCELの3列4行には数値が入っていますが、strExcelDataには"System._ ComObject"というデータが読み込まれています。 ToStringは、これをつけないとデータの型が違うとエラーになります。 EXCELのデータは文字型と思っていましたがこれも判りません。 VBのMicrosoft Excel9.0Object LibraryをクリックしてOKしています。 原因の見当が皆目つかず困っています。

  • VB2005でExcel2003とExcel2007

    初めまして、VB2005でExcelに出力するプログラムの開発を 行っているのですが、大変困っています。 どなたか教えて頂けないでしょうか。 VB2005の参照設定でMicrosoft Excel12.0 Object Library指定 してExcel2007をインストールしているパソコンでは Excelに出力できますがExcel2003を インストールしているパソコンではExcelに出力できません。 又、VB2005の参照設定でMicrosoft Excel11.0 Object Library指定 してExcel2003をインストールしているパソコンでは Excelに出力できますがExcel2007を インストールしているパソコンではExcelに出力できません。 Excel2003・Excel2007どちらがインストール されていてもExcelに出力できるプログラムを作成したいの ですが、何か方法はないでしょうか。 サンプル等があるHPがありましたら教えてください。

  • vb.netからエクセルファイルを開きたいのですが

    vb.netからエクセルファイルを開きたいのですが、 オフィス2010をインストールしてから動作しなくなりました。 ------------------------------------------------------------------------ Imports Microsoft.Office.Interop Sub ExcelOpen() Dim ExcApp As Excel.Application Dim book As Excel.Workbook Dim MyPath As String MyPath = "C:\Excel.xlsm" ExcApp = CreateObject("Excel.Application") ExcApp.Visible = True book = ExcApp.Workbooks.Open(MyPath) ExcApp = Nothing End Sub ------------------------------------------------------------------------ これで2007の時は起動してたのですが、2010だとダメです。 Microsoft Excel 14.0 Object Libraryに参照設定しています。 実行すると、 ExcApp.Visible = True の部分で サーバーによって例外が返されました。 (HRESULT からの例外: 0x80010105 (RPC_E_SERVERFAULT)) となります。 どうすればいいでしょうか?ご教授よろしくお願いします。

  • Windows7 & VB6(SP6) & office2010(Bata)

    WindowsXP & VB6(SP5) & office2003の組み合わせで プログラミングをしておりました。 Windows7 & VB6(SP6) & office2010(Bata)の組み合わせで テストをしております。 Dim wApp As Excel.Application ここで、 コンパイルエラー ユーザー型は定義されていません。 と、なってしまいます。 解決方法を教えて下さい。宜しくお願い致します。

専門家に質問してみよう