|
▼smith さん:
こんにちは。
まず配布元のAccessの、エクセルへの参照設定を外します。
次に「Dim」「Public」等で宣言している変数でエクセルのオブジェクトを
使っているものを全て「Object型」で宣言します。
例) Dim xlsApp As New Excel.Appclication
Dim xlsWkb As Workbooks
Dim xlsSht As Worksheet
Dim xlsRange As Range
↓
Dim xlsApp As Object
Dim xlsWkb As Object
Dim xlsSht As Object
Dim xlsRange As Object
「Application」をセットしている変数(上記ではxlsApp)の記述を
Set xlsApp = CreateObject("Excel.Application")
とします。
この状態で今まで通りの作動するはずです。
Excelの参照設定をしていないため、Excelのバージョンに依存せずに
使うことができるようになります。
但し、Excel2000でしかサポートされていないメソッド等を使用した場合は
Excel97ではエラーとなります。
|
|