Excel VBA質問箱 IV

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

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


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

31996 / 76734

←次へ　｜　前へ→


	【49977】Re:他ブックの見出しをコピー＆ペースト

take - 07/7/1(日) 22:28 -


	引用なし

	パスワード

>そこまでは、Excelの一般操作ではできませんから、「マクロの記録」でも記録
>できません。
>
>そこで、以下のような追加をすることでできると思います。
>
>Sub Macro2()
>　Dim WB As Workbook
>　Dim strBookName As String
>　
>　'元のブック名
>　strBookName = "Book1.xls"
>　
>　'元のブック名が開いていれば、オブジェクト変数に格納
>　On Error Resume Next
>　Set WB = Workbooks(strBookName)
>　On Error GoTo 0
>　　
>　'オブジェクト変数に格納できなければ（元のブック名が開いていなければ）
>　If WB Is Nothing Then
>'　　ChDir "C:\DOCUMENTS AND SETTINGS\XXXX\デスクトップ"
>　　Workbooks.Open Filename:= _
>　　　　"C:\DOCUMENTS AND SETTINGS\XXXX\デスクトップ\" & strBookName
>　End If
>　
>　Range("A1:E1").Select
>　Selection.Copy
>　Windows("1Book1.xls").Activate
>　ActiveSheet.Paste
>End Sub

ソースコードにわかりやすいコメントまでつけて
頂きまして、
ありがとうございました。
使用させて頂きます。

15 hits

▼

【49954】他ブックの見出しをコピー＆ペースト take 07/6/30(土) 17:22