|
▼Excelアクセス さん:
よこから失礼します。ぼくも詳しくないのですが、
> myRS.Update
って、 必要なんですか? Update するんですか?
単純化して、↓のようではだめなんでしょうか?
'(途中から)
'シートクリア
Worksheets("DATA").Range(Cells(2, 1), Cells(500, 49)).ClearContents
'アクセスから情報取り込み
Dim myCon As ADODB.Connection
Dim myRS As ADODB.Recordset
Dim mySQL As String
Set myCon = New ADODB.Connection
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=\データ.mdb"
mySQL = "SELECT 番号 FROM テーブル名" '--- 適切な SQL文を書く
Set myRS = New ADODB.Recordset
myRS.Open mySQL, myCon
Worksheets("DATA").Range("A2").CopyFromRecordset myRS
myRS.clsoe
myCon.Close
|
|