| |
400件ぐらいならExcelで充分だと思いますが、Accessに入力してしまったのなら
http://www.geocities.co.jp/SiliconValley/4805/vbtips/vbtips000.htm
↑の28〜42番のサンプルや
http://www.vbasekai.com/tipsdao.html
などを参考にされたら良いでしょう。もしExcelでデータベースを作るなら、
最低限「1行目を項目にする」というデータベース形式の入力でないと DAO を使って
うまくデータを引張ることが出来ません。いちおう開いていないExcelのデータファイル
から、データを持ってくるなら
Sub DAO_Test_ExcelData()
Dim Sh As Worksheet, DB As Database, RS As Recordset
Const FName As String = _
"C:\Program Files\Microsoft Office\Office\JobFiles\Book2.xls"
'データファイルのフルパス
Set Sh = Worksheets("Sheet1")
'データを表示するシート
Set DB = OpenDatabase(FName, False, False, "Excel 8.0;HDR=NO;")
Set RS = DB.OpenRecordset("Sheet3$")
'データファイルのデータのあるシート名に $ を付ける
Sh.Range("A1:E1").Value = _
Array("Data1", "Data2", "Data3", "Data4", "Data5")
'実際の項目をこのように配列に入れて、1行目に入力
Sh.Range("A2").CopyFromRecordset RS
RS.Close: DB.Close
Set RS = Nothing: Set DB = Nothing: Set Sh = Nothing
End Sub
などとすれば出来るでしょう。大雑把に1000行ぐらいを普通にリンクを張るのでも
良いかと思いますが。
|
|
- 03/4/7(月) 4:08 -
