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 質問
【73680】Re:CopyFromRecordsetメソッド ichinose 13/2/2(土) 8:52 発言
【73681】Re:CopyFromRecordsetメソッド Yuki 13/2/2(土) 8:59 発言
【73683】おかげさまで問題点は解決しましたが、あと... nh 13/2/2(土) 9:56 発言
【73684】Re:おかげさまで問題点は解決しましたが、... kanabun 13/2/2(土) 10:04 発言
【73685】Re:おかげさまで問題点は解決しましたが、... nh 13/2/2(土) 10:09 お礼
【73690】Re:おかげさまで問題点は解決しましたが、... kanabun 13/2/2(土) 18:31 発言
【73692】Re:おかげさまで問題点は解決しましたが、... nh 13/2/2(土) 18:45 お礼

8623 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free