• 締切済み

OracleのデータをExcelに貼り付けるとき

EXCEL2003 SP3を使用しています。 EXCELのマクロを利用して、OracleにSQLを投げて戻ってきた結果をEXCELに貼り付けています。 OracleのデータをCopyToClipbordでコピーして、セルを指定してPasteしていたのですが、どのセルを指定しても何故か"A1"のセルに貼りついてしまいます。 今までSP2を使用していた時は問題なかったのですが最近バージョンアップしてからこの不具合が発生してしまいました。 しかも、エクスプローラーを使用してEXCELファイルを開いた時にこの現象が起きます。 EXCELを立ち上げてエクセルのメニューのファイル＞開くでこのファイルを開けた場合は問題なく動きます。 マイクロソフトのホームページなど色々とあたってみたのですが 解決できません。 社内全体がこのファイルを利用しており、大変困っています。 どなたか対策をご存知の方、いらっしゃいませんか？ ご参考までに、その部分のコード(抜粋)は次の通りです。 SQLの部分は*****としています。（データの抽出には問題ないので） ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Dim objSess As Object Dim objDb As Object Dim objDs As Object Dim Str_sql As String Application.ScreenUpdating = False Worksheets("Sheet1").Activate Set objSess = CreateObject("OracleInProcServer.XOraSession") Set objDb = objSess.OpenDatabase("sumple", "sumple/sumple", 0&) Str_sql = "" Str_sql = Str_sql + " SELECT *****" Str_sql = Str_sql + " FROM *****" Str_sql = Str_sql + " WHERE *****" Set objDs = objDb.CreateDynaset(Str_sql, 0&) objDs.CopyToClipboard Cells(2, 8).Select ActiveSheet.Paste ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

みんなの回答

  • sarap100
  • ベストアンサー率0% (0/0)
回答No.1

Oracleは詳しくありませんが、 １． ActiveSheet.Paste (ActiveSheet.Cells(2,8)) の様にペースト先を明示する ２． クリップボード経由ではなく、直接貼りつける Cells(2,8).Value = objDs.Value （こちらはエラーが出る可能性があります）

