Excel2003でC:\にあるブックBを開かずに、
開いているブックAの指定したセルをコピーしたいのですがうまくいきません。

具体的なイメージは
開いているコピー先のブックA:いろは.xls
コピー先のシート:Sheet1
コピー元のブックB:らりるれろ.xls
コピー元のシート:らりるれろ
(ブックBの名前(らりるれろ.xls)とシート名が同じなのはシステム上の仕様です。)
ブックBのC6をブックAのC5に、
ブックBのI6をブックAのC6に、
ブックBのK6をブックAのC7に、
ブックBのH6をブックAのC8にコピーしたいと考えています。


宜しくお願いします!

このQ&Aに関連する最新のQ&A

A 回答 (1件)

>Excel2003 マクロでブックを開かずにコピペ


根本的にマクロでは開いていないブックの参照が出来ません

一旦開いてコピー後に閉じるとの動作が必要

どうしても開くのがイヤダと言うのであれば

Range("C6").Select
ActiveCell.FormulaR1C1 = "='C:\[らりるれろ.xls]らりるれろ'!R5C3"


とすれば、開かずに参照できる

計算式でなく値がほしいのであれば


Range("C6").Select
ActiveCell.FormulaR1C1 = "='C:\[らりるれろ.xls]らりるれろ'!R5C3"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


とでもすれば良い
    • good
    • 0
この回答へのお礼

回答ありがとうございます。

二つのコードを試してみましたが、
#REF!と出てしまいました。
セルはちゃんとあっているのですが・・・

開いていた方が良いようですので、
そうすることにします。

ありがとうございました。

お礼日時:2011/04/13 17:49

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qウェブページを参照ってどういう意味?

ウェブページを参照ってどういう意味?

Aベストアンサー

「インターネットのWebサイトにある該当ページを参照してください」という意味です。

例えば「ななつんさんが投稿された『ウェブページを参照ってどういう意味?』というウェブページを参照してください」と言ったら以下に示します「教えて!goo」のWebサイトにある以下のページを参照してくださいという意味です。

https://oshiete.goo.ne.jp/qa/9533888.html

参考まで。

Qフォルダ内のexcelファイルを順に開いてマクロ有効ブックに別名保存して閉じるマクロを作りたい

マクロは難しい・・・

https://oshiete.goo.ne.jp/qa/2598781.html
上記URLでフォルダ内の全ファイルを開くマクロがありましたので参考にしていたのですが別名で保存の段階で詰まってしまいました。貴重な休日がああ~~
現在仕事の引き継ぎでマクロ非対応のファイルをマクロ有効にしようとしているのですが多いと1フォルダに100個、全部で400以上あるため自動でできたらなあと考えています
やりたい作業は、

1.同じフォルダにあるファイルを開く
2.別名で保存でマクロ有効ブックとして保存(名前は開いたファイルのまま)
3.閉じる
4.次のファイルを開く
5.1~4をフォルダ内のファイル全てに適用するまで繰り返す

