Excel VBA質問箱 IV

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

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


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

73870 / 76738

←次へ　｜　前へ→


	【7341】異なるブック間でのデータコピー

初心者 - 03/9/2(火) 20:14 -


	引用なし

	パスワード

度々失礼致します。
既存エクセルファイルと新規ブックの間でのデータコピーを試みています。
さらに、この処理は何度も使用する箇所なので、
クリップボードを使用しない方法を模索しています。

とあるサイトで「クリップボードを使用しないブック間コピー」という
サンプルを見つけたのですが、うまくいきません。
以下、問題点を教えていただけないでしょうか。

【概要】
　ｴｸｾﾙﾌｧｲﾙAと新規ﾌﾞｯｸの2つのﾌｧｲﾙを開き、Aのﾃﾞｰﾀを新規ﾌﾞｯｸにｺﾋﾟｰする。

【処理】
　　Dim NewBook　as String

　　Workbooks.Open FileName:= (Excel形式のﾌｧｲﾙAの絶対ﾊﾟｽ)
　　Workbooks.Add
　　NewBook = ActiveWorkbook.Name　　←"Book1"のような名前が入ります。

　　Workbooks("A.xls").Worksheets("Sample").Range("A1").Copy _
　　Workbooks(NewBook).Worksheets(1).Range(Cells(3,1))　
　　　　　　　　　　　　　　　　　　　　　　　　↑ここでｴﾗｰになります。

※Workbooks(NewBook).Worksheets(1).Activate　
処理ではエラーになりませんでしたので、新規ブックの認識はされているようです。

宜しくお願い致します。

0 hits

▼

【7341】異なるブック間でのデータコピー 初心者 03/9/2(火) 20:14

≪