| |
小僧 さん
この記述はＡｃｃｅｓｓ２０００ですか？
Ａｃｃｅｓｓ９７を使用してるのですがコンパイルで
Dim xlsApp As New Excel.Applicationでユーザ定義型は定義されていませんになってしまいます。
小僧さんの記述をまねして作ってみたのですがうまくいきません。
何がおかしいのでしょうか？
Public Function T上期計画テーブル作成()
Dim xlsApp As New Excel.Application
Dim xlsWkb As New Excel.Workbook
Dim WkbName As String
Dim ShtName As String
Dim OTRs As Recordset
Db.Execute "CREATE TABLE 上期計画テーブル(店舗コード STRING(3),諸勘定科目番号 STRING(5),目標区分 STRING(2)," _
& "４月 DOUBLE,５月 DOUBLE,６月 DOUBLE,７月 DOUBLE,８月 DOUBLE,９月 DOUBLE)"
Set OTRs = Db.OpenRecordset("上期計画テーブル", dbOpenDynaset)
WkbName = "C:事業計画書.xls"
ShtName = "預金計画表"
Set xlsWkb = xlsApp.Workbooks.Open(WkbName)
OTRs.AddNew
OTRs!店舗コード = xlsWkb.Sheets(ShtName).Range("D5").Value
OTRs.Update
xlsWkb.Close: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
OTRs.Close
End Function
なにとぞ宜しくお願いします
|
|
nemotake
- 05/4/20(水) 14:57 -