というものです
URL先のコードに別名で保存のコードを入れればいいんじゃん!やったぜひとりでできるもん!と思い追加したいマクロを記憶しながらコードを見て作ってみたのですが同じ名前で保存されたり end sub が必要などとエラーが出て上手くいきませんでした(´;ω;`)

Aベストアンサー

失礼しました。パスの指定が不完全でした。これでどうでしょう。

Sub sample()
Dim Fs, Fl, Fn, wb
Set Fs = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
For Each Fl In Fs
Fn = ThisWorkbook.Path & "\" & Fl.Name
If Right(Fn, 5) = ".xlsx" Then
Set wb = Workbooks.Open(Fn)
Fn = Left(Fn, Len(Fn) - 5) & ".xlsm"
Application.DisplayAlerts = False
wb.SaveAs Filename:=Fn, FileFormat:=xlOpenXMLWorkbookMacroEnabled
wb.Close
Application.DisplayAlerts = True
End If
Next
End Sub

失礼しました。パスの指定が不完全でした。これでどうでしょう。

Sub sample()
Dim Fs, Fl, Fn, wb
Set Fs = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
For Each Fl In Fs
Fn = ThisWorkbook.Path & "\" & Fl.Name
If Right(Fn, 5) = ".xlsx" Then
Set wb = Workbooks.Open(Fn)
Fn = Left(Fn, Len(Fn) - 5) & ".xlsm"
Application.DisplayAlerts = False
wb.SaveAs Filename:=Fn, FileForma...続きを読む

Qエクセルの絶対参照で$D6やD$6はどんな意味なのか。そして、どんな場合に使いますか。

唐突ですがエクセルの絶対参照で普通は$D$6のように使いますがF4を押し続けたら$D6やD$6になりました。

この$D6やD$6はどんな意味なのか。またどんな場合に使うのかを知りたいです。

お手数ですが教えて下さい。

お願いします。

Aベストアンサー

$D$6 D列6行を絶対参照
$D6 D列を絶対参照
D$6 6行を絶対参照

たとえば、A6 のセルに上記を参照する式を入力して、A6をB6とA7にコピー貼り付けした場合の、B6,A7の参照式がどうなるか、とやってみるとわかり易いでしょう。

A6 =$D$6 B6 =$D$6 A7 =$D$6
A6 =$D6 B6 =$D6 A7 =$D7
A6 =D$6 B6 =E$6 A7 =D$6

どんな場合に使うか…
う~ん、参照式をコピーする時に絶対参照したい部分と可変部分を便利に使いたい時の使い分け、ですかねぇ。

Qリストボックスで選択したexcelブックのデータをマクロのあるexcelブックにコピーしたい

リストボックスを作り、そこに開いてるexcelブックを表示させて選択できるようにしてあるのですが、リストを選択してボタンを押したら、選択したブックのsheet1のA1~B80をマクロのあるブックの"処理用"sheetのA列B列にコピーなるようにしたいのですが上手くいきません

マクロ.xlsmの
リストはActiveコントロールのリストボックスを作り
Private Sub ListBox1_GotFocus()
    Dim wbook As Integer
    ListBox1.Clear
    For wbook = 1 To Workbooks.Count
        ListBox1.AddItem Workbooks(wbook).Name
    Next wbook
End Sub
としてます。

で、別にボタンを作り

Sub ボタン_Click()
Dim target As Variant
Worksheets("マクロ").Select
target = Worksheets("処理用").ListBox1.Text

Workbooks(target).Activate
Sheets(1).Select
Sheets(1).Range(Cells(1, 1), Cells(80,2)).Copy
ThisWorkbook.Worksheets("処理用").(Cells(1, 1), Cells(80,2)).PasteSpecial
(以下略)

と続くのですが、実際に作動させると
Workbooks(target).Activateで「型が一致しません」となりエラーとなってしまいます。

"処理用"シートのD1に直接ファイル名を書いて、
target = Cells(4, 1)
Workbooks(target & ".xlsx").Activate
とやってた時はうまくいったのですが…

いろいろ調べてますが直せず困ってます…

リストボックスを作り、そこに開いてるexcelブックを表示させて選択できるようにしてあるのですが、リストを選択してボタンを押したら、選択したブックのsheet1のA1~B80をマクロのあるブックの"処理用"sheetのA列B列にコピーなるようにしたいのですが上手くいきません

マクロ.xlsmの
リストはActiveコントロールのリストボックスを作り
Private Sub ListBox1_GotFocus()
    Dim wbook As Integer
    ListBox1.Clear
    For wbook = 1 To Workbooks.Count
        ListBox1.AddIte...続きを読む

Aベストアンサー

やっぱりtargetの型はstringにすべきですね。
そうすれば、target = Worksheets("処理用").ListBox1.Textの時点で落ちるはずなので問題の切り分けが出来ます。対処も見つかると思います。

Qエアロバイク(☆注、下記参照)の電磁ブレーキとマグネット式は同じ意味で

エアロバイク(☆注、下記参照)の電磁ブレーキとマグネット式は同じ意味ですか?

☆室内固定式自転車のことです。ウォークマンのように一般名詞化していないので
すが、便宜上、エアロバイク=室内固定式自転車 とさせていただきます。

Aベストアンサー

同じではありません、これは負荷装置の違いです。
負荷装置は「ベルト式」、「マグネット式」、「電磁ブレーキ式」とありまして、ベルト式は安価ですが故障しやすく、マグネット式は平均的で、電磁ブレーキ式は精度が高くスムーズなペダリングが出来ますが価格は高額です、フィットネスクラブではほとんどが電磁ブレーキ式を採用してます。

QC:\WINDOWS\TEMP\B2Temp\Attachとは・・・

添付ファイルをメーラーからパソコンに落とすときに、
現在の場所を表すのに
「C:\WINDOWS\TEMP\B2Temp\Attach」
と表示されます。場所を表しているのだと思うのですが、くわしくどういう意味なのか教えて下さい。

Aベストアンサー

Cドライブの中のwindowsフォルダの中のtempフォルダの中のB2Tempフォルダの中のAttachフォルダ、という意味だと思います。質問の意図を取り違えてましたらすみません。スタートメニューを右クリックしてエクスプローラーで階層を確認されたら分かりやすいかと思います。

Q「参照元が変です。」とはどういう意味ですか?

名付け支援「いいなまえねっと」というサイトを利用していたのですが、ある日突然一部のカテゴリのみエラーメッセージが出て入れなくなりました。
ホームページ ​http://www.iinamae.net/​ 上の
「姓に合った吉名を検索」「漢字から名前を検索」「響き・読みから名前を創る」のカテゴリから入り検索しようとすると・・・

「参照元が変です。左のメニューより再度実行してください。セキュリティソフトなどにより参照元を隠している場合は、設定を変更するなどして下さい。」

とエラーメッセージが表示されます。
3つのカテゴリ以外は利用できます。
今までは普通に出来てましたし、特に設定など変えた覚えはありません。無料サイトですし。。

問い合わせしようにもそのような機能は無いようです。
どたたか詳しい方いらっしゃいましたらアドバイスお願いします。

Aベストアンサー

セキュリティソフトがリファラーを隠蔽してるから出てるだけです。
セキュリティソフト停止してやってみればエラーにならないと思いますよ。

セキュリティソフトのメーカーサポートに電話して、リファラーを隠蔽しない設定を教えて貰いましょう。(マニュアル読んで理解できるなら、マニュアル読んでください。普通は書いてありますから。)

Q【質問】ブック名AからシートをブックBへ移動する時、ブックAにシートを残してブックBにもコピーするには?

こんにちは、みなさん!!

【質問】ブックAのシートを、ブックBに移動する時に、ブックAにも
同シートを残しておき、さらに、ブックBに同シートを移動する事は
できますか?ドラック&ドロップでは、ブックAにシートはなくなり、
完全に、ブックBに移動されてしまいます。

ご存知の方いらっしゃいましたらよろしくお願いします。

Aベストアンサー

はじめまして

ブックAの該当シートタブを右クリック、移動またはコピーを選択、移動先ブックをブックBに、コピーを作成するにチェックを入れてOK。
これでいけます。

また、ドラッグアンドドロップでするなら、「CTRL」キーを押しながらやってみてください。
移動ではなくコピーになります。

的外れでしたらごめんなさい。

Qエクセルの「IF+VLOOKUP」に関してのよくある問題で、意味のわからない相対参照があります

「1.セル【C18】にセル【B18】の「商品コード」に対応する「商品名」を返す数式を入力して下さい。「商品一覧」の表を参照すること。
次に、「商品コード」が入力されていない場合は、「商品名」にエラーが表示されないように数式を修正して下さい。(シートに表があり、IF+VLOOKUPを使う問題です)

2.セル【C18】の数式をもとに請求書の表を完成させて下さい」(←「【C18】の下の行も同じように、商品コードから商品名を表示させれるように完成させなさい」っていう問題です)

上記のような問題があったのですが、
数式を入力して下にオートフィルして
完成させたのですが、【問題の解答】を見た限りでは
「セル【C18】を「=IF($B18="","",VLOOKUP($B18,$H$18:$J$29,2,FALSE))」と修正する」
と書いてありました。

ですが、数式の「$B18」の部分で「列を固定にする」
意味はあるのでしょうか?
「$」はなくてもちゃんと機能してますし、
表も完成してるように思うのですが・・・

あと、これは商品コードが空白の場合にはエラーが
出ないのでいいのですが、商品コードとは関係ない
文字列も入れた場合(間違った文字列を入れた場合)に
エラーがでないようにする事もできますでしょうか?

「1.セル【C18】にセル【B18】の「商品コード」に対応する「商品名」を返す数式を入力して下さい。「商品一覧」の表を参照すること。
次に、「商品コード」が入力されていない場合は、「商品名」にエラーが表示されないように数式を修正して下さい。(シートに表があり、IF+VLOOKUPを使う問題です)

2.セル【C18】の数式をもとに請求書の表を完成させて下さい」(←「【C18】の下の行も同じように、商品コードから商品名を表示させれるように完成させなさい」っていう問題です)

上記のよう...続きを読む

Aベストアンサー

こんにちは。maruru01です。

表にないデータを入力した場合の対処方法の別解です。

=IF(LEN($B18),IF(COUNTIF($H18:$H29,$B18),VLOOKUP($B18,$H$18:$J$29,2,FALSE),""),"")

ちなみに、個人的には、巷にあるExcel関数の問題集の解答は、鵜呑みにしてはいけないと思っています。
(解答作成者のレベルによりますから。)
また、解答は1とおりしかないわけでもない場合が多いですし。
(私の上式も、ちょっとアレンジしてあります。)

QExcel2003 個人用マクロブックがなくなりました

Excel2003を使用しています。
個人用マクロブックにいくつかマクロが登録してあります。あるとき急に、Excelを起動してもPersonal.xlsが立ち上がらなくなりました。そこで、保存先と思われるApplicationData\\Microsoft\\Excel\\XLSTART\\
の中を確認したのですが、Personal.xlsが見当たりません。個人用マクロブックはなくなってしまったのでしょうか?復活できる方法はありませんでしょうか?

Aベストアンサー

Excelのヘルプで、「バージョン情報」から「使用できないアイテム」を確認してください。
そこに、「PERSONAL.XLS」があれば、選択して「有効にする」ボタンをクリックしてください。
操作終了後、Excelを再起動すれば、マクロが復活していないでしょうか?

PERSONAL.XLSは、隠しファイルだったと思います。
Windows XPの場合ですが、
エクスプローラのツールメニューから「フォルダオプション」と進み
「表示」タブの「ファイルとフォルダの表示」で、「すべてのファイルとフォルダを表示する」を選択してください。
上記操作後、「PERSONAL.XLS」が表示されないでしょうか?

あるいは、VBEで確認できないでしょうか?
Excelで、Alt+F11、とキー操作すればVBEが起動します。
プロジェクトエクスプローラウインドウで、VBAProject (PERSONAL.XLS)を見つけてください。


人気Q&Aランキング