[XL2003] [BUG] Excel をオートメーションで起動すると "Old Format or Invalid Type Library" エラーが表示される

• メソッドに LCID (ロケール識別子) が必要です。
• 地域設定が英語以外の言語に設定されているコンピュータで、Excel 英語版を実行しています。

先頭へ戻る

• 使用しているバージョンの Office 用の Multilingual User Interface Pack をインストールします。
• InvokeMember を使用して Excel メソッドまたはプロパティを実行し、その呼び出しに対して CultureInfo を指定できるようにします。たとえば、次のコードは、CultureInfo を "en-US" に設定した状態で、Workbooks オブジェクトの Add メソッドを呼び出す方法を示しています。

  Dim oApp As New Excel.Application()
  oApp.Visible = True
  oApp.UserControl = True
  Dim oBooks As Object = oApp.Workbooks
  Dim ci As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("en-US")
  oBooks.GetType().InvokeMember("Add", Reflection.BindingFlags.InvokeMethod, Nothing, oBooks, Nothing, ci)
  

• Excel メソッドを呼び出す前に、CultureInfo を設定します。以下に例を示します。

  Dim oApp As New Excel.Application()
  oApp.Visible = True
  oApp.UserControl = True
  Dim oldCI As System.Globalization.CultureInfo = _
      System.Threading.Thread.CurrentThread.CurrentCulture
  System.Threading.Thread.CurrentThread.CurrentCulture = _
      New System.Globalization.CultureInfo("en-US")
  oApp.Workbooks.Add()
  System.Threading.Thread.CurrentThread.CurrentCulture = oldCI

先頭へ戻る

問題の再現手順

1. コンピュータのロケールが英語以外の言語に設定されていることを確認します。
   
   Windows 2000 の場合
   1. コントロール パネルで、[地域のオプション] をダブルクリックします。
   2. [全般] タブでロケールを選択し、[OK] をクリックします。
   
   Windows XP または Windows Server 2003
   1. コントロール パネルで、[地域と言語のオプション] をダブルクリックします。
   2. [地域オプション] タブでロケールを選択し、[OK] をクリックします。
2. Microsoft Visual Studio .NET を起動します。
3. [ファイル] メニューの [新規作成] をポイントし、[プロジェクト] をクリックします。[新しいプロジェクト] ダイアログ ボックスで、[プロジェクトの種類] の下の [Visual Basic プロジェクト] をクリックします。[テンプレート] の下の [Windows アプリケーション] をクリックし、[OK] をクリックします。デフォルトで Form1 が作成されます。
4. [表示] メニューの [ツールボックス] をクリックし、Form1 にボタンを 1 つ追加します。
5. [Button1] をダブルクリックして、フォームのコード ウィンドウを表示します。
6. コード ウィンドウには、次のコードが表示されます。

   Private Sub Button1_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles Button1.Click
   End Sub
   					

   これを次のコードで置き換えます。

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim oApp As Object
       Dim oDoc As Object
       oApp = CreateObject("Excel.Application")
       oApp.Visible = True
       oDoc = oApp.Workbooks.Add
       oDoc.Close()
       oApp.Quit()
       oDoc = Nothing
       oApp = Nothing
   End Sub
   					

7. 次の行を Form1 コード モジュールの先頭に追加します。

   Option Strict Off

8. F5 キーを押してプログラムをビルドして実行します。
9. エラーを生成するには、[Button1] をクリックします。次の行でエラーが発生します。

   oDoc = oApp.Workbooks.Add
   					

先頭へ戻る