C# と VB.NET の質問掲示板

はじめて投稿させていただきます。

VisualStudio2005の頃にVBで作ったエクセルを起動するプログラムがあり無事に作動していたのですが、つい先日PCを取り替えたところ、問題なく開いてたエクセルが文字化けするようになってしまいました。
PCに入ってたOSはWindows10→Windows10で変わりはないのですが、Officeが2013から2019に変わりました。
64ビットのまま変わりません。
原因を切り出すつもりで、エクセルを開く部分だけを切り出してプログラムを作ってみたのですが、やはり同じ現象になります。

コードは下記の様な感じです。（レイトバインディングって言うんでしょうか？）

    Public xlSheets As Object
    Public xlBooks As Object
    Public xlBook As Object
    Public xlSheet As Object
    Public xlCells As Object
    Public xlApplication As Object
    Public Arr As New ArrayList

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        Dim path As String = ""
        path = "C:\Users\m-sugimoto\Desktop\エクセルテスト.xlsx"
        Excel_Original_Open(path, 1, True)
    End Sub

    Public Sub Excel_Original_Open(ByVal ファイルパス As String,
                                         ByVal シート名 As Object,
                                         ByVal Visibled As Boolean)

        xlApplication = CreateObject("Excel.Application")
        Arr.Add(xlApplication)
        xlApplication.DisplayAlerts = False
        If Visibled = True Then
            xlApplication.Visible = True
        Else
            xlApplication.Visible = False
        End If
        xlBooks = xlApplication.Workbooks
        Arr.Add(xlBooks)
        xlBook = xlBooks.Open(ファイルパス)
        Arr.Add(xlBook)
        xlSheets = xlBook.Worksheets
        Arr.Add(xlSheets)
        If IsNumeric(シート名) = True Then
            Dim num As Integer
            num = CType(シート名, Integer)
            xlSheet = xlSheets(num)
        Else
            xlSheet = xlSheets(シート名)
        End If
        xlSheet.select()
        Arr.Add(xlSheet)
        xlCells = xlSheet.Cells
        Arr.Add(xlCells)
    End Sub

もし改善する方法があれば嬉しいのですが。

また、レイトバインディングがダメなのか？とも思い
こちらのサンプルの「既存の Excel ブックを開く」のコードをそのまま使ってプログラムを書いてみました。

        ' Excel.Application の新しいインスタンスを生成する
        Dim xlApplication As New Excel.Application()
        Dim xlBooks As Excel.Workbooks

        ' xlApplication から WorkBooks を取得する
        xlBooks = xlApplication.Workbooks

        ' 既存の Excel ブックを開く
        xlBooks.Open("C:\Users\m-sugimoto\Desktop\エクセルテスト.xlsx")

        ' Excel を表示する
        xlApplication.Visible = True

しかし、今度は参照が間違っているのか
一行目の
　　　　Dim xlApplication As New Excel.Application()
で
「ハンドルされていない例外

System.InvalidCastException:型
Microsoft.Office.Interop.Excel.ApplicationClassのCOMオブジェクトをインターフェイス型Excel.Applicationにキャストできません。」

と出ます。

参照に追加したのは
・Microsoft Excel 9.0 Object Library
・Microsoft Office 16.0 Object Library
の２つです。

参照が間違ってるのでしょうか？

使っていたVisualStudio2015が古いのか？とも思い2019に入れ直してみましたが同じでした。

教えていただけると嬉しいです。

解決いたしました。

やってみた内容としましては

まずAccess（Office2000）はそのままで、Office2019をアンインストールせずに再インストールし
VisualStudio2019はアンインストールしてから再インストールしてみました。
これでVisualStudioの参照追加でExcelの新しいバージョンが出てくるかを見てみたのですが、古いバージョンしか無く、おそらくこれではダメだろうとは思いながら、プログラムを実行させてみたのですが、やはり改善されず。

次は先にAccess（Office2000）をアンインストールしてから、Office2019を再インストール（アンインストールせず）し、VisualStudio2019も再インストールし直して、VisualStudioの参照追加を確認すると、Excelの古いバージョンがすべて消えて、Excel 16.0 が現れました。
これでいけるかも？と思い

xlApplication = CreateObject("Excel.Application")
このコードだけ
xlApplication = CreateObject("Excel.Application.16")
と書き換えて実行してみたところ、問題なく開いてくれました。


魔界の仮面弁士さん
大谷刑部さん
ビール飲みさん
くまさん
大変お世話になり、ありがとうございました。
今回は非常に勉強になりました。

Accessに関しては新しいものを購入する事にします。