ベストアンサー

※ ChatGPTを利用し、要約された質問です（原文：VBA＿マクロ内でマクロ実行）

VBAでマクロ実行する方法とは？

2009/01/16 18:20

このQ&Aのポイント

VBAを使ってExcelマクロを実行する方法を教えてください。
Excel2003でVBAを使って他のファイルのマクロを実行する方法を教えてください。
Excel VBAでファイルを開き、他のファイルのマクロを実行するための手順を教えてください。

q-i-p
お礼率59% (26/44)

その他（プログラミング・開発）
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

hana-hana3
ベストアンサー率31% (4940/15541)

2009/01/16 18:45 回答No.1

Application.Run http://officetanaka.net/excel/vba/tips/tips09.htm

関連するQ&A

【マクロ】指定したファイルを開いてマクロを実行

マクロ初心者です。よろしくお願いします。＜質問＞コマンドボタンをクリックしたら、任意のエクセルファイルを指定して開き、その開いたファイル(白紙状態のファイル)にマクロを実行させる方法を探してます。＜作成マクロ＞ Private Sub CommandButton1_Click() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls") If OpenFileName <> "False" Then Workbooks.Open OpenFileName End If Workbooks(Dir(OpenFileName)).Activate ActiveCell.FormulaR1C1 = "テスト" Range("A1").Select Selection.Copy Range("B1").Select ActiveSheet.Paste End Sub ＜マクロ説明＞ --コマンドボタンをクリックして指定したエクセルファイルを開く-- Private Sub CommandButton1_Click() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls") If OpenFileName <> "False" Then Workbooks.Open OpenFileName End If Workbooks(Dir(OpenFileName)).Activate --開いたエクセルファイル(白紙状態)のセルA1に「テスト」を入力した後、コピーしセルB2に貼り付ける-- 　 ActiveCell.FormulaR1C1 = "テスト" Range("A1").Select Selection.Copy Range("B1").Select ActiveSheet.Paste End Sub コマンドボタンをクリック ↓ 任意のエクセルファイルを指定して開く ↓ 開いたファイル(白紙状態のファイル)のセルA1に「テスト」と書き込みセルA1の「テスト」をコピーしセルB1に貼り付けるこのマクロを実行させるにはどこを改善すれば良いでしょうか？ご助言いただけると助かります。よろしくお願い致します。
【マクロ】指定したファイルを開いてマクロを実行

マクロ初心者です。よろしくお願いします。＜質問＞コマンドボタンをクリックしたら、任意のエクセルファイルを指定して開き、その開いたファイル(白紙状態のファイル)にマクロを実行させる方法を探してます。＜作成マクロ＞ Private Sub CommandButton1_Click() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls") If OpenFileName <> "False" Then Workbooks.Open OpenFileName End If Workbooks(Dir(OpenFileName)).Activate ActiveCell.FormulaR1C1 = "テスト" Range("A1").Select Selection.Copy Range("B1").Select ActiveSheet.Paste End Sub ＜マクロ説明＞ --コマンドボタンをクリックして指定したエクセルファイルを開く-- Private Sub CommandButton1_Click() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls") If OpenFileName <> "False" Then Workbooks.Open OpenFileName End If Workbooks(Dir(OpenFileName)).Activate --開いたエクセルファイル(白紙状態)のセルA1に「テスト」を入力した後、コピーしセルB2に貼り付ける-- 　 ActiveCell.FormulaR1C1 = "テスト" Range("A1").Select Selection.Copy Range("B1").Select ActiveSheet.Paste End Sub コマンドボタンをクリック ↓ 任意のエクセルファイルを指定して開く ↓ 開いたファイル(白紙状態のファイル)のセルA1に「テスト」と書き込みセルA1の「テスト」をコピーしセルB1に貼り付けるこのマクロを実行させるにはどこを改善すれば良いでしょうか？ご助言いただけると助かります。よろしくお願い致します。
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗

