Excel VBA質問箱 IV

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

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


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

8623 / 76732

←次へ　｜　前へ→


	【73679】CopyFromRecordsetメソッド

nh - 13/2/2(土) 8:19 -


	引用なし

	パスワード

CopyFromRecordsetメソッドでちょっと悩んでいます
やりたいことはMySQL(RDB)からバックアップでExcelにデータを貼り付けることで、

Sub S_DataPaste2Sheet(ByVal kbn As Integer,ByVal sc As Long, ByVal idx As Integer)
Dim strSQL As String
Dim dataR As New ADODB.Recordset
Dim lastrow As Long
Dim i As Long

If sc <> 0 And sc < 100000 Then
　strSQL = " select vol_date,startingprice,highprice,lowprice,closingprice,volume "
Else
　strSQL = " select vol_date,startingprice,highprice,lowprice,closingprice "
End If
strSQL = strSQL & " from stock_daily_tbl　where stock_code=" & sc

Cells(1, 1) = sc

Select Case kbn
　Case 1
　　lastrow = Cells(Rows.Count, "A").End(xlUp).Row
　　strSQL = strSQL & " and vol_date > '" & CStr(Format(Cells(lastrow, 1), "yyyy-mm-dd")) & "'"
　　With dataR
　　　.CursorLocation = adUseClient
　　　.Open strSQL, MgDB, adOpenStatic, adLockReadOnly
　　End With
　
　　If Not dataR.EOF Then
　　　　Range(Cells(lastrow + 1, 1)).CopyFromRecordset dataR
　　End If
　Case 2
　　With dataR
　　　.CursorLocation = adUseClient
　　　.Open strSQL, MgDB, adOpenStatic, adLockReadOnly
　　End With
　　Range("a2").CopyFromRecordset dataR
　　Cells(1, 2) = structscdata(idx).sname
　End Select
　　
dataR.Close
Set dataR = Nothing
End Sub

で、Range(Cells(lastrow + 1, 1)).CopyFromRecordset dataR　の部分で
"'Range'メソッドは失敗しました '_Global'オブジェクト"
で落ちています

以前（というか先週）はここの部分も成功していたんですが、昨日実行してみるとここで落ちているので
余計に何故？なんですが。
dataRの部分にOLEオブジェクトがあると失敗するってのはヘルプで見たんですが、
ではどうすればいいの？です^^;

変数にはそれぞれ
kbn　　 1
lastrow 2833
sc　　　1306
idx　　 2
が入っていることは確認しています

1,363 hits

▼

【73679】CopyFromRecordsetメソッド nh 13/2/2(土) 8:19

≪