Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71510 / 76732

←次へ　｜　前へ→


	【9715】Re:エラーになるところは・・・

Kein - 03/12/15(月) 13:49 -


	引用なし

	パスワード

参考までに、私が使った DAO のテーブル作成マクロをUPしておきます。
株価データを格納するテーブルを作りました。

Sub MyDBテーブル作成()
　　Dim wspDefault As Workspace
　　Dim myCurDb　As Database
　　Dim myTblDef As TableDef
　　Dim myNewIdx As Index
　　Dim fld As Field
　　Dim C As Range
　　Dim i As Integer
　　Dim TName As String
　　Const myMdbFile = "C:\My Documents\NewYork_data.mdb"
　　
　　Set wspDefault = DBEngine.Workspaces(0)
　　Set myCurDb = wspDefault.OpenDatabase(myMdbFile)
　　MyAr = Array("始値", "高値", "安値", "終値", "出来高")
　　For Each C In Sheets("Sheet1").Range("A1:A33")
　　　　TName = C.Value & "_" & C.Offset(, 1).Value
　　　　Set myTblDef = myCurDb.CreateTableDef(TName)
　　　　With myTblDef
　　　　　　 Set fld = .CreateField("日付", dbDate, 8)
　　　　　　 .Fields.Append fld
　　　　　　 fld.OrdinalPosition = 0
　　　　　　 Set myNewIdx = .CreateIndex("MyIdx")
　　　　　　 With myNewIdx
　　　　　　　　.Fields.Append .CreateField("日付")
　　　　　　　　.Primary = True
　　　　　　 End With
　　　　　　 .Indexes.Append myNewIdx
　　　　　　 For i = LBound(MyAr) To UBound(MyAr)
　　　　　　　　Set fld = .CreateField(MyAr(i), dbLong)
　　　　　　　　.Fields.Append fld
　　　　　　　　fld.OrdinalPosition = i + 1
　　　　　　　　Set fld = Nothing
　　　　　　　　.Fields.Refresh
　　　　　　 Next i
　　　　End With
　　　　myCurDb.TableDefs.Append myTblDef
　　　　Set myTblDef = Nothing
　　Next
　　myCurDb.Close: wspDefault.Close
　　Set myCurDb = Nothing: Set wspDefault = Nothing
End Sub

0 hits

▼

【9691】データベースに新規のテーブルを作るには どらちゃん 03/12/12(金) 18:49