参考URL：
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=6040;id=excel
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ExcelからAccessデータの抽出

    部署内の機器管理にExcelを使用しています、今回レコード数がExcelでは対応できなくなりデータのみAccessに置いといてデータ処理はExcelマクロで行おうと思っています。 そのAccessファイルからある日付（または期間○日～△日まで等）岳のレコードを抽出したいと思っています。 ネットや書籍でいろいろ調べたのですがうまく抽出できません（SQL文がおかしいと思います）。ご教授お願いします（Access・SQLは全くの素人です） テーブル名は『4』です Sub Macro3() Dim objDB As New ADODB.Connection Dim RS As New ADODB.Recordset objDB.Open _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & "C:\aaa.mdb" With RS .ActiveConnection = objDB .Source = "SELECT * from 4 WHERE 日付<2009/04/15" .Open End With Range("A3").CopyFromRecordset RS objDB.Close Set objDB = Nothing End Sub

  • オラクルからAccessにデータ追加

    オラクルから、必要なデータを抜出し加工の為のDBをAccessで作成していますが、オラクルから抜き出したデータ（レコードセット）を、どうやってAccessのテーブルに書き込めばよいかがわかりません。 ◎環境 Oracle：10g Access:2010 ◎現在の状況 Dim CON As New ADODB.Connection Dim RS As ADODB.Recordset Dim SQL As String Dim i As Integer 'ＤＢ接続定義 CON.Open "DSN=DNS名;UID=ユーザー名;PWD=パスワード;" 'ＳＱＬ文 SQL = "SELECT " SQL = SQL & "カラム１," SQL = SQL & "カラム２," SQL = SQL & "カラム３" SQL = SQL & "FROM オラクルテーブル名 " SQL = SQL & "WHERE 抽出条件 " SQL = SQL & "AND 抽出条件" SQL = SQL & "GROUP BY カラム" SET RS = CON.EXCUTE(SQL) For i = 1 To 10 Debug.Print rs(カラム１) & rs(カラム２) next i ここまでは、オラクルのテーブルから、レコードセットにデータが取り込まれてます。 rs.close: SET RS = Nothing con.close:SET CON=Nothing end sub 案１ レコードセットのデータを、Access側のテーブルにループで回して、１行ずつデータ追加 案２ INTO句で直接、テーブル作成 調べていて、２通りのやり方があると思うのですが、どちらにしても、テーブルへの書き込み方がわかりません。 案１の場合、Access側のテーブルを開いてデータ追加する方法 ※同時に２つのテーブルを開くことになるのでは？ 案２の場合、SQL文はオラクルで処理する為の物なので、AccessテーブルのINTO句が使えるのか？ オラクルのテーブルをリンクする事も考えたのですが、実際動かすPCにはAccessRuntimeしかインストールしてませんので、オラクルのテーブルをリンクしてくれませんでした。 よい方法があれば、アドバイスを頂けたら幸いです。

  • CopyToClipboardからEXCELへPaste

    oo4o+excel2002で開発しています。 OracleにSQLを投げて戻ってきた結果をExcelに貼り付けたいのですが、"Pasteに失敗しました"というエラーが出てしまします。 コードは以下のように書いてます。 ====================================== Set rs = OraDatabase.CreateDynaset(strSql,ORADYN_READONLY) 'クリップボードにコピー rs.CopyToClipboard -1 '当ブックのシートに貼り付ける Windows("aaa.xls").Activate Worksheets("bbb").Range("A1").Select ActiveSheet.Paste ============================================ ActiveSheet.Pasteの部分で"Pasteに失敗しました"というエラーで落ちます。 ご存知の方教えてください。よろしくお願いします。

  • オラクルのデータをAccessに追加　無限ループ

    前回、オラクルからデータを取り出し、Accessのテーブルに書き込みを教えて頂き、データ追加は出来たのですが、データ追加時に無限ループが発生しました。 【環境】 Oracle：10g Access:2010 Dim CON As New ADODB.Connection 'Oracle側コネクション Dim RS As ADODB.Recordset 'Oracle側レコードセット Dim SQL As String 'Oracle側SQL文 Dim i As Integer '処理用インクリメント Dim DT As Date '抽出日付変数（日付型） Dim sDT As String '抽出日付変数（テキスト型） Dim RS2 As ADODB.Recordset 'Access側レコードセット ◎現在の状況 Dim CON As New ADODB.Connection Dim RS As ADODB.Recordset Dim SQL As String Dim i As Integer 'ＤＢ接続定義 CON.Open "DSN=DNS名;UID=ユーザー名;PWD=パスワード;" 'ＳＱＬ文 SQL = "SELECT " SQL = SQL & "カラム１," SQL = SQL & "カラム２," SQL = SQL & "カラム３" SQL = SQL & "FROM オラクルテーブル名 " SQL = SQL & "WHERE 抽出条件 " SQL = SQL & "AND 抽出条件" SQL = SQL & "GROUP BY カラム" SET RS = CON.EXCUTE(SQL) ’取得したレコード数表示 MsgBox "オラクル側のレコード数は： " & RS.RecordCount (1)↑↑↑オラクルから、抽出したレコード数表示 rs2.Open "新しいテーブル名", CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.MoveFirst Do Until rs.EOF rs2.AddNew rs2!カラム1 = rs!カラム1 rs2!カラム2 = rs!カラム2 rs2!カラム3 = rs!カラム3 rs2.Update rs2.Close: Set rs2 = Nothing rs.close: SET RS = Nothing con.close:SET CON=Nothing end sub 上記を実行したところ、いくら待っても処理がおわらず、強制終了をかけた所、新テーブルには、約１５０万件追加されてました。 (1)でオラクルから抽出した、レコード数を表示させてみた所、－１でした。 ◎疑問点、 －１ってありえない数値だと思うのですが。 ちなみに、オラクル側で同様のSQLを実行させた所、取得件数は４８件でした。 上記について、ご存じの方がいらっしゃいましたら、アドバイスお願いいたします。

  • ExcelでDBにInsertするには？

    ExcelからAccessデータを追加する際にInsertを使うと思うのですが自力で調べ他のですがうまく登録できません？ SQLは全くの素人なので間違いだらけでしょうが、ご指南よろしくお願いします あとテーブル名は全角でも大丈夫でしょうか？（書籍・ネット上ではどれもアルファベットのみでしたので） Sub Macro3() Dim objDB As New ADODB.Connection Dim rcsTB As New ADODB.Recordset Dim StrSQL As String Dim hizuke As Date, id As Integer objDB.Open _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\aaa.mdb;" rcsTB.ActiveConnection = objDB hizuke = Date id = 1280 StrSQL = "Insert Into bbb (日付,職員ID) values(hizuke,id)" objDB.Close Set objDB = Nothing End Sub

  • EXCELからORACLEのテーブルをselectしたいのですが、うま

    EXCELからORACLEのテーブルをselectしたいのですが、うまくいきません。 ご指導のほどお願いいたします。 下記サンプルをネット（'Access VBA Tips）で探し実行しました。 Access版だからいけないのでしょうか？ adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;" のオープン・クローズは正常終了します。 Set adoCON = Application.CurrentProject.Connection が実行できません。 実行時エラー　４３８ オブジェクトはこのプロパティまたはメソッドをサポートしていません。 が出てしまいます。 Excelではだめなのでしょうか？ 教えてください。 よろしくお願いいたします。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー－－－－－－－－－－－－－－－ Sub prcAdoOracleODBC() 'Access VBA Tips '4.3 ORACLEのDBを開く・閉じる／ODBCを使う Dim adoCON As New ADODB.Connection Dim adoRS As ADODB.Recordset '?ADOを使いADRSODBCというデータソースをオープンします adoCON.Open "DSN=company_viewer; UID=jxxx; PWD=yjxxx;" 'データベースのオープン（データベースオブジェクトの作成） Set adoCON = Application.CurrentProject.Connection 'レコードセットの作成(SELECT文の実行) Set adoRS = adoCON.Execute("select * from casUR") 'レコードセットのクローズ adoRS.Close 'データベースのクローズ adoCON.Close 'オブジェクト変数のクリア Set adoRS = Nothing Set adoCON = Nothing End Sub

  • excelのデータをvbにとりこむ

    excelのあるセルのデータを取り込みたいのですが、 どうすればよいでしょうか？ C:\123.xlsというファイルのsheet1の （2，4）というセルにある実数型のデータを 出力するという、意図です。 Private Sub Setting_Click() Dim xls As Object Dim xlsFilename As String Dim xlsSheetname As String xlsFilename = "C:\123.xls" xlsSheetname = "Sheet1" Set xls = CreateObject("Excel.Application") xls.Application.Visible = False xls.Application.Workbooks.Open xlsFilename Dim r1 As Double r1 = xls.Application.Workbooks.cells(2, 4).Value Print r1 end sub

  • Excel VBA DAO について

    いつもお世話になっております。 現在Excel2007でマクロを組みました。 下記ソースのような形で、マクロを実行するブック内にあるシートから、データを取得するのですが・・・・ ～ソース例～ dim dbEngine as object Dim db as object Dim rs as object Dim sql as object '■SQL格納 sql = sql & "Select 社員名 " sql = sql & " ,Sum(月収) as 年収 " sql = sql & " From 月収一覧 " sql = sql & "Group By 社員名,月収; " '■DBを開く Set dbEngine = CreateObject("DAO.DBEngine36") Set db = dbEngine.OpenDatabase("C:\社員月収.xls", False, False, "Excel8.0;") '■SQL実行後レコードセットへ格納 Set rs = db.Openrecordset(sql) としていますが「■DBを開く」の部分でCreateObject内で宣言している”DAO.DBEngine36”の部分をそのPCのDAOライブラリのバージョンによって変更したいのですが、可能なのでしょうか？？ 以上です＞＜よろしくお願いいたします！！

  • クリップボードの内容をEXCELに貼付け

    クリップボード内容をエクセルのシートに貼り付けることをｖｂで行おうとしています。 １回目はできるのですが、2回目にはエラーが出てしまいます。（貼り付けるセルを指定したときに） 現状のコードを添付します。おかしなところがわかる方、教えて下さい。 '------------------------------------------------------- 'エクセルを起動させる '------------------------------------------------------- Public Sub ExcelProc() Dim xl2 As Excel.Application Dim xl2Book As Object Dim xl2Sheet As Object Dim ELSFileName As String 'エクセルの起動 Set xl2 = CreateObject("excel.application") xl2.Visible = True xl2.Workbooks.Open ("d:\test.xls") Set xl2Book = xl2.ActiveWorkbook Set xl2Sheet = xl2Book.Worksheets(1) 'D10にクリップボードの内容を貼り付ける xl2Sheet.Select Range("d10").Select ActiveSheet.Paste '保存するファイル名を作成 ELSFileName = "c:\test10.xls" '保存 ChDir "C:\" ActiveWorkbook.SaveAs FileName:=ELSFileName, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Set xl2Sheet = Nothing xl2Book.Close True Set xl2Book = Nothing xl2.Quit Set xl2 = Nothing End Sub この関数を２度実行させたらエラーになります。 Range("d10").Select 'この箇所でエラーになる。 お願いします。

  • EXCELで作ったマクロを別のファイルのEXCELでも使えるようにしたいです。

    (1)EXCELファイルでマクロを作成しました。 (実際はここである人の知恵をお借りして作ったものですが…) しかし、(2)EXCELファイルで(1)EXCEL作成マクロが実行できません。 どのような処理をすれば、どのPCでも、どのファイルでも実行できるようなマクロに出来るのでしょうか？？ 以下にそのマクロを示します。 ↓↓↓ Sub 文字置換() '半角カタカナを全角に、全角英数を半角にするマクロ　(Excel編） Dim rng As Range Dim Re As Object Dim myPat As String Dim c As Range Dim Matches As Object Dim Match As Object Dim Str1 As String Dim Str2 As String Dim buf As String Dim t As Long On Error Resume Next Set rng = ActiveSheet.UsedRange.SpecialCells _ (xlCellTypeConstants, xlTextValues) On Error GoTo 0 If rng Is Nothing Then MsgBox "変換する対象が見当たりません。", 48 Exit Sub End If '全角側　---　半角側 (！-／ を加えれば記号も半角) myPat = "([\uFF66-\uFF9F]*)([！-｝]*)" '正規表現のパターン Set Re = CreateObject("VBScript.RegExp") Application.ScreenUpdating = False With Re .Global = True .IgnoreCase = True .Pattern = myPat For Each c In rng.Cells Set Matches = .Execute(c.Value) If Matches.Count > 0 Then buf = c.Value For Each Match In Matches If Len(Match.Value) > 0 Then Str1 = StrConv(Match.SubMatches(0), vbWide) If Str1 <> "" Then '0 =vbBinaryCompare buf = Replace(buf, Match.SubMatches(0), Str1, , , 0) End If Str2 = StrConv(Match.SubMatches(1), vbNarrow) If Str2 <> "" Then buf = Replace(buf, Match.SubMatches(1), Str2, , , 0) End If End If Str1 = "": Str2 = "" Next Match If buf <> c.Value Then c.Value = buf t = t + 1 End If End If Next c End With Set Re = Nothing Application.ScreenUpdating = True If t > 0 Then MsgBox t & "個のセルを変換しました。", 64 End If End Sub 出来れば、置換した文字数をメッセージBOXに表示したいです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する