マクロ実行時に、エラー’1004RangeクラスのPasteSpecialメソッドが失敗と表記され、マクロが実行されません。マクロの内容は、任意の範囲をコピー、新規book追加し、新規bookに(1)Paste:=xlPasteValues　(2)Paste:=xlPasteColumnWidths　(3)Paste:=xlPasteFormats　の順に貼り付けし保存するものです。いろいろ調べては見たのですが、当方初心者の為、わからずじまいです。お手数ではございますが、どなたかご教授願います。下記にマクロ内容全部記載します。よろしくお願いします。 ********************************************************* ********************************************************* Sub 日報別ファイルに保存したい1() Worksheets("日報").Range("A3:AF36").Copy With Workbooks.Add Cells.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells.Select Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("A1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ApplicationDisplayAlerts = True '同名FILEが存在する場合' ActiveWorkbook.SaveAs Filename:= _ "c:\日報\" & ActiveSheet.Range("J2") & "年" & ActiveSheet.Range("l2") & "月" & ActiveSheet.Range("n2") & "日_日報.xls" _ , FileFormat:=xlNormal .Close file End With End Sub
ファイルを開くマクロ

フォルダ(A)の中にエクセルファイルが(a,b)2つあります。aのファイルに下記のマクロを組んで、ボタンにマクロを貼り付けます。マクロでbのファイルを開きたいのですが、ファイルが見つかりませんとなってしまいます。フォルダ(A)は場所を移動して使う予定です。うまく動かなくて困っております。ご教授よろしくお願い致します。 Sub CCC() 　 s_PathCheck 　 Workbooks.Open Filename:=myWBPath & "b.xls" Sheets("P").Select Range("a11").Select End Sub Sub s_PathCheck() Dim n As Variant myWBPath = Workbooks(1).Path myWBName = Workbooks(1).Name n = InStr(myWBName, ".xls") myWBNameF = Left(myWBName, n - 1) End Sub
excel2003マクロの2007での使い方

OS:windowsXP excel2003で作成したマクロがexcel2007で動かなく困っております。マクロでやりたいことは 1つ目のブック（以降A）の内容を、2つ目（以降B）のブックに行列を反転しコピーです。Aのブックの列数は不変ですが行数、ファイル名は毎回変化します。 excel2003では動いていたのですが2007ではコピー元がBのブックになってしまいます。実際のマクロは Workbooks(1).Activate Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("B.xls").Activate Sheets("sheet2").Select Range("B1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True です。よろしくお願いいたします。
マクロ構文エラー

下記のマクロを記述していますが構文エラーが出ます何が原因でしょうか。 Sub 会計データ送信() Sheets("工程生産バランス").Select file = "ml" & Cells(8, 12) & Cells(9, 13) & ".xls" Range("E5").Select If Range("E5") = "4月" Then Range("E6:E38").Select Selection.Copy Workbooks.Open Filename:="C:\sdata\ml\生産バランス.xls" Sheets("上期工程生産バランス").Select Range("E6:E38").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("E6").Select End If Windows("file").Activate　　→エラー箇所（インデックスが有効範囲にありません。） Sheets("工程生産バランス").Select Range("E5").Select End Sub 教えてください。
マクロでコピー＆ペースト処理が遅いような気がします。単純化したいです。

Sub ***出力(file, num) Workbooks.Open (file) Cells.Clear Windows("xxx.xls").Activate Sheets("***").Select Range(num & "2:" & num & "2000").Select Selection.Copy Windows(file).Activate Range("A1").PasteSpecial Paste:=xlPasteValues End Sub 2行目から2000行目の中には計算値が入っています（結構ながい）。その値を"file"に値のみペーストします。しかし、処理が遅いので早くしたいです。単純化できないでしょうか？
マクロを教えてください

同じフォルダ内にあるXlsブックのあるSheetのデータを他のBookにコピーして貼り付けて貼り付けた側のBookで加工したいのですがうまくマクロが組めません。 Bookを共有で使っているので困っています。 Sub ワードアート1_Click ' ActiveWindow.ScrollWorkbookTabs sition:=xlLast Workbooks.Open ("販売管理表み.xls") Sheets("在庫一覧").Select Cells.Select Range("A1").Activate Selection.Copy Windows("完成在庫.xls").Activate Sheets("完成在庫一覧").Select Range("A1").Select ActiveSheet.Paste End Sub って書いてみましたが、Workbooks…のところでエラーになってしまいました。(TOT)初心者ですみません。教えてください。
実行時エラーについて

Konkon_mと申しますよろしくお願いしますエクセルの質問なんですが、今回ワークシートから別のワークシートに表と数値を貼り付けるマクロを作成したのですが終了時に、『実行時エラー'1004' WorksheetクラスのPasteメソッドが失敗しました』のエラーがでるのです一応、コピー＆貼り付けはきちんと終了しているようなのですがすごく気になります作成したマクロを載せますので、わかる方がいらっしゃいましたら教えていただけないでしょうか？宜しくお願いします ChDir "H:\A\B" Workbooks.Open FileName:="\\PRO800\Home Directory\B\B\コピー.xls" ActiveWindow.WindowState = xlMinimized Range("B3:D10").Select Selection.Copy ActiveWindow.WindowState = xlMinimized ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlMinimized Windows("コピー.xls").Activate ActiveWindow.WindowState = xlNormal Range("B3").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("B3:D10").Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("A1").Select ActiveWorkbook.Save ActiveWindow.Close ActiveWindow.WindowState = xlNormal Range("B3").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A3").Select ActiveWindow.WindowState = xlMaximized End Sub
マクロを使って不特定のファイルからコピー＆ペーストしたい(エクセル)

エクセルのデータの必要な列を別のブックに入っているフォーマットにどんどん追加していけるようなマクロを作りたいと思っています。マクロの自動記録を使ってみたのですが、特定のファイル名が入っているので、使えません。中を見てみると Windows("A.xls").Activate Columns("b:b").select Selection.copy workbooks.open Filename:="B.xls" Windows("B.xls").Activate Range("D9").select Windows("A.xls").Activate Application.CutCopyMode = False Range("b:b").select Selection.copy Windows("B.xls").Activate Selection.Pastespecial Paste:=xlValues,Operation:=xlNone,SkipBlanks:=False,Transpose:=False . . . となっています。このファイルAとなっている部分を、どのファイルでも実行できるようにしたいです。後、ファイルBに貼り付けるときに一番最終行に追加していくにはどのような構文を足せばいいか教えていただきたいです。初心者で質問の意図が伝わりにくかったらすみません.. よろしくお願いします。
Excel VBA連続コピー、貼付処理について

特定のフォルダ内に格納されている複数のExcelファイルの「sheet1」シートのデータを所定のExcelファイルにコピー＆ペーストしたいのですが、うまくいきません。（貼付先のファイルを閉じようとするとエラーが発生します。）どうすればできるようになるでしょうか? ご教授の程よろしくお願いいたします。 -------------------------------------------------------------------- Sub copy_test() Dim myPath As String Dim copyFile As String Dim pasteFile As String Dim n As Long myPath = "C:\copy\" copyFile = Dir(myPath & "*.xls*") pasteFile = "C:\paste\paste_data.xlsx" n = 2 Do Until copyFile = "" Workbooks.Open Filename:=myPath & copyFile Workbooks(copyFile).Worksheets("sheet1").Range("A2:L201").Copy Workbooks.Open Filename:=pasteFile 'Workbooks(pasteFile).Worksheets("paste_data").Active Range("B1").Select Selection.End(xlDown).Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste ActiveWorkbook.Save Workbooks(pasteFile).Close False Application.CutCopyMode = False Workbooks(copyFile).Close False n = n + 999 copyFile = Dir() Loop End Sub ---------------------------------------------------------------------------------
VBA 一個前のシートのデータをコピーして貼付

(1) Private Sub Workbook_Open()に、マクロの記録で作成した(２)を組み込んで処理をしたいのですが、一つ前のファイルを選択する記述・一つ前のシートを指定する記述が判りません。 ●御教示いただきたい事項・(1)で開かれた時、ファイルはマスター.xls　が開いていますが、　ファイル名　ccc.xlsが開いた状態にする記述のしかた。　　　・(2)が各シートで実行される、共通の記述のしかた。 (1) Private Sub Workbook_Open() Workbooks.Open Filename:="C:\Documents and Settings\aaa\My Documents\bbbマスター\マスター.xls" End Sub (2) 　ファイル名　ccc.xlsにマクロの記録で作成 Sub Macro4()　　　　 Range("J11").Select 　　　 'Sheets("7月")のセル　J11 Sheets("6月").Select 　Range("I7").Select Selection.Copy Sheets("7月").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
別ブックからのデータ取り込み

下記の(1)(2)のマクロを(3)のコマンドボタンで実行させています。 (1)(2)を使用せずに(3)のコマンドボタンにまとめて記載したいのですが上手く出来ません。また、(1)の"A:\あ.CSV"部分ですが、使用PCによってドライブが異なる場合があるります。セルC2に入力したドライブ名を反映させることはできないでしょうか？よろしくお願いします。 (1) Sub I() 　　　Workbooks.Open Filename:="A:\あ.xls" 　　　lngR = Range("B65536").End(xlUp).Row 　　　Range("B2:B" & lngR).Select 　　　Selection.Copy 　　　Windows("か.xls").Activate 　　　Range("B3").Select 　　　ActiveSheet.Paste 　　　lngR = Range("B65536").End(xlUp).Row 　　　Range("B2:F" & lngR).Select 　　　With Selection.Font 　　　　.Size = 8 　　　End With　　　　End Sub (2) Sub II() 　　　Windows("あ.xls").Activate 　　　lngR = Range("E65536").End(xlUp).Row 　　　Range("E2:E" & lngR).Select 　　　Selection.Copy 　　　Windows("か.xls").Activate 　　　Range("G3").Select 　　　ActiveSheet.Paste 　　　lngR = Range("G65536").End(xlUp).Row 　　　Range("G2:G" & lngR).Select 　　　Selection.Style = "Comma [0]" 　　　With Selection.Font 　　　　.Size = 9 　　　End With 　　　Windows("あ.xls").Activate 　　　ActiveWindow.Close 　　End Sub (3) Private Sub 取込_Click() 　　　Application.ScreenUpdating = False 　　　Protect UserInterfaceOnly:=True 　　　Application.Run "I" 　　　Application.Run "II" 　　　Selection.Locked = False 　　　Applicaion.ScreenUpdating = True 　　End Sub
ＶＢＡでブックの集計の仕方を教えてください。

Ｈ22.12月度と言う名前のフォルダーにＡ店～Ｅ店と集計と言う名前のブックがあります。集計のブックでＡ店～Ｅ店の集計をしてくるマクロを組んでいますが上手く作動しません。集計のブックには、セルの書式設定をしていますので、Ａ店～Ｅ店の売上一覧のシートから値だけをコピーして集計したいのですが、罫線やパターン、数式までコピーしてきたり、最後のＥ店だけ２重にコピーしてきたりと変な動作をします。初心者で本やネットで調べながら作ったので、どこの記述がおかしくて、そうなるのかがさっぱりわかりません。どなたか教えていただけませんでしょうか。よろしくお願いします。 Sub 集計() Workbooks.Open Filename:="C:\Documents and Settings\デスクトップ\H22.12月度\Ａ店.xls" Sheets("売上一覧").Select Range("E5:Q24").Select Selection.Copy Application.WindowState = xlMinimized Windows("集計.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False If Range("E5").Value <> "" Then Range("E65536").Select Selection.End(xlUp).Select Selection.Offset(1, 0).Select End If ActiveSheet.Paste Windows("Ａ店.xls").Activate Range("E5").Select Application.CutCopyMode = False ActiveWindow.Close 　　　　・　　　　・　　　　・（Ｂ・Ｃ・Ｄ店も同じ記述) 　　　　・　　　　・　　Workbooks.Open Filename:="C:\Documents and Settings\デスクトップ\H22.12月度\Ｅ店.xls" Sheets("売上一覧").Select Range("E5:Q24").Select Selection.Copy Application.WindowState = xlMinimized Windows("集計.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False If Range("E5").Value <> "" Then Range("E65536").Select Selection.End(xlUp).Select Selection.Offset(1, 0).Select End If ActiveSheet.Paste Windows("Ｅ店.xls").Activate Range("E5").Select Application.CutCopyMode = False ActiveWindow.Close 　　 Windows("集計.xls").Activate Application.WindowState = xlMaximized Range("E5").Select End Sub
マクロが実行しない

　二行三列を一枡として月の勤務割表を作成しています。マクロで同じ事をしているのにMacro1の方が実行しません。お教え願えませんでしょうか。 (尚、図形を枠線上にコピペしています。) Sub Macro1()実行しません。 Dim i As Integer Dim j As Integer For i = 10 To 43 Step 2 For j = 10 To 103 Step 3 Select Case Cells(i, j).Value Case 1: ActiveSheet.Shapes("四角形1").Select Selection.Copy Cells(i + 1, j + 1).Select ActiveSheet.Paste End Select Next Next End Sub Sub Macro2()実行します。 ActiveSheet.Shapes.Range(Array("四角形1")).Select Selection.Copy Range("J11:K11").Select ActiveSheet.Paste End Sub
マクロの実行について　質問です。

マクロ勉強中です！何時間も調べておりますが、どうしても分からないので　お教え下さい（；＿；）別シートの都道府県が混在するデータの中から、 3列の付属語が『下関』のものだけをコピーして、シート1に貼り付けるマクロをマクロの記録で　『下関』　というタイトル？にして作りました。（下記）これを実行するときに、マクロ名からではなく、下の表の　R3C8セルの、『下関』　というハイパーリンクをクリックで　実行される・・・・そんなふうにするには、どうしたらいいのでしょうか？ご回答を　おまちしております。よろしくお願いします！ Sub 下関() ' ' 下関 Macro ' ' Keyboard Shortcut: Ctrl+a ' ActiveWindow.SmallScroll Down:=-9 Range("B3").Select ActiveWindow.SmallScroll Down:=117 Range("B3:F137").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-9 Range("H3").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Selection.Copy Sheets("Sheet1").Select Range("B3").Select ActiveSheet.Paste Range("C3").Select End Sub
Aファイルでマクロを組み他のファイルを動かしたい

Sub マクロ1() Workbooks.Open Filename:="C:\Users\inoue\Documents\BB.xls" ここでファイル名を選ぶのはどんな命令文したら良いかご指導願います　　　　　(ファイル名がその度に変更するため) 　　　　Range("D7:H16").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With Selection.Interior.ColorIndex = 6 Range("D18").Select Windows("A.xls").Activate End Sub 上記の命令文で　ファイル呼び出しの時　他のフォルダのファイル名その都度選びたいのですご指導願います
エクセル２００７マクロ　シート間のセルコピー

[Sheet1]にあるデータを[Sheet2]にコピーするマクロボタンを[Sheet2]に作りたいのですが、マクロがよく分からないので、「マクロの記録」で作成してみました。 Sub siken() ' ' siken Macro ' ' Sheets("Sheet1").Select Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B3").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B3").Select ActiveSheet.Paste Sheets("Sheet1").Select Range("B6:D6").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B6").Select ActiveSheet.Paste End Sub （実際はもっと多くのセルをコピーします）マクロを実行すると、ちゃんとコピーできるのですが、セルをコピーする都度[Sheet1]と[Sheet2]が交互に表示されます。コピー元の[Sheet1]を表示させずにマクロを実行させるにはどのようにしたらよいのでしょうか？よろしくお願いします。
オートフィルタをし選択・貼付をマクロにしたいのですが、対象データ表示される行が毎回違うのでうまくいきません。

いつもお世話になっております。どなたかご教示いただければ助かります。ファイル(1)のデータの中からA行が830となっているものを、ファイル(2)のページ1の一番下の行に付け足し同じようにファイル(1)からA行が1000となっているものを、ファイル(2)のページ2の一番下に付け足すという作業をマクロでしたいのですが、毎回830と1000がセルAの何行目に表示されるのかが異なっており、オートフィルタをかけた状態でマクロにするとマクロ作成時にたまたま表示されていた行数が指定されているので、別の日に違う行数をコピーしてしまい私が作成したマクロではうまくいきません。どう変更すれば宜しいでしょうか？どうぞ宜しくお願い致します。 Workbooks.Open Filename:="mm.xls"　　　　←上記文でファイル(1) Sheets(DM).Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>*850*", Operator:=xlAnd, _ Criteria2:="<>*1000*" Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.EntireRow.Delete ActiveSheet.Rows("1:1").Select Selection.AutoFilter Windows("xx.xls").Activate　　←ファイル(2) Sheets("ll").Select　　　←ページ1　 ActiveSheet.Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate Windows("mm.xls").Activate Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="1000" Rows("3:3").Select Selection.Copy Windows("xx.xls").Activate ActiveSheet.Paste Application.CutCopyMode = False Windows("xx.xls").Activate Sheets("pp").Select　　←ページ2 ActiveSheet.Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Activate Windows("mm.xls").Activate Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="850" Rows("2:2").Select Selection.Copy Windows("xx.xls").Activate ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Windows("mm.xls").Activate ActiveWindow.Close End Sub
エクセルマクロVBAコピー領域と貼り付け領域の違い

お世話になっております。下記のマクロについて、ご指導願います。試作研究費マクロ.xlsというファイルのマクロについてです。試作研究費明細作成マクロ1()を実行すると、試試作研究費マクロ.xlsというファイルに貼りつけるファイルを選択できるようになっており、それを選択すると、試作研究費マクロ.xlsに貼りつけられる仕組みになっているのですが、エラーになります。、「コピー領域と貼り付け領域の違いでデータを貼り付けることが出来ません。」というメッセージが出てきて処理できません。デバックによると、下から二行目のActiveSheet.Pasteの部分が黄色く塗りつぶされています。最近エクセル2007にしたのですが、エクセル2000で作成したマクロは使えないのでしょうか？エクセル2000の時は問題なくできていたのですが。何が原因なのかわかりかねますので、ご指導の程、よろしくお願いいたします。 Sub 試作研究費明細作成マクロ1() ' ' 試作研究費明細作成マクロ1 Macro ' マクロ記録日 : 2011/11/11 ユーザー名 : ' ' Dim myFile myFile = Application.GetOpenFilename() If myFile = False Then Exit Sub Workbooks.Open Filename:=myFile Cells.Select Selection.Copy Windows("試作研究費マクロ.xls").Activate Cells.Select ActiveSheet.Paste Range("F11").Select End Sub

VBAでマクロ実行する方法とは？

VBA＿マクロ内でマクロ実行

質問者が選んだベストアンサー

関連するQ&A

【マクロ】指定したファイルを開いてマクロを実行

【マクロ】指定したファイルを開いてマクロを実行

VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗

ファイルを開くマクロ

excel2003マクロの2007での使い方

マクロ構文エラー

マクロでコピー＆ペースト処理が遅いような気がします。単純化したいです。

マクロを教えてください

実行時エラーについて

マクロを使って不特定のファイルからコピー＆ペーストしたい(エクセル)

Excel VBA連続コピー、貼付処理について

VBA 一個前のシートのデータをコピーして貼付

別ブックからのデータ取り込み

ＶＢＡでブックの集計の仕方を教えてください。

マクロが実行しない

マクロの実行について　質問です。

Aファイルでマクロを組み他のファイルを動かしたい

エクセル２００７マクロ　シート間のセルコピー

オートフィルタをし選択・貼付をマクロにしたいのですが、対象データ表示される行が毎回違うのでうまくいきません。

エクセルマクロVBAコピー領域と貼り付け領域の違い

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

VBAでマクロ実行する方法とは？

VBA＿マクロ内でマクロ実行

質問者が選んだベストアンサー

関連するQ&A

【マクロ】指定したファイルを開いてマクロを実行

【マクロ】指定したファイルを開いてマクロを実行

VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗

ファイルを開くマクロ

excel2003マクロの2007での使い方

マクロ構文エラー

マクロでコピー＆ペースト処理が遅いような気がします。単純化したいです。

マクロを教えてください

実行時エラーについて

マクロを使って不特定のファイルからコピー＆ペーストしたい(エクセル)

Excel VBA連続コピー、貼付処理について

VBA 一個前のシートのデータをコピーして貼付

別ブックからのデータ取り込み

ＶＢＡでブックの集計の仕方を教えてください。

マクロが実行しない

マクロの実行について 質問です。

Aファイルでマクロを組み他のファイルを動かしたい

エクセル２００７マクロ シート間のセルコピー

オートフィルタをし選択・貼付をマクロにしたいのですが、対象データ表示される行が毎回違うのでうまくいきません。

エクセルマクロVBAコピー領域と貼り付け領域の違い

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

マクロの実行について　質問です。

エクセル２００７マクロ　シート間のセルコピー

カテゴリ
一覧

専門家に質問してみよう
専門家登録