| |
▼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ではエラーとなります。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 05/6/15(水) 16:34 -
