戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
vba データを別ブックに張り付けしたい

    [196252] vba データを別ブックに張り付けしたい-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ chabin -(2024/06/24(09:43))
    □U R L/
      お世話になります。
      
      OSはwin11  エクセルはoffice365です。
      
      ご指導いただきたいのは、
      下記のコピー元の値を貼り付け先に値のみを貼り付けたいのです。
      
        私なりにサイトから引用したコードを下記していますが、
        実行すると「インデックスが有効範囲にありません」と警告表示されます。
      
       警告表示の解消方法と下記のコードで何かミスがあれば、進言を賜りたいと思います。
      
       コピー元
        パス
         "C:\Users\04524\デスクトップ\keep\2024 株価取得01.xlsm"
        シート名
         日毎
        コピー範囲
           Range("B2:C3,B5:C6")
      
        貼り付け先
         パス
          "C:\Users\04524\デスクトップ\keep\2024 株価取得02.xlsm"
         シート名
          日毎02
         貼付範囲
            Range("B2:C3,B5:C6")
      
      参考コード
      Sub 別ブックへ値のみコピーする()
              Dim objWorkbook As Workbook
                 Set objWorkbook = Workbooks.Open("C:\Users\04524\デスクトップ\keep\2024 株価取得02.xlsm")
                   Workbooks("C:\Users\04524\デスクトップ\keep\2024 株価取得01.xlsm").Sheets("日毎").Range("B2:C3,B5:C6").Copy
                      objWorkbook.Sheets("日毎02").Range("B2:C3,B5:C6").PasteSpecial Paste:=xlPasteValues
              Application.CutCopyMode = False
              Set objWorkbook = Nothing
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [196253] Re[1]: vba データを別ブックに張り付けしたい-

    記事引用/メール受信=OFF■

    □投稿者/ 匿名 -(2024/06/24(12:17))
    □U R L/
      >警告表示の解消方法と下記のコードで何かミスがあれば、進言を賜りたいと思います。
      「ご指導」という事なので、考え方を伝えます。
      VBAではなく、人間がやるとしたらどのような作業でしょうか。
       コピー元のファイルを開く
       コピー先のファイルを開く
       コピーしたいセル範囲を選択する
       コピーコマンドを実行する
       コピー先のセル(セル範囲)を選択する
       貼付けコマンドを実行する
      
      では、VBAでどの様に指示しているのでしょうか
      Set objWorkbook = Workbooks.Open("C:\Users\04524\デスクトップ\keep\2024 株価取得02.xlsm")
      「C:\Users\04524\デスクトップ\keep\2024 株価取得02.xlsm」というファイルを開き、
      Workbook型オブジェクト変数にセットする
      
      >Workbooks("C:\Users\04524\デスクトップ\keep\2024 株価取得01.xlsm").Sheets("日毎").Range("B2:C3,B5:C6").Copy
      「C:\Users\04524\デスクトップ\keep\2024 株価取得01.xlsm」という【現在開いているファイル】の
      「日毎」というシートの「B2:C3,B5:C6」の範囲を選択してコピーコマンドを実行
      
      >objWorkbook.Sheets("日毎02").Range("B2:C3,B5:C6").PasteSpecial Paste:=xlPasteValues
      「objWorkbook」という変数(et objWorkbook = Workbooks.Openで開いたファイル)の
      「日毎02」というシートの「B2:C3,B5:C6」の範囲を選択して、値貼り付けコマンドを実行
      
      ここまでで、人間がやる事と、VBAで実行している事に
      違いがある事ありますか?
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [196254] Re[2]: vba データを別ブックに張り付けしたい-

    記事引用/メール受信=OFF■

    □投稿者/ chabin -(2024/06/24(14:42))
    □U R L/
      1 コピー元は開いた状態
      
      2 コピーコマンドを実行する
      3 コピー先のファイルを開く
          Dim objWorkbook As Workbook
          Set objWorkbook = Workbooks.Open("C:\Users\04524\デスクトップ\keep\2024 株価取得    02.xlsm")
      
      4 コピーしたいセル範囲を選択する
          Workbooks("C:\Users\04524\デスクトップ\keep\2024 株価取得01.xlsm").Sheets("日毎").Range("B2:C3,B5:C6").Copy
      
      5 コピー先のセル(セル範囲)を選択する
       〜1 objWorkbook.Sheets("日毎02").Range("B2:C3,B5:C6").PasteSpecial Paste:                       =xlPasteValues
           〜2   Application.CutCopyMode = False
       6       Set objWorkbook = Nothing
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [196258] Re[3]: vba データを別ブックに張り付けしたい-

    記事引用/メール受信=OFF■

    □投稿者/ 匿名 -(2024/06/26(06:43))
    □U R L/

      >4 コピーしたいセル範囲を選択する
      この部分のコードは、
      コピー範囲を指定(選択)してコマンドの実行です。
      VBAでは、マウスやキーボードで選択しなくても、
      Range("B2:C3,B5:C6")と指定することが可能なだけです。

      >5 コピー先のセル(セル範囲)を選択する
      この部分のコードは、
      貼り付け範囲を指定して値貼り付けコマンドの実行です。

      ここまでで、人間がやる事と、VBAで実行している事に
      違いがある事ありますか?
      という問いには答えてもらえないみたいですね。

      では、もう少し答えに近いヒントです。
      どこで「インデックスが有効範囲にありません」
      というエラーが出ているのですか。

      VBAに限らず、間違いやミスが起こった時、
      どこ(工程など)で、どんな(間違えやミスの内容など)を把握せずに、
      間違えやミスを正すことはできるのでしょうか。






    [196266] Re[4]: vba データを別ブックに張り付けしたい-

    記事引用/メール受信=OFF■

    □投稿者/ ビジョン -(2024/07/01(08:08))
    □U R L/
      >  コピー範囲
      >     Range("B2:C3,B5:C6")
      >   貼付範囲
      >      Range("B2:C3,B5:C6")
      
      できないです
      こんなエラーになりませんか(自分で手動でもやってみること)
      この操作は複数の範囲に対しては機能しません


